N'th: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,245: / Line 2,245: @@
 =={{header|EasyLang}}==
 <syntaxhighlight lang="easylang">
-proc nth num . ordinal$ .
+func$ nth num .
-   num$ = num
+   last2 = num mod 100
-   lastTwoDigits$ = substr num$ len num$ - 1 2
+   last = num mod 10
-   lastDigit$ = substr num$ len num$ 1
+   if last2 >= 11 and last2 <= 13
+      return num & "th"
-   if lastTwoDigits$ = "11" or lastTwoDigits$ = "12" or lastTwoDigits$ = "13"
-      ordinal$ = num$ & "th"
+   elif last = 1
-   elif lastDigit$ = "1"
+      return num & "st"
-      ordinal$ = num$ & "st"
+   elif last = 2
-   elif lastDigit$ = "2"
+      return num & "nd"
-      ordinal$ = num$ & "nd"
+   elif last = 3
-   elif lastDigit$ = "3"
+      return num & "rd"
-      ordinal$ = num$ & "rd"
    else
-      ordinal$ = num$ & "th"
+      return num & "th"
    .
 .
 print "0 to 25:"
 for i = 0 to 25
-   nth i ordinal$
+   write nth i & " "
-   write ordinal$
-   write " "
 .
 print ""
 print "250 to 265:"
 for i = 250 to 265
-   nth i ordinal$
+   write nth i & " "
-   write ordinal$
-   write " "
 .
 print ""
 print "1000 to 1025:"
 for i = 1000 to 1025
-   nth i ordinal$
+   write nth i & " "
-   write ordinal$
-   write " "
 .
 </syntaxhighlight>