13 lines
340 B
Text
13 lines
340 B
Text
(function ordinal n
|
|
(if ([11 12 13] (rem n 100))
|
|
"{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))
|