Привет всем.
Сейчас у нас с коллегами посленовогодний перерывчик, развели небольшой холивар на тему, какой язык программирования круче :). В качестве эталонного алгоритма было выбрано нахождение простых чисел от 2 до 10000000, компилируем без оптимизаций. Фортран оказался на 10% быстрее С++, на 5% быстрее С. Решили сделать то же на Лиспе. Используемый компилятор - gcl.
1.
2.
3.
4.
5.
6.
(progn
(defconstant maxNum 128 )
(setq allNums (make-array (+ maxNum 1 )))
(setf (aref allNums 2 ) t)
(do* ((i 3 (+ i 2 ))) ((> i maxNum)) (list (setf (aref allNums i) t) (do ((j 3 (+ j 2 ))) ((> j (sqrt i))) (block innerLoop (if (and (aref allNums j) (= (rem i j) 0 )) (setf (aref allNums i) nil) (return-from innerLoop))))))
(do ((i 2 (+ i 1 ))) ((> i maxNum)) (if (aref allNums i) (block output (prin1 i) (terpri))))
)
Этот алгоритм 1 в 1 повторяет использованые на других языках. Проблема в том, что когда я пытаюсь увеличить размер создаваемого массива хоть на 1 (до 129), получаю сообщение об ошибке:
Error: Caught fatal error [memory may be damaged]
Fast links are on: do (si::use-fast-links nil) for debugging
Error signalled by SYSTEM::SET-UP-TOP-LEVEL.
Backtrace: DO
Сначала подумал, что это ограничение на длину массива, но вроде как стандарт гарантирует минимум 1024. Подскажите, пожалуйста, в чем может быть проблема?
--------------
Festina lente
