USSR puzzle digital

[DANILIN]

Exclude h=0 and d=0 ?
Possible negative numerals from -9 to 9
and 21 decisions

Code: (Select All)

Dim s As Long: t = Timer ' ussr_puzzle_minus.bas
Open "ussr_puzzle_minus.txt" For Output As #1
For a = -9 To 9: For b = -9 To 9: For c = -9 To 9
  For d = -9 To 9: For e = -9 To 9: For f = -9 To 9
  For g = -9 To 9: For h = -9 To 9: For i = -9 To 9
  s = s + 1
           If a * b - c <> 4 Then 7
         If d + e + f <> 8 Then 4
       If g / h + i <> 8 Then 1

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

    x = x + 1: Print "#"; x
    Print a, b, c
    Print d, e, f
    Print g, h, i: Print: Print

    Print #1, "#"; x
    Print #1, a, b, c
    Print #1, d, e, f
    Print #1, g, h, i: Print #1,

    1 Next i
    2 Next h
    3 Next g
    4 Next f
  5 Next e
  6 Next d
  7 Next c
  8 Next b
9 Next a
Print s / 10 ^ 6; " mln", Timer - t
End

Thank All for decisions


       
   


Conditions after first cycles
d>=1 & h>=1
0,0094 mln 2,7E-03 sec

Code: (Select All)

Dim s As Long: t = Timer(0.001) ' ussr_puzzle_subzero.bas
For a = 0 To 9: For b = 0 To 9: For c = 0 To 9
    If a * b - c <> 4 Then 7

  For d = 1 To 9: For e = 0 To 9: For f = 0 To 9
      If d + e + f <> 8 Then 4

    For g = 0 To 9: For h = 1 To 9: For i = 0 To 9
        If g / h + i <> 8 Then 1

  s = s + 1
           If a / d + g <> 9 Then 3
         If b + e + h <> 8 Then 2
       If c + f - i <> 6 Then 1

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

    1 Next i
    2 Next h
    3 Next g
    4 Next f
  5 Next e
  6 Next d
  7 Next c
  8 Next b
  9 Next a
Print s / 10 ^ 6; " mln", Timer(0.001) - t
End

since 1990 and 2020:  Rebus of Letters
https://qb64forum.alephc.xyz/index.php?topic=2961
https://qb64forum.alephc.xyz/index.php?topic=2961.15

Nobel Prize will not receive itself
Nobelevskaya premiya sama sebya ne poluchit
Нобелевская премия сама себя не получит
Le prix Nobel ne se recevra pas
Nobelpreis wird sich nicht erhalten
Il Premio Nobel non ricevera se stesso

Russian Civilization as YouTube: RUtube https://rutube.ru/