SEND + MORE = MONEY: Difference between revisions
Content added Content deleted
(→{{header|Julia}}: append Free Pascal Verion with brute force.) |
(Added XPL0 example.) |
||
Line 682: | Line 682: | ||
Took 0.051735 seconds. |
Took 0.051735 seconds. |
||
</pre> |
|||
=={{header|XPL0}}== |
|||
<syntaxhighlight lang "XPL0">include xpllib; \for Print |
|||
def M = 1; |
|||
int S, E, N, D, O, R, Y; |
|||
begin \ Solve the SEND+MORE=MONEY puzzle - Translation of the Algol 68 sample |
|||
for S:= 8 to 9 do |
|||
for E:= 0 to 9 do |
|||
if E # M and E # S then |
|||
for N:= 0 to 9 do |
|||
if N # M and N # S and N # E then |
|||
for D:= 0 to 9 do |
|||
if D # M and D # S and D # E and D # N then |
|||
for O:= 0 to 9 do |
|||
if O # M and O # S and O # E and O # N and O # D then |
|||
for R:= 0 to 9 do |
|||
if R # M and R # S and R # E and R # N and R # D and R # O then |
|||
for Y:= 0 to 9 do |
|||
if Y # M and Y # S and Y # E and Y # N and Y # D and Y # O and Y # R then |
|||
if 1000*(S+M) + 100*(E+O) + 10*(N+R) + D + E = 10_000*M + 1000*O + 100*N + 10*E + Y then |
|||
Print("%d%d%d%d + %d%d%d%d = %d%d%d%d%d\n", S, E, N, D, M, O, R, E, M, O, N, E, Y); |
|||
end</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
9567 + 1085 = 10652 |
|||
</pre> |
</pre> |