Zum Pi-Tag 3.14

Aufgabe:

Code 01:

Man kann die Lösung aber auch ohne Computer leicht finden!

gleichung:sqrt(10*p+i)+i+e=sqrt(100*p+10*i+e);
for p:1 thru 9 do
for i:1 thru 9 do
for e:1 thru 9 do
if is(ev(gleichung)) then display(p,i,e);

Code 02:

gleichung:sqrt(10*p+i)+i+e=sqrt(100*p+10*i+e);
liste:makelist(n^2,n,11,31);
kombi:map(charlist,(map(string,liste)))$
ziffern:makelist(map(parse_string,kombi[n]),n,1,length(liste))$
f(x):=is(ev(gleichung,p=ziffern[x][1],i=ziffern[x][2],e=ziffern[x][3]))$
probe:makelist([liste[x],f(x)],x,1,length(liste))$
ergebnis:sublist(probe,lambda([e],e[2]=true));

Anmerkung zur zweiten Zeile:

Da die Wurzeln ganzzahlig sein müssen, erzeugen wir dreistellige Quadratzahlen. Wir könnten auch mit 10 beginne.

 

Gleichung:

leichtgleichung:sqrt(10*p+i)+i+e=sqrt(100*p+10*i+e);


Code 03:

ziffern:{0,1,2,3,4,5,6,7,8,9};
gleichung:sqrt(10*p+i)+i+e=sqrt(100*p+10*i+e);
for p in setdifference(ziffern,{0}) do
for i in setdifference(ziffern,{p}) do
for e in setdifference(ziffern,{p,i}) do
if is(ev(gleichung)) then display(p,i,e);

wxMaxima:

probiere_quadratzahlen

Vroomlab:

pi_vroom

Python:

pi-tag-python