N'th: Difference between revisions

Content added Content deleted
(→‎{{header|REXX}}: Refurbished and two alternate solutions added to the oiginal)
Line 3,525: Line 3,525:
This version adds suffixes without apostrophes.
This version adds suffixes without apostrophes.


Negative numbers and fractions are also handled.
Negative numbers are also handled.

⚫
<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 with ordinal (st/nd/rd/th) suffixes attached.*/
⚫
call tell 250, 265 /* " " 2nd " " " */
call tell 1000, 1025 /* " " 3rd " " " */
Call tell 0,25 /* display the 1st range of numbers */
exit /*stick a fork in it, we're all done. */
Call tell 250,265 /* " " 2nd " " " */
⚫
Call tell 1000,1025 /* " " 3rd " " " */
/*──────────────────────────────────────────────────────────────────────────────────────*/
tell: procedure; parse arg L,H,,$ /*get the Low and High #s, nullify list*/
Exit /* stick a fork in it, we're all done */
/*-------------------------------------------------------------------------*/
⚫
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. */
say strip($); say; say /*display line; 2 sep*/
Parse Arg low,high /* get the Low and High numbers */
out.=''
⚫
return /*return to invoker. */
⚫
Do n=low To high /* process the range, from low */
/*──────────────────────────────────────────────────────────────────────────────────────*/
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 'numbers from' low 'to' high '(inclusive):' /*display the output */
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
/*-------------------------------------------------------------------------*/
⚫
th: /* compact original */
Parse Arg z
x=abs(z)
⚫
Return z||word('th st nd rd',1+x//10*(x//100%10\==1)*(x//10<4))
/*-------------------------------------------------------------------------*/
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)
⚫
Else /* all oher cases */
suffix='th'
Return z||suffix</syntaxhighlight>
'''output''' &nbsp; using the default inputs:
'''output''' &nbsp; using the default inputs:
<pre>
<pre>
Retrieved from "https://rosettacode.org/wiki/N%27th"