Ludic numbers: Difference between revisions
m
→{{header|REXX}}: spelling
(→{{header|REXX}}: optimized program, only invoke the ludic function once.) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: spelling) |
||
Line 2,909:
@=@' '; 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 d=1 by f while d<=n; n=n-1 /*use 1st number, elide all
@=changestr(' 'word(@, d)" ", @, ' . ') /*crossout a number in @ */
end /*d*/ /* [↑] done eliding the "1st" number. */
|