simplode() am Tag 342

Aufgabe:

Lösung mit wxMaxima:

Anmerkung: simplode(Liste) fügt die Elemente einer Liste zu einem einzigen String zusammen.

Code:

n:342$
pz:1$
zusammen:[]$
for i:1 thru n do block(pz:next_prime(pz), zusammen:append(zusammen,[pz]))$
zusammen$
ergebnis:simplode(zusammen)$
ergebnis:parse_string(ergebnis)$
ist_primzahl:primep(ergebnis);
laenge:length(charlist(string(ergebnis)));

Probelauf mit Maxima Online:

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

Lösung mit Sagecell: