SA
а че твоя функция должна с нилом делать
Size: a a a
2020 October 15
SA
видимо нил
SA
(defun actually-last (list)
(when list
(destructuring-bind (first . rest) list
(if rest
(actually-last rest)
first))))
n
Привет! Получил рецензию на свою лабу, все сделано не так... Задание 1 (найти последний элемент списка) надо через рекурсию, переделал. Теперь функция выглядит так
(defun last-element (x)
(if (null (cdr x))
(car x)
(if (null (cdr x))
(car x)
(last-element (cdr x)))))
(defun last-element (x)
(if (null (cdr x))
(car x)
(if (null (cdr x))
(car x)
(last-element (cdr x)))))
(defun last-elm (w)
(if (cdr w) (last-elm (cdr w))
(car w)))
(if (cdr w) (last-elm (cdr w))
(car w)))
SA
SA
только что тож самое написал
SA
(defun actually-last (list)
(if (null (rest list))
(first list)
(actually-last (rest list))))
n
(defun last-elm (w &aux (d (cdr w)))
(if d (last-elm d) (car w)))
(if d (last-elm d) (car w)))
SA
(defun lst (ls &aux (r (cdr ls)))
(or (and r (lst r)) (car ls)))
SA
паттерн матчинга не хватает на аргументах да
a
а че твоя функция должна с нилом делать
По-хорошему надо
values возвращать, как всегда в таких случаях. Если у них там нет values, могу только повторить утверждение про ебобо-курс.SA
ну да лол
SA
это
SA
мы в 70ых мит схеме курс
SA
такие вещи на хачкеле куда лучше смотрятся
SA
foo :: [a] -> Maybe a
foo [] = Nothing
foo [x] = Just x
foo (x:xs) = foo xs
SA
та же хуйня на лиспе выглядит страшно как смертный грех
(declaim (ftype (function (list) (values t boolean &optional)) haskfoo))
(defun haskfoo (list)
(cond ((null list) (values nil nil))
((null (cdr list)) (values (car list) t))
(t (haskfoo (cdr list)))))
a
та же хуйня на лиспе выглядит страшно как смертный грех
(declaim (ftype (function (list) (values t boolean &optional)) haskfoo))
(defun haskfoo (list)
(cond ((null list) (values nil nil))
((null (cdr list)) (values (car list) t))
(t (haskfoo (cdr list)))))
Можно написать DSL, в котором будет нормально выглядить.
SA
можно но
SA
сам дсл будет выглядеть стремно пиздец