На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
  
    > Множество всех подмножеств , muLisp
    Dark_Cs
    Сообщ. #1 ,
      Unregistered
      Здраствуйте
      Помогите разобраться в работе этой функции, точнее в её не работе. Функция собрана по материалам статьи http://lisp.ru/page.php?id=23&pg=2
      вроде всё правильно запускаю, но лисп выдает ошибку "Undefined Function Break: (# LAMBDA)" и дальше куча ошибок с Undefined Function Break
      подскажите, пожалуйста, в чем может быть проблема? :wacko:
      ExpandedWrap disabled
        (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)
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0189 ]   [ 15 queries used ]   [ Generated: 24.03.25, 18:54 GMT ]  
        Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.