25 lines
477 B
Plaintext
25 lines
477 B
Plaintext
[ table ] is suffix ( n --> $ )
|
|
|
|
$ "th st nd rd th th th th th th"
|
|
nest$ witheach [ ' suffix put ]
|
|
|
|
[ dup number$
|
|
swap dup 100 mod
|
|
10 21 within iff
|
|
[ drop $ "th" join ]
|
|
else
|
|
[ 10 mod
|
|
suffix join ] ] is ordinal$ ( n --> $ )
|
|
|
|
[ over - 1+
|
|
[] swap times
|
|
[ over i^ + ordinal$
|
|
nested join ]
|
|
nip 50 wrap$ ] is test ( n n --> )
|
|
|
|
0 25 test
|
|
cr
|
|
250 265 test
|
|
cr
|
|
1000 1025 test
|