SEND + MORE = MONEY: Difference between revisions
SEND + MORE = MONEY in FreeBasic
(→{{header|Wren}}: More efficient.) |
(SEND + MORE = MONEY in FreeBasic) |
||
Line 51:
9567 + 1085 = 10652
</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}}==
| |||