Ludic numbers: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: optimized program, only invoke the ludic function once.) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: spelling) |
||
Line 2,909: | Line 2,909: | ||
@=@' '; n=words(@) /*append a blank to the number sequence*/ |
@=@' '; n=words(@) /*append a blank to the number sequence*/ |
||
do while n\==0; f=word(@,1); $=$ f /*examine the first word in @; add to $*/ |
do while n\==0; f=word(@,1); $=$ f /*examine the first word in @; add to $*/ |
||
do d=1 by f while d<=n; n=n-1 /*use 1st number, elide all |
do d=1 by f while d<=n; n=n-1 /*use 1st number, elide all occurrences*/ |
||
@=changestr(' 'word(@, d)" ", @, ' . ') /*crossout a number in @ */ |
@=changestr(' 'word(@, d)" ", @, ' . ') /*crossout a number in @ */ |
||
end /*d*/ /* [↑] done eliding the "1st" number. */ |
end /*d*/ /* [↑] done eliding the "1st" number. */ |