29 lines
534 B
Plaintext
29 lines
534 B
Plaintext
((irregular ("st" "nd" "rd"))
|
|
|
|
(main
|
|
{(0 250 1000)
|
|
{ test ! "\n" << }
|
|
each})
|
|
|
|
(test {
|
|
<-
|
|
{iter 1 - -> dup <- + ordinalify ! <<
|
|
{iter 10 %} {" "} {"\n"} ifte << }
|
|
26 times})
|
|
|
|
(ordinalify {
|
|
<-
|
|
{{ -> dup <- 100 % 10 cugt } !
|
|
{ -> dup <- 100 % 14 cult } !
|
|
and not
|
|
{ -> dup <- 10 % 0 cugt } !
|
|
{ -> dup <- 10 % 4 cult } !
|
|
and
|
|
and}
|
|
{ -> dup
|
|
<- %d "'"
|
|
irregular -> 10 % 1 - ith
|
|
. . }
|
|
{ -> %d "'th" . }
|
|
ifte }))
|