Zum Tag 70 des Jahres 2018

Aufgabe:

Da gibt es was zu kontrollieren.

Bei der Berechnung von 2^70 und der Überprüfung auf Primzahleigenschaft bin ich auf Technologiehilfe angewiesen. Jedenfalls eine schöne Programmierübung.

Code:

zahl:2^70$
liste:charlist(string(zahl))$
ziffern:map(parse_string,liste)$
n:length(ziffern)$
ziffernsumme:sum(ziffern[i],i,1,n)$
reverseziffern:reverse(ziffern)$
faktor:makelist(10^(n-i),i,1,n)$
reverse_ist_primzahl:primep(reverseziffern.faktor)$
display(ziffernsumme)$
display(reverse_ist_primzahl)$

Vroomlab:

tag70.PNG
Vroomlab ist von Michael Xue.

Telemaxima:

telemaxima-70
Wenn man den Maxima-Code mit dem Telegram Messenger an Telemaxima schickt, bekommt man das Ergebnis als Antwort zurück!