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:
gleichung: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:
Vroomlab:
Python:
