Twelve Days of Christmas by uru

var s:array[1..13]of string=("first","second","third","fourth","fifth","sixth","seventh","eighth","","ninth","tenth","eleventh","twelfth");i:word;begin
for i in[0,18,37,57,76,96,120,143,164,185,207,233]do
writeln("On the "+s[i div 18+1]+" day of Christmas,
my true love sent to me
",("Twelve drummers drumming,
Eleven pipers piping,
Ten lords a-leaping,
Nine ladies dancing,
Eight maids a-milking,
Seven swans a-swimming,
Six geese a-laying,
Five golden rings,
Four calling birds,
Three French hens,
Two turtle doves,
And a")[234-i..234+4*ord(i>0)]," partridge in a pear tree"+(".!")[i div 233+1]+^j)end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page