VPF::Реализация функции list - Форум программистов

Дата 30.10.2006, 20:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нужно реализовать аналог lisp функции - list. Пытался написать, но выдает на одну скобку больше чем list.

Код


(defun rec (x y)
    (if (null y) nil (cons (list x (car y))
                       (rec x (cdr y)
                 )
                )
    )
)

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

http://python.com.ua

Дата 31.10.2006, 12:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


(defun LIST1 (x y)
 (if (null x)
  y
  (cons (car x) (LIST1 (cdr x) y))))

Согласитесь, немного некузявно в определении функции использовать ту самую функцию, которую и пытаются определить:

Код


(defun LIST (x y)
 (if (null y)
  nil
  (cons (list x (car y)) (LIST x (cdr y)))))

Дата 24.4.2014, 19:56 (ссылка)

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

Загрузка ...

Шустрый

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

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

как вариант:

Код


(defun -list (a b)
  (cons a (cons b nil)))

> (-list 10 100)
(10 100)

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

vk.com/ansicommonlisp

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