Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=272655&view=findpost&p=2267831 Sun, 17 May 2009 14:02:53 +0000 Множество всех подмножеств https://forum.sources.ru/index.php?showtopic=272655&view=findpost&p=2267831 Помогите разобраться в работе этой функции, точнее в её не работе. Функция собрана по материалам статьи http://lisp.ru/page.php?id=23&pg=2
вроде всё правильно запускаю, но лисп выдает ошибку "Undefined Function Break: (# LAMBDA)" и дальше куча ошибок с Undefined Function Break
подскажите, пожалуйста, в чем может быть проблема? :wacko:
    (defun all-subset~ (set)
        (cond
            ((null set) '(nil))
            (t (append~ (mapcar~ #'(lambda (x) (cons (car set) x))
                (all-subset~ (cdr set)))
                (all-subset~ (cdr set)))
            )
        )
    )
    (defun append~ (x y)
        (cond ((null x) y)
            (t (cons (car x) (append~ (cdr x) y))))
    )
    (defun mapcar~ (function list)
        (cond
            ((null list) nil)
            (t (cons (funcall function (car list)) (mapcar~ function (cdr list)) ))
        )
    )
    (RDS)
]]> Dark_Cs Lisp