Abt. Magische Quadrate brute force suchen ??
=============================
Magische Quadrate mit der Methode "Alle Zahlen durchprobieren" suchen ist gelinde gesagt:
§%&)!#blöd! Beweis anbei...
Gruss
Code
var k&=9
WindowTitle "Auf der Jagd nach Magischen Quadraten 3x3 bis Z_max="+str$(k&)
WindowStyle 24:Window 0,0-%maxx,%maxy:showmax:font 2:
declare n&,x1&,x2&,x3&,x4&,x5&,x6&,x7&,x8&,x9&,s!
s!=1:whileloop k&,2,-1:s!=s!*k&:endwhile:set("decimals",0)
print s!;" Kombinationen testen":s!=0
whileloop 1,k&:x1&=&Loop
whileloop 1,k&:x2&=&Loop
case x2&=x1&:continue
whileloop 1,k&:x3&=&Loop
case x3&=x1&:continue
case x3&=x2&:continue
s!=x1&+x2&+x3&
::print "*";
whileloop 1,k&:x4&=&Loop
case x4&=x1&:continue
case x4&=x2&:continue
case x4&=x3&:continue
whileloop 1,k&:x5&=&Loop
case x5&=x1&:continue
case x5&=x2&:continue
case x5&=x3&:continue
case x5&=x4&:continue
whileloop 1,k&:x6&=&Loop
case x6&=x1&:continue
case x6&=x2&:continue
case x6&=x3&:continue
case x6&=x4&:continue
case x6&=x5&:continue
whileloop 1,k&:x7&=&Loop
case x7&=x1&:continue
case x7&=x2&:continue
case x7&=x3&:continue
case x7&=x4&:continue
case x7&=x5&:continue
case x7&=x6&:continue
whileloop 1,k&:x8&=&Loop
case x8&=x1&:continue
case x8&=x2&:continue
case x8&=x3&:continue
case x8&=x4&:continue
case x8&=x5&:continue
case x8&=x6&:continue
case x8&=x7&:continue
whileloop 1,k&:x9&=&Loop
case x9&=x1&:continue
case x9&=x2&:continue
case x9&=x3&:continue
case x9&=x4&:continue
case x9&=x5&:continue
case x9&=x6&:continue
case x9&=x7&:continue
case x9&=x8&:continue
if s!=(x4&+x5&+x6&)
if s!=(x7&+x8&+x9&)
if s!=(x1&+x4&+x7&)
if s!=(x2&+x5&+x8&)
if s!=(x3&+x6&+x9&)
if s!=(x1&+x5&+x9&)
if s!=(x7&+x5&+x3&)
print:inc n&
font 2:print n&;"(";int(s!);")":font 0
print x1&,x2&,x3&
print x4&,x5&,x6&
print x7&,x8&,x9&
beep
endif
endif
endif
endif
endif
endif
endif
endwhile
endwhile
endwhile
endwhile
endwhile
endwhile
endwhile
endwhile
endwhile
print "\n----Ende-----"
sound 1000,160
waitinput
end
Alles anzeigen