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
partilhar – copiar, distribuir e transmitir a obra
recombinar – criar obras derivadas
De acordo com as seguintes condições:
atribuição – Tem de fazer a devida atribuição da autoria, fornecer uma hiperligação para a licença e indicar se foram feitas alterações. Pode fazê-lo de qualquer forma razoável, mas não de forma a sugerir que o licenciador o apoia ou subscreve o seu uso da obra.
partilha nos termos da mesma licença – Se remisturar, transformar ou ampliar o conteúdo, tem de distribuir as suas contribuições com a mesma licença ou uma licença compatível com a original.