Muster-Erkennung

Aufgabe: Das Muster ist leicht zu erkennen. Es ist aber interessant, das Muster zu programmieren (zweidimensionale Felder). Code: Summanden:[[5,2],[6,3],[7,4],[8,3],[9,6],[13,6],[16,5],[17,8]]$ n:length(Summanden)$ S1:makelist(Summanden[i][1],i,1,n)$ S2:makelist(Summanden[i][2],i,1,n)$ s(x):=block(S:map(string,[x[1]-x[2],x[1]+x[2],x[1]*x[2]]),sconcat(S[1],S[2],S[3]))$ Summen:map(s,Summanden)$ disp([" x "," y ","Summe"])$ Aufgabe:[transpose(S1),transpose(S2),transpose(Summen)]$…

Ü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]$…