5 lines
123 B
APL
5 lines
123 B
APL
nth←{
|
||
sfx←4 2⍴'stndrdth'
|
||
tens←(10<100|⍵)∧20>100|⍵
|
||
(⍕⍵),sfx[(4×tens)⌈(⍳3)⍳10|⍵;]
|
||
}
|