История изменений

Исправление korvin_, 28.01.25 14:57 (текущая версия) :

Вот ещё один «любой алгоритм»:

(let ((v (cons 1 (cons 2 3))))
  (format t "~a~%" (reduce #'+ v)))

(let ((v (cons 1 (cons (cons 2 3) nil))))
  (format t "~a~%" (reduce #'+ v)))

выдал ошибку, оказался неприменим.

Исправление korvin_, 28.01.25 14:57:

Вот ещё один «любой алгоритм»:

(let ((v (cons 1 (cons 2 3))))
  (format t "~a~%" (reduce #'+ v)))

(let ((v (cons 1 (cons (cons 2 3) nil))))
  (format t "~a~%" (reduce #'+ v)))

выдал ошибкм, оказался неприменим.

Исходная версия korvin_, 28.01.25 14:56:

Вот ещё пара «любых алгоритмов»:

(let ((v (cons 1 (cons 2 3))))
  (format t "~a~%" (reduce #'+ v)))

(let ((v (cons 1 (cons (cons 2 3) nil))))
  (format t "~a~%" (reduce #'+ v)))

оба выдали ошибку, оказались неприменимы.