Übung zur Listenverarbeitung (Cliff Pickover)

Aufgabenstellung:

Code:

zahl:2646798;
zahl1:charlist(string(zahl));
zahl2:map(parse_string,zahl1);
n:length(zahl2);
summe:sum(zahl2[i]^i,i,1,n);
is(zahl=summe);

Ausführung mit http://maxima-online.org:

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

sol

oder mit http://sagecell.sagemath.org:

Sagecell