Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_BitRevShuffle
Wendet auf das übergebene Array das Bit-Reverse-Shuffling aus.
Dim werte(0 to 15) As Integer
Dim Shuffled As Variant
Dim i As Long
For i = 0 To 15
werte(i) = i
Next
Shuffled = CNCL_BitRevShuffle(werte)
For i = 0 To 15
Print Shuffled(i)
Next
Ausgabe:
0
8
4
12
2
10
6
14
1
9
5
13
3
11
7
15