Cellar Door

29 июня 2005

Два трюка с Lisp/Scheme

1) (format nil "~r" 9876543212345678987654321)
"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 для него уже перебор :)

3 Comments:

  • With Comments)))
    98765432123456789876543212345678987654321234567898765432123456789
    ninety-eight vigintillion. seven hundred sixty-five novemdecillion. four hundred thirty-two octodecillion. one hundred twenty-three septendecillion. four hundred fifty-six sexdecillion. seven hundred eighty-nine quindecillion. eight hundred seventy-six quattuordecillion. five hundred forty-three tredecillion. two hundred twelve duodecillion. three hundred forty-five undecillion. six hundred seventy-eight decillion. nine hundred eighty-seven nonillion. six hundred fifty-four octillion. three hundred twenty-one septillion. two hundred thirty-four sextillion. five hundred sixty-seven quintillion. eight hundred ninety-eight quadrillion. seven hundred sixty-five trillion. four hundred thirty-two billion. one hundred twenty-three million. four hundred fifty-six thousand. seven hundred eighty-nine

    By Anonymous Altor aka Rostyslav, at 25 июля, 2005 23:02  

  • А это в чем было получено?

    By Blogger Marduk, at 26 июля, 2005 18:22  

  • А фиг его знает... Это у меня на биллинге висит. В чем получено не знаю. В принципе там написано не больше 15 цифр, но я не смог удержаться=))))

    By Anonymous Altor aka Rostyslav, at 26 июля, 2005 19:00  

Отправить комментарий

<< Home