HAIKU Puzzle

Aufgabe:

Informationen zu HAIKU: https://de.wikipedia.org/wiki/Haiku

Code:

zaehler:0$
Ziffern:{0,1,2,3,4,5,6,7,8,9}$
print("# [a, e, f, h, i, k, n, s, u, v]")$
for a in Ziffern do
for e in setdifference(Ziffern,{a}) do
for f in setdifference(Ziffern,{0,a,e}) do
for h in setdifference(Ziffern,{0,a,e,f}) do
for i in setdifference(Ziffern,{a,e,f,h}) do
for k in setdifference(Ziffern,{a,e,f,h,i}) do
for n in setdifference(Ziffern,{a,e,f,h,i,k}) do
for s in setdifference(Ziffern,{0,a,e,f,h,i,k,n}) do
for u in setdifference(Ziffern,{a,e,f,h,i,k,n,s}) do
for v in setdifference(Ziffern,{a,e,f,h,i,k,n,s,u}) do
if 120*v+10000*s+n+200*i+2000*f+1012*e=u+10*k+100*i+10000*h+1000*a
then block(
ev(zaehler:zaehler+1),
print (zaehler,[a,e,f,h,i,k,n,s,u,v]));

CESGA:

Der Code wird sehr schnell ausgeführt! http://maxima.cesga.es


wxMaxima
:

haiku_iter

Gleichung ermitteln als Vorbereitung:

haiku_gleichung