Aufgabe:
Code:
pz:1$
tag:364$
Liste:[]$
for i:1 while pz Liste:delete(last(Liste),Liste)$
display(Liste)$
Ziffern:charlist(string(tag))$
Ziffern:map(parse_string,Ziffern)$
is(length(Liste)=prod(Ziffern[i],i,1,length(Ziffern)));
Probelauf:
http://maxima-online.org/?inc=r498866649
Die komplette Lösung:
http://maxima-online.org/?inc=r-527135075
Der Quellcode dazu:
for x:10 thru 366 do block(
pz:1,
tag:x,
Liste:[],
for i:1 while pz<tag do block(pz:next_prime(pz),Liste:append(Liste,[pz])),
Liste:delete(last(Liste),Liste),
Ziffern:charlist(string(tag)),
Ziffern:map(parse_string,Ziffern),
w:is(length(Liste)=prod(Ziffern[i],i,1,length(Ziffern))),
if w then disp([tag,w])
)$