Puzzle#86

Aufgabe: https://twitter.com/shahlock/status/850294052767531008 Mathematische Anmerkung: Kryptogramme mit Wurzeln sind ein "Leckerbissen", eine Delikatesse. Üblicherweise herrscht die Addition vor. Code: zahl1:[N,O,N,R,A,N,D,O,M]$ zahl2:[D,E,I,T,Y]$ f9:[10^8,10^7,10^6,10^5,10^4,10^3,10^2,10^1,10^0]$ f5:[10^4,10^3,10^2,10^1,10^0]$ gleichung:sqrt(zahl1.f9)=zahl2.f5$ ziffern:setify(makelist(i,i,0,9))$ zaehler:0$ disp(["#",zahl1,zahl2])$ for N in setdifference(ziffern,{0})…

Über Quadratzahlen

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…

TRIG Kryptogramm

Aufgabe: Was auf Überprüfung wartet. Die Rechenzeit wird wohl heftig sein, wenn man alle Lösungen will. https://twitter.com/shahlock/status/839860057256902656 Wie man die Gleichung bekommt. Code: Funktionen1:[SIN,COS,TAN,CSC,SEC,COT]$ Funktionen2:map(string,Funktionen1)$ f(x):=charlist(string(x))$ Funktionen3:map(f,Funktionen1)$ Funktionen4:makelist(map(parse_string,Funktionen3[i]),i,1,6)$ F1:[100,10,1]$ F2:[1000,100,10,1]$…