Я вот только начал изучать Лисп, и не могу написать одну функцию, назовем ее elem -
(elem N L) выбирает на верхнем уровне списка L |N|-тый элемент, отсчитанный от начала списка, если N>0, или от конца списка, если N<0, например:
(elem 2 ‘(a (12) b (3))) => (12)
(elem -2 ‘(a (12) b (3)) => b
вот. запутался на такой простой реализации!
подскажите, плиз, как тут быть?
и еще у меня 1 вопрос - если я запутался на таком простом задании, то, может, Лисп не для меня??
заранее благодарю, господа!

Можно так:

(defun plus (n l) (if (= n 1) (first l) (plus (- n 1) (rest l))))
(defun minus (n l) (if (= n -1) (last l) (nth (+ (length l) n) l)))
(defun elem (n l) (if (> n 0) (plus n l) (if (< n 0) (minus n l))))

Как бы разбил твою функцию на три функции, можно это все в одну функцию слить, но это муторно, много проверок и условностей... как например тут не отработана проверка на n=0.
А насчет второго вопроса... а для кого этот Лисп вообще? мое мнение он нужен для преподов в ВУЗах, чтобы нас студентов им мучить )))) и для общего программерского развития, а так, практической ценности я в нем не вижу...

что-то типа такого:

Код

(defun elem (n l)         (let* ((len (length l))                  (en (if (>= n 0) (- n 1) (+ len n)))                 )           (assert (and (>= en 0) (> len en)) (en) "Element number ~S exceeds list length ~S" n len)           (nth en l)))

Цитата

и еще у меня 1 вопрос - если я запутался на таком простом задании, то, может, Лисп не для меня??

Это с непривычки, пройдет.
А вообще-то для изучения легче Scheme,а вот для работы лучше CommonLisp.

Это сообщение отредактировал(а) svg - 13.4.2005, 19:53

>А насчет второго вопроса... а для кого этот Лисп вообще? мое мнение он нужен для >преподов в ВУЗах, чтобы нас студентов им мучить )))) и для общего программерского >развития, а так, практической ценности я в нем не вижу...

Действительно только людей отвращают от на самом деле весьма практически полезного языка. Хотя некоторым должно с ходу начинать нравиться. Вы случайно программы не блокноте пишите ? Рекомендую пользоваться редактором с подсветкой синтаксиса. Например из простых Corman Lisp (www.cormanlisp.com) это может, там и подсказка по функциям стандарта имеется.

Странно, Лисп таки преподают, но видать на столько скучно и бездарно, что студенты вешаются. Взяли бы за основу какую-нибудь книгу типа Practical Common Lisp или Anso Common Lisp Грэхэма, дело пошло бы веселее.

Кстати, когда подобные задачи дают на Си, иногда они бывают довольно пакостные, никто не говорит, что Си якобы практической ценности не имеет, и чем Лисп перед всеми так провинился ?

Да ничем, на самом деле довольно интересный язык ...для тренировки мозгов, преподавать да, преподают у нас в ВУЗе, преподают ужасно, типа делается вот так и так.. а вот вам и задачи, думайте! И все...

(
defun elem
(
lambda (n l)
(
cond
((>= n 0) (nth n l))
(t (nth (- n) (reverse l)))
)
)
)

Если n>=0, то n-ый car от списка (n=0 - исходный список), если n<0, то (-n)-ый car от реверсированного списка (я писал в среде FORIS).

M Cr@$h

Hidrag и svg по ++ за помощь ньюбу.

Вообще, Lisp считается более естественным языком, но я в этом сильно сомневаюсь ;)

как вариант: