14 lines
345 B
Plaintext
14 lines
345 B
Plaintext
(function ordinal n
|
|
(if ([11 12 13] (rem n 100))
|
|
(str n "th")
|
|
(str n (or ((rem n 10) ["th" "st" "nd" "rd"]) "th"))))
|
|
|
|
(function line x y
|
|
(-> (range x y)
|
|
(map (comp ordinal (pad-left " " 6)))
|
|
(join " ")))
|
|
|
|
(.. str (line 0 13) "\n" (line 1000 1013)
|
|
"\n\n" (line 13 26) "\n" (line 1013 1026)
|
|
"\n\n" (line 250 266))
|