SEND + MORE = MONEY: Difference between revisions
Content added Content deleted
(→{{header|Wren}}: More efficient.) |
(SEND + MORE = MONEY in FreeBasic) |
||
Line 51: | Line 51: | ||
9567 + 1085 = 10652 |
9567 + 1085 = 10652 |
||
</pre> |
</pre> |
||
=={{header|FreeBASIC}}== |
|||
{{Trans|Julia}} |
|||
<syntaxhighlight lang="freebasic">Dim As Byte m = 1, s, e, n, d, o, r, y |
|||
For s = 8 To 9 |
|||
For e = 0 To 9 |
|||
If e <> m And e <> s Then |
|||
For n = 0 To 9 |
|||
If n <> m And n <> s And n <> e Then |
|||
For d = 0 To 9 |
|||
If d <> m And d <> s And d <> e And d <> n Then |
|||
For o = 0 To 9 |
|||
If o <> m And o <> s And o <> e And o <> n And o <> d Then |
|||
For r = 0 To 9 |
|||
If r <> m And r <> s And r <> e And r <> n And r <> d And r <> o Then |
|||
For y = 0 To 9 |
|||
If y <> m And y <> s And y <> e And y <> n And y <> d And y <> o Then |
|||
If ((1000*(s+m)) + (100*(e+o)) + (10*(n+r)) + (d+e)) = _ |
|||
((10000* m) + (1000*o) + (100*n) + (10*e) + y) Then |
|||
Print s & e & n & d & " + " & _ |
|||
m & o & r & e & " = " & m & o & n & e & y |
|||
End If |
|||
End If |
|||
Next y |
|||
End If |
|||
Next r |
|||
End If |
|||
Next o |
|||
End If |
|||
Next d |
|||
End If |
|||
Next n |
|||
End If |
|||
Next e |
|||
Next s |
|||
Sleep</syntaxhighlight> |
|||
{{out}} |
|||
<pre>9567 + 1085 = 10652</pre> |
|||
=={{header|Julia}}== |
=={{header|Julia}}== |