ANSI Common Lisp

  • Подписчики: 194 подписчиков
  • ID: 94385154
Блокировка:
Нет ограничений
Верификация:
Сообщество не верифицировано администрацией ВКонтакте
Видимость
открытое
Популярность:
У сообщества нет огня Прометея
Домен:
ansicommonlisp

Описание

изучающим Лисп (defun flatten (w) (loop for a in w if (listp a) nconc (flatten a) else collect a)) (defun flatten (w) (typecase w (list (mapcan #'flatten w)) (t `(,w)))) (defun flatten (w) (if (listp w) (mapcan #'flatten w) `(,w))) https://www.academia.edu/16235322/