наибольшее число (Lisp, Scheme)

[adav84]

Здравствуйте,
можно это упростить (и надо ли)?

Код: Выделить всё

(defun max (l)
  (if (null l)
      most-negative-fixnum
    (if (> (car l) (max (cdr l)))
    (car l)
      (max (cdr l)))))

(max '(-2 -6 -1 -4))

в частности, повторные вызовы (или это оптимизируется?)
Без let и setq

[watashiwa_daredeska]

Без let и setq

А loop можно?

[watashiwa_daredeska]

А вообще, в Common Lisp можно так:

Код: Выделить всё

(defun max2 (&optional l)
  (apply 'max (cons most-negative-fixnum l)))

[adav84]

Без let и setq

А loop можно?

loop немного вульгарно :) мне бы с рекурсией....
просто повтор ((max (car l)) немного режет глаза и портит чувство Прекрасного
а еще то, что это не хвостовая рекурсия

[watashiwa_daredeska]

loop немного вульгарно :) мне бы с рекурсией....

А let-то чем не нравится? Вот с хвостовой рекурсией и с let. Если let не нравится — раскройте сами вручную.

Код: Выделить всё

(defun max3 (l &optional max-value)
  (let ((max-value (if max-value max-value most-negative-fixnum)))
    (if l (max3 (cdr l) (if (> max-value (car l)) max-value (car l))) max-value)))

[watashiwa_daredeska]

Хотя, можно и без let:

Код: Выделить всё

(defun max3 (l &optional (max-value most-negative-fixnum))
  (if l (max3 (cdr l) (if (> max-value (car l)) max-value (car l))) max-value))