Dim gap, swaps, i, t, value(33) As Integer
Dim ch As Double
ch = 1.24733
gap = 33
swaps = 1
Do While ((gap > 1) Or (swaps = 1))
If gap > 1 Then gap = Int(gap / ch)
i = 0
swaps = 0
Do While (i + gap < n)
If value(i) > value(i + gap) Then
t = value(i)
value(i) = value(i + gap)
value(i + gap) = t
swaps = 1
End If
i = i + 1
Loop
Loop
да споделяте – да копирате, разпространявате и излъчвате произведението
да ремиксирате – да адаптирате произведението
Съгласно следните условия:
признание на авторството – Трябва да посочите авторството, да добавите връзка към лиценза и да посочите дали са правени промени. Можете да направите това по всякакъв разумен начин, но не и по начин, оставящ впечатлението, че същият/същите подкрепят вас или използването по някакъв начин на творбата от вас.
споделяне на споделеното – В случай, че промените, видоизмените или използвайки като основа произведението, го надградите, то полученото производно произведение може да се разпространява само съгласно условията на същия или съвместим лиценз с оригиналния такъв.