N'th: Difference between revisions

m
Line 3,551:
'NTH' STO
===Compact version===
This version uses basica arithmetic insteadmix of variablearithmetic and boolean testingoperations to determine when to apply the "st/nd/rd" exception.
≪ IP →STR LAST { "'th" "'st" "'nd" "'rd" }
OVER 10 MOD DUP 4 < * ROT 100 MOD 10 / IP 1 ≠ * 1 + GET +
1,150

edits