USSR puzzle digital

[DANILIN]

my variant can distort your variants

Code: (Select All)

Dim s As Long: t = Timer
For a = 0 To 9: For b = 0 To 9: For c = 0 To 9
For d = 0 To 9: For e = 0 To 9: For f = 0 To 9
For g = 0 To 9: For h = 0 To 9: For i = 0 To 9

    If a * b - c <> 4 Then 5
    If d + e + f <> 8 Then 5
    If g / h + i <> 8 Then 5

    If a / d + g <> 9 Then 5
    If b + e + h <> 8 Then 5
    If c + f - i <> 6 Then 5

    Print a, b, c
    Print d, e, f
    Print g, h, i: Print: Print

5 s = s + 1: Next: Next: Next: Next: Next
Next: Next: Next: Next: Print s / 10 ^ 6; " mln", Timer - t
End

Code: (Select All)

[qbjs]https://qbjs.org/?mode=auto&src=https://qb64phoenix.com/forum/attachment.php?aid=5667[/qbjs]