VPF::список "луковица" - Форум программистов

M9C1K

Дата 19.9.2010, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 17.5.2009

Репутация: нет
Всего: -1

Опpеделите на языке ЛИСП и проверьте работу функции, стpоящей список "луковица" с уровнем вложенности n для параметра x.
Например, при n=4, x=0 функция должна возвращать список ((((0)))).

Если можно,то с подробными комментариями пожалуйста.

диалект muLisp

Void

Дата 19.9.2010, 18:04 (ссылка)

(голосов:1)

Загрузка ...

λcat.lolcat

Профиль
Группа: Участник Клуба
Сообщений: 2206
Регистрация: 16.11.2004
Где: Zürich

Репутация: нет
Всего: 173

Не знаю, где найти живой muLisp, но это должно работать на большинстве диалектов:

Код

(defun onion (n x)
    (if (= 0 n)
        x
        (onion (- n 1) (list x))))

Если n равно 0, возвращаем аргумент как есть, иначе заворачиваем в список и вызываем функцию рекурсивно со значением n на единицу меньше.

--------------------

“Coming back to where you started is not the same as never leaving.” — Terry Pratchett

_sg

Дата 25.4.2014, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2

как вариант:

Код


(defun onion (a n)
  (if (zerop n) a (list (onion a (1- n)))))
 
> (onion 0 4)
((((0))))

--------------------

vk.com/ansicommonlisp

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| LISP \| Следующая тема »