Random Latin Squares - Rosetta Code

[bplus]

See Rosetta Code:  http://rosettacode.org/wiki/Random_Latin_squares

Code: QB64: [Select]

1. _Title "Random Latin Squares - Rosetta Code" ' b+ 2022-03-25
2. ' ref http://rosettacode.org/wiki/Random_Latin_squares
3. Randomize Timer
4. $Console:Only
5. Dim test, i, j
6. ReDim b%(0, 0)
7. Print "As required by RC:"
8. For test = 1 To 2
9.     n = 5
10.     RandomLatinSquare n, b%()
11.     displayLatinSquare n, b%()
12. Next
13. Print "Showing off:"
14. For n = 2 To 16
15.     RandomLatinSquare n, b%()
16.     displayLatinSquare n, b%()
17. Next
18.  
19. Sub RandomLatinSquare (n As Integer, RtnArray%())
20.     Dim As Integer a(0 To n - 1), b(0 To n - 1)
21.     For i = 0 To n - 1
22.         a(i) = i: b(i) = i
23.     Next
24.     For i = n - 1 To 1 Step -1
25.         Swap a(Int((i + 1) * Rnd)), a(i)
26.         Swap b(Int((i + 1) * Rnd)), b(i)
27.     Next
28.     ReDim RtnArray%(0 To n - 1, 0 To n - 1)
29.     For i = 0 To n - 1
30.         For j = 0 To n - 1
31.             RtnArray%(j, i) = (a(j) + b(i)) Mod n
32.         Next
33.     Next
34. End Sub
35.  
36. Function pad$ (n, nSpaces)
37.     pad$ = Right$(Space$(nSpaces) + _Trim$(Str$(n)), nSpaces)
38. End Function
39.  
40. Sub displayLatinSquare (n As Integer, b%())
41.     For i = 0 To n - 1
42.         For j = 0 To n - 1
43.             If n < 10 Then Print pad$(b%(j, i), 2); Else Print pad$(b%(j, i), 3);
44.         Next
45.         Print
46.     Next
47.     Print
48. End Sub
49.  
50.  
51.  

Some low hanging fruit, no FreeBasic (or any other Basic) version yet!?