RosettaCodeData/Task/Nth/J/nth-1.j

3 lines
89 B
Text
Raw Permalink Normal View History

2015-11-18 06:14:39 +00:00
suf=: (;:'th st nd rd th') {::~ 4 <. 10 10 (* 1&~:)~/@#: ]
nth=: [: ;:inv (": , suf)each