Как вам такое вычисление факториала на Алголе 68?

[vak]

BEGIN
...
    THE TWELFTH day OF christmas MY TRUE LOVE sent to ME
    twelve LORDS LEAPING
    eleven LADIES DANCING
    ten PIPERS PIPING
    nine DRUMMERS DRUMMING
    eight MAIDS MILKING
    seven SWANS SWIMMING
    six GEESE LAYING
    five GOLD RINGS
    four COLLY BIRDS
    three FRENCH HENS
    two TURTLE DOVES AND
    a PARTRIDGE in a pear tree
END

Полный текст здесь: factorial-baker.a68

Запускаем:

$ a68g factorial-baker.a68 
FACTORIAL OF 10
        +10 IS    +3628800

Смотрите страницы 51-53 в файле algol-bulletin-42.pdf.

Comments

[spamsink]

Увы, не успел Алгол-68 нажить достаточно популярности, чтобы Obfuscated Algol-68 code contest проводить.

[vak]

Отличный язык для написания прозы. 😀
Или даже стихов.