Anonymous user
Topswops: Difference between revisions
m
→{{header|REXX}}: optimized a subroutine.
m (→{{header|REXX}}: changed some comments and whitespace.) |
m (→{{header|REXX}}: optimized a subroutine.) |
||
Line 1,838:
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
swops: parse arg z; do u=1; parse var z t
if word(z, t)==1 then return u
do
z=changestr(h, z, d2x(h) )
z=reverse(
end /*u*/</lang>
Some older REXXes don't have a '''changestr''' bif, so one is included here ───► [[CHANGESTR.REX]].
|