Rosetta Code

Sorting algorithms/Strand sort: Difference between revisions

Page Discussion

Sorting algorithms/Strand sort (view source)

Revision as of 15:21, 7 March 2014

88 bytes removed ,  10 years ago
→‎{{header|AutoHotkey}}
Line 12:
string2 := string
Loop
{
{
loop, parse, string, %A_space%
{
{▼
list := 1 = A_index ? A_loopfield : list
StringSplit, k, list, %A_space%
if ( k%k0% <= A_loopfield ) && ( l != "" ) && ( A_index != 1 )
list := list . " " . A_loopfield
 
if ( k%k0% ><= A_loopfield ) && ( l != "" ) && ( A_index != 1 )
list := A_loopfieldlist . " " . list ,A_loopfield index++
 
lif :=( k%k0% > A_loopfield )
list := A_loopfield . " " . list , index++
}
l := A_loopfield
if ( index = 0 )▼
} {
▲ if ( index = 0 )
MsgBox % "unsorted:" string2 "`n Sorted:" list▼
▲ {
exitapp▼
▲ MsgBox % "unsorted:" string2 "`n Sorted:" list
}
▲ exitapp
string := list, list = "", index := 0▼
}
▲ string := list, list = "", index := 0
}
esc::ExitApp</lang>outout<lang>
unsorted:-2 0 -2 5 5 3 -1 -3 5 5 0 2 -4 4 2
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/179387"