Ein neues Kryptogramm

Aufgabenquelle:
https://solvemymaths.files.wordpress.com/2016/02/starter-pack-term-31.pdf

Code:

A:[H,E,R,E];
B:[S,H,E];
C:[C,O,M,E,S];
Buchstaben:listify(union(setify(A),setify(B),setify(C)));
for C:1 thru 9 do
for E:0 thru 9 do
for H:0 thru 9 do
for M:0 thru 9 do
for O:0 thru 9 do
for R:0 thru 9 do
for S:0 thru 9 do
block(
ev(Buchstaben:[C,E,H,M,O,R,S]),
if (1000*H+100*E+10*R+E)
+100*S+10*H+E
=10000*C+1000*O+100*M+10*E+S then
if cardinality(setify(Buchstaben))= length(Buchstaben) then
disp(Buchstaben,"",1000*H+100*E+10*R+E,"+",100*S+10*H+E,
"=",10000*C+1000*M+100*E+10*E+S));

Berechnung mit http://worksheetgarden.com

(%i2)                          A : [H, E, R, E]
(%o2)                            [H, E, R, E]
(%i3)                            B : [S, H, E]
(%o3)                              [S, H, E]
(%i4)                         C : [C, O, M, E, S]
(%o4)                           [C, O, M, E, S]
(%i5)    Buchstaben : listify(union(setify(A), setify(B), setify(C)))
(%o5)                        [C, E, H, M, O, R, S]
(%i6) for C thru 9 do (for E from 0 thru 9
do (for H from 0 thru 9 do (for M from 0 thru 9
do (for O from 0 thru 9 do (for R from 0 thru 9
do (for S from 0 thru 9 do block(ev(Buchstaben : [C, E, H, M, O, R, S]),
if E + 10 H + 100 S + (E + 10 R + 100 E + 1000 H) =
S + 10 E + 100 M + 1000 O + 10000 C then (if cardinality(setify(Buchstaben)) =
length(Buchstaben) then disp(Buchstaben, , E + 10 R + 100 E + 1000 H, +,
E + 10 H + 100 S, =, S + 10 E + 100 E + 1000 M + 10000 C)))))))))
[1, 4, 9, 3, 0, 5, 8]

9454

+

894

=

13448

Eine weitere Aufgabe:

COCA + COLA = OASIS  http://maxima-online.org/?inc=r-595195508

Über Johnny Weilharter

Direktor i. R. der Bundeshandelsakademie und Bundeshandelssschule in Tamsweg, Österreich
Dieser Beitrag wurde unter Listenverarbeitung, RÄTSEL veröffentlicht. Setze ein Lesezeichen auf den Permalink.