[Klo]

В своём лиспе использовал функцию max для сравнения чисел, но пользователи умудрились превысить максимальное возможное количество чисел для сравнения (как выяснилось - 255 шт.) и теперь приходится исправлять свою недальновидность.
Кто знает как обойти данное ограничение?
Или как написать свой аналог данной функции?

[5hev]

Klo, странно. Первое - блоков у вас больше чем 256 (два скрытых висят). Второе - все работает на указанной строке.

[Klo]

Нда-с, действительно чудеса!
Видимо, когда редактировал файлик, очищая от мусора для удобства просмотра, что-то случайно поправил...

[gomer]

Сообщение от Дима_ В общем по ходу это у всех функций...

В общем походу это только для eval. И не стоит забывать ограничения по глубине рекурсии

[Дима_]

Евалу по барабану - он то список принимает - можешь проверить в рукопашную, про рекурсию - там еще запас большой.

[gomer]

Сообщение от Дима_ Евалу по барабану - он то список принимает - можешь проверить в рукопашную

блин, согласен, кстати в брикскад нет таких жестких ограничений

(defun ml(x) (if (not (zerop x)) (cons x (ml (1- x)))))
(eval (cons 'max (ml 1999)))

еще работает

а вот (ml 2000) уже нет

[Дима_]

Сообщение от gomer а вот (ml 2000) уже нет

В брискаде это как раз может быть из-за глубины рекурсии, попробуй итерацией:

Код:

[Выделить все]

 (defun iter-ml(x / ret) (while (not (zerop x)) (setq x (1- x) ret (cons x ret))))

p/s/ кстати, чисто из моего спортивного интереса, проверь может в брискаде и хвостовая оптимизированна:

Код:

[Выделить все]

 (defun tail-ml(x)
  ((lambda (frec) (frec '() x))
   (lambda (ret x)
     (if (zerop x)
         ret
         (frec (cons x ret) (1- x))))))

Запусти с запасом так - на нескольких миллионах.

[gomer]

Сообщение от Дима_ Запусти с запасом так - на нескольких миллионах.

(tail-ml 1997) - работает, дальше нет
итерация со скрипом, но работает до мильона, даже больше, но в какой-то момент вылазит из кучи (heap)

[Дима_]

В автокаде итерация поскрипев 8 секунд проглотила 10 млн (в общем нет правды, у тех. одно у этих другое).