Tag 364

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:

lsg364

http://maxima-online.org/?inc=r498866649

Die komplette Lösung:

wx364

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])
)$

Über Johnny Weilharter

Direktor i. R. der Bundeshandelsakademie und Bundeshandelssschule in Tamsweg, Österreich
Dieser Beitrag wurde unter BYOD, Hansruedi Widmer, Kompetenzorientiert, Listenverarbeitung, Literaturhinweis, Primzahlen, ZUSAMMENARBEIT veröffentlicht. Setze ein Lesezeichen auf den Permalink.