Zum Inhalt springen
Aufgabe: https://twitter.com/shahlock/status/843802091818770432 Code 01: f(x):=makelist(10^(x-i),i,1,x); zahl1:[s,p,r,i,n,g]; zahl2:zahl1; zahl3:[a,l,l,e,r,g,y]; gleichung:zahl1.f(6)+zahl2.f(6)=zahl3.f(7); buchstaben:setify(flatten([zahl1,zahl2,zahl3])); Code 02: ziffern:setify(makelist(i,i,0,9))$ disp(" {a,e,g,i,l,n,p,r,s,y}")$ for a in setdifference(ziffern,{0}) do \ for e in setdifference(ziffern,{a}) do \ for g in…
Aufgabe: https://twitter.com/shahlock/status/843105753925914625 Informationen zu HAIKU: https://de.wikipedia.org/wiki/Haiku Code: zaehler:0$ Ziffern:{0,1,2,3,4,5,6,7,8,9}$ print("# [a, e, f, h, i, k, n, s, u, v]")$ for a in Ziffern do for e in setdifference(Ziffern,{a}) do for…
Aufgabe: Man bestimme die dreistelligen Quadratzahlen mit lauter verschiedenen Ziffern. Code: qzahlen:makelist(i^2,i,ceiling(sqrt(100)),floor(sqrt(999))); zeichen:map(charlist,(map(string,qzahlen)))$ ziffern:makelist(map(parse_string,zeichen[i]),i,1,length(qzahlen))$ vziffern:sublist(ziffern,lambda([e],cardinality(setify(e))=3))$ f(x):=x.[100,10,1]$ ergebnis:map(f,vziffern); wxMaxima: Zusatzaufgabe: Wie viele vierstellige Quadratzahlen gibt es und wie viele davon haben…
Aufgabe: Die Quadrate von maximal neunstelligen Zahlen, die nur die Ziffer 1 enthalten, sind Palindrome. Code: f(n):=sum(10^(i-1),i,1,n),simpsum; [transpose(makelist(f(i),i,1,10)),transpose(makelist("*",i,1,10)),\ transpose(makelist(f(i),i,1,10)),transpose(makelist("=",i,1,10)),\ transpose(makelist(f(i)^2,i,1,10))]; wxMaxima-Programm: Maxima Online: http://maxima-online.org/?inc=r-220221196 ---
