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(…

Der mathematische Christbaum

Aufgabe (es soll mindestens 2 Lösungen geben, es werden wohl viele sein): https://twitter.com/pickover/status/801597352184201216 Lösung: Code: Ziffern:makelist(z,z,1,9); P:listify(permutations(setify(Ziffern)))$ n:3;i:0; while n>1 do block( ev(i:i+1),Folge:P[i],S1:sum(Folge[j],j,1,4), S2:sum(Folge[j],j,4,7), S3:sum(Folge[j],j,7,9)+Folge[1], Seitensummen:[S1,S2,S3], n:cardinality(setify(Seitensummen)) ); display(Folge,Seitensummen); Erklärung…