N'th: Difference between revisions
→{{header|REXX}}: Refurbished and two alternate solutions added to the oiginal
Walterpachl (talk | contribs) (→{{header|REXX}}: Refurbished and two alternate solutions added to the oiginal) |
|||
Line 3,525:
This version adds suffixes without apostrophes.
Negative numbers
<syntaxhighlight lang="rexx">/*REXX program shows ranges of numbers with ordinal (st/nd/rd/th) suffixes attached.*/▼
Two alternate solutions added to the oiginal
call tell 0, 25 /*display the 1st range of numbers. */▼
▲<syntaxhighlight lang="rexx">/*REXX program shows ranges of numbers
call tell 250, 265 /* " " 2nd " " " */▼
/*-------------------------------------------------------------------------*/
do j=L to H; $=$ th(j); end /*process the range, from low ───► high*/▼
tell: Procedure
say 'numbers from ' L " to " H ' (inclusive):' /*display the title. */▼
Parse Arg low,high
out.=''
return /*return to invoker. */▼
out.1=out.1 th(n)
th: parse arg z; x=abs(z); return z||word('th st nd rd',1+x//10*(x//100%10\==1)*(x//10<4))</syntaxhighlight>▼
out.2=out.2 th2(n)
out.3=out.3 th3(n)
End
Say strip(out.1)
Say ''
If out.2<>out.1 Then Say 'th2 must be wrong'
If out.3<>out.1 Then Say 'th3 must be wrong'
Return
/*-------------------------------------------------------------------------*/
Parse Arg z
x=abs(z)
▲
/*-------------------------------------------------------------------------*/
th2: /* rather verbose logic */
Parse Arg z
x=abs(z)
Select
When length(x)=1 Then
If x<4 Then
suffix=word('th st nd rd',x+1)
Else
suffix='th'
When suffixstr(x,length(x)-1,1)=1 Then
suffix='th'
When right(x,1)<4 Then
suffix=word('th st nd rd',right(x,1)+1)
Otherwise
suffix='th'
End
Return z||suffix
/*-------------------------------------------------------------------------*/
th3: /* compact yet quite readable */
Parse Arg z
Parse Value reverse(z) with last +1 prev +1
If last<4 &, /* last digit is 0,1,2,3 */
prev<>1 Then /* and number is not **1x */
suffix=word('th st nd rd',last+1)
suffix='th'
Return z||suffix</syntaxhighlight>
'''output''' using the default inputs:
<pre>
| |||