Puzzle#86

Aufgabe:

Mathematische Anmerkung:

Kryptogramme mit Wurzeln sind ein „Leckerbissen“, eine Delikatesse. Üblicherweise herrscht die Addition vor.


Code
:

zahl1:[N,O,N,R,A,N,D,O,M]$
zahl2:[D,E,I,T,Y]$
f9:[10^8,10^7,10^6,10^5,10^4,10^3,10^2,10^1,10^0]$
f5:[10^4,10^3,10^2,10^1,10^0]$
gleichung:sqrt(zahl1.f9)=zahl2.f5$
ziffern:setify(makelist(i,i,0,9))$
zaehler:0$
disp(["#",zahl1,zahl2])$
for N in setdifference(ziffern,{0}) do \
for O in setdifference(ziffern,{N}) do \
for R in setdifference(ziffern,{N,O}) do \
for A in setdifference(ziffern,{N,O,R}) do \
for D in setdifference(ziffern,{0,N,O,R,A}) do \
for M in setdifference(ziffern,{N,O,R,A,D}) do \
for E in setdifference(ziffern,{N,O,R,A,D,M}) do \
for I in setdifference(ziffern,{N,O,R,A,D,M,E}) do \
for T in setdifference(ziffern,{N,O,R,A,D,M,E,I}) do \
for Y in setdifference(ziffern,{N,O,R,A,D,M,E,I,T}) do \
if is(ev(gleichung)) then block(
ev(zaehler:zaehler+1),
disp([zaehler,ev(zahl1),ev(zahl2)])
)$

Vroomlab:

puzzle#86.png

wxMaxima:

puzzle#86wx