Data update

Task/Nth/EasyLang/nth.easy

@@ -1,36 +1,29 @@
-proc nth num . ordinal$ .
-   num$ = num
-   lastTwoDigits$ = substr num$ len num$ - 1 2
-   lastDigit$ = substr num$ len num$ 1
-   if lastTwoDigits$ = "11" or lastTwoDigits$ = "12" or lastTwoDigits$ = "13"
-      ordinal$ = num$ & "th"
-   elif lastDigit$ = "1"
-      ordinal$ = num$ & "st"
-   elif lastDigit$ = "2"
-      ordinal$ = num$ & "nd"
-   elif lastDigit$ = "3"
-      ordinal$ = num$ & "rd"
+func$ nth num .
+   last2 = num mod 100
+   last = num mod 10
+   if last2 >= 11 and last2 <= 13
+      return num & "th"
+   elif last = 1
+      return num & "st"
+   elif last = 2
+      return num & "nd"
+   elif last = 3
+      return num & "rd"
    else
-      ordinal$ = num$ & "th"
+      return num & "th"
    .
 .
 print "0 to 25:"
 for i = 0 to 25
-   call nth i ordinal$
-   write ordinal$
-   write " "
+   write nth i & " "
 .
 print ""
 print "250 to 265:"
 for i = 250 to 265
-   call nth i ordinal$
-   write ordinal$
-   write " "
+   write nth i & " "
 .
 print ""
 print "1000 to 1025:"
 for i = 1000 to 1025
-   call nth i ordinal$
-   write ordinal$
-   write " "
+   write nth i & " "
 .