RosettaCodeData/Task/Nth/Picat/nth-3.picat
2023-07-01 13:44:08 -04:00

3 lines
175 B
Text

nth4(N) = Nth =>
Suffix = ["th","st","nd","rd","th","th","th","th","th","th"],
Nth = N.to_string() ++ cond((N mod 100 <= 10; N mod 100 > 20), Suffix[1 + N mod 10], "th").