5 lines
201 B
Text
5 lines
201 B
Text
ordinal(n)=my(k=n%10,m=n%100); Str(n,if(m<21&&m>3,"th",k==1,"st",k==2,"nd",k==3,"rd","th"));
|
|
apply(ordinal, [0..25])
|
|
apply(ordinal, [250..265])
|
|
apply(ordinal, [1000..1025])
|
|
apply(ordinal, [111, 1012])
|