Jump to content

Best shuffle: Difference between revisions

Best shuffle (view source)

Revision as of 02:26, 12 April 2016

854 bytes added ,  8 years ago
m
→‎{{header|REXX}}: added/changed comments and whitespace, changed indentations.
m (added whitespace before the TOC.)
m (→‎{{header|REXX}}: added/changed comments and whitespace, changed indentations.)
Line 2,660:
 
=={{header|REXX}}==
<lang rexx>/*REXX program finds determins and displays the best shuffle (for any list of words (charactersletters). */
parse arg @ /*get some words from the command line.*/
if @='' then @ = 'tree abracadabra seesaw elk grrrrrr up a' /*use defaultthe defaults? */
w=0 /*width of the longest word; for output*/
do i=1 for words(@) /* [↓] process all the words in list. */
w=max(w, length(word(@, i))) /*set the maximum word width (so far). */
end /*i*/ /* [↑] ··· finds the widest word in @.*/
w=w+9 /*add 9 blanks, thefor output looks nicerindentation. */
do n=1 for words(@) /*process all the words in the @ list. */
$=word(@,n) /*get the original word in the @ list. */
new=bestShuffle($) /*get a shufflized version of the word.*/
say 'original:' left($,w) 'new:' left(new,w) 'count:' kSame($,new)
end /*n*/
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
/*──────────────────────────────────BESTSHUFFLE subroutine────────────────────*/
bestShuffle: procedure; parse arg x 1 ox; Lx=length(x)
if Lx<3 then return reverse(x) /*fast track these small # of puppies. strings*/
 
do j=1 for Lx-1; jp=j+1 /* [↓] handle any possible replicates.*/
a=substr(x,j ,1)
b=substr(x,j+1,1); if a\==b then iterate /*ignore any replicates. */
_=verify(x,a) ; if _==0 then iterate /*switch 1st replicate with" " " some char. */
y=substr(x,_,1); x=overlay(a,x,_) /*switch (swap) two ··· */
x=overlay(y,x,j) /* ··· (x,y) characters.*/
rx=reverse(x); _=verify(rx,a); if _==0 then iterate /*¬enoughcheck back end for uniquenessreps.*/
if _==0 then iterate /*not enough uniquenes.*/
y=substr(rx,_,1); _=lastpos(y,x) /*switch 2nd replicate with later char.*/
x y=overlaysubstr(a,xrx,_,1); x _=overlaylastpos(y,x,jp) /*OVERLAYs: a fast way to swap chars. /*switch 2nd rep with char*/
x=overlay(a,x,_); x=overlay(y,x,jp) /*fast way to swap chars. */
end /*j*/
 
do k=1 for Lx /*handle cases ofa possible replicatesrep. */
a= substr( x, k, 1) /*obtain single character.*/
b= substr(ox, k, 1); if a\==b then iterate /*skipobtain the replicate.original char*/
if ka\==Lxb then x=left(x,k-2)aiterate || substr(x,k-1,1) /*handleskip non-replications. last case*/
else if k==Lx then x=left(x, k-1)substr(x,k+1,12)a || substr(x, k+2-1, 1) /*last case.*/
else x=left(x, k-1)substr(x, k+1, 1)a || substr(x, k+2)
end /*k*/
return x
return x
/*──────────────────────────────────KSAME procedure───────────────────────────*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
kSame: procedure; parse arg x,y; k=0; Lx=length(x); Ly=length(y)
do m=1 for min(length(x)Lx, length(y)Ly); k=k + (substr(x, m, 1) == substr(y, m, 1))
end /*m*/
end /*m*/
return k</lang>
'''output''' &nbsp; (with a freebie thrown in):
<pre>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/167041"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information