N'th: Difference between revisions
m
→Compact version
Line 3,551:
'NTH' STO
===Compact version===
This version uses
≪ IP →STR LAST { "'th" "'st" "'nd" "'rd" }
OVER 10 MOD DUP 4 < * ROT 100 MOD 10 / IP 1 ≠ * 1 + GET +
|