Quadratwurzel Kryptogramm

Aufgabe:

Code:

zahl1:[C,O,M,P,U,T,E,R]$
zahl2:[B,O,O,T]$
f8:[10^7,10^6,10^5,10^4,10^3,10^2,10^1,10^0]$
f4:[10^3,10^2,10^1,10^0]$
gleichung:sqrt(zahl1.f8)=zahl2.f4$
ziffern:setify(makelist(i,i,0,9))$
zaehler:0$
disp(["#",zahl1,zahl2])$
for C in setdifference(ziffern,{0}) do \
for O in setdifference(ziffern,{C}) do \
for M in setdifference(ziffern,{C,O}) do \
for P in setdifference(ziffern,{C,O,M}) do \
for U in setdifference(ziffern,{C,O,M,P}) do \
for T in setdifference(ziffern,{C,O,M,P,U}) do \
for E in setdifference(ziffern,{C,O,M,P,U,T}) do \
for R in setdifference(ziffern,{C,O,M,P,U,T,E}) do \
for B in setdifference(ziffern,{0,C,O,M,P,U,T,E,R}) do \
if is(ev(gleichung)) then block(ev(zaehler:zaehler+1),
disp([zaehler,ev(zahl1),ev(zahl2)])
)$

Vroomlab:

puzzle#85

wxMaxima:

puzzle#85wx