riki107 |
|
| Salve, adoro questo smile ->  XD Comunque la mia implementazione (e vedi che difficoltà) dello Shaker Sort  Be Positive, peace and love  CODICE ; Shaker Sort :D
Dim $Init[20]
For $i = 0 To Ubound($Init)-1
$Init[$i] = Random(1, 1000, 1)
Next
;Begin Shaker Sort :D :D
; Adoro questo smile :D
While _Verified() <> 1
For $i = 0 To Ubound($Init)-2
If $Init[$i] > $Init[$i+1] Then
$vTmp = $Init[$i]
$Init[$i] = $Init[$i+1]
$Init[$i+1] = $vTmp
EndIf
Next
For $i = Ubound($Init)-2 To 1 Step -1
If $Init[$i] < $Init[$i-1] Then
$vTmp = $Init[$i]
$Init[$i] = $Init[$i-1]
$Init[$i-1] = $vTmp
EndIf
Next
WEnd
MsgBox(0, "", "Complete")
Func _Verified()
Dim $Ver[10]
For $i = 0 To Ubound($Init)-2
If $Init[$i] > $Init[$i+1] Then
Return (-1)
EndIf
Next
Return 1
EndFunc (Ah, sì, questo post non ha alcun senso  ) |
| | |
