Два трюка с Lisp/Scheme
"nine septillion eight hundred seventy-six sextillion five hundred forty-three quintillion two hundred twelve quadrillion three hundred forty-five trillion six hundred seventy-eight billion nine hundred eighty-seven million six hundred fifty-four thousand three hundred twenty-one"
No comments...
2) Вот кусочек кода для guile:
(define (factorial n)
(let loop ((total 1)
(n n))
(cond ((= n 0) total)
(else (loop (* n total) (- n 1))))))
Можно смело ввести такое:
(factorial 10000)
Результат не привожу :)) Но он есть, правда последние n чисел нули, не уверен что так должно быть, во всяком случае не проверял корректность такого ответа. Но всё равно забавно.
Common Lisp тоже весьма способен в решении данной задачи, но 10000 для него уже перебор :)