Apokalyptisches Magisches Quadrat

Aufgabe: https://twitter.com/pickover/status/815357619800014848 Code für die Matrix: A:matrix([003,107,005,131,109,311], [007,331,193,011,083,041], [103,053,071,089,151,199], [113,061,097,197,167,031], [367,013,173,059,017,037], [073,101,127,179,139,047]); Wir prüfen zunächst die Primzahleigenschaft. http://maxima-online.org/?inc=r738379314 Zeilen- und Spaltensummen: http://maxima-online.org/?inc=r-447557447 Diagonalsummen: http://maxima-online.org/?inc=r-1978054743 Versetzte Diagonalen (erster Versuch): http://maxima-online.org/?inc=r564043180 Literaturhinweis…

Tag 364

Aufgabe: https://twitter.com/HansruediWidmer/status/814350241994448896 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(…