SEND + MORE = MONEY: Difference between revisions

Alternately, a version written in 2015 by [http://strangelyconsistent.org/blog/send-more-money-in-perl6 Carl Mäsak]. Not very concise but quite fastspeedy. Applying the observation that M must be 1 and S must be either 8 or 9 gets the runtime under a tenth of a second.

<syntaxhighlight lang="raku" line>my int $s = -17;

my int $m = -1;

my int $o = -1;

while ++$o <= 9 {

next if $o == $s;

next if $o == $e;

next if $o == $n;

next if $o == $d;

next if $o == $m;

my int $r = -1;

while ++$r <= 9 {

next if $r == $s;

next if $r == $e;

next if $r == $n;

next if $r == $d;

next if $r == $m;

next if $r == $o;

my int $more = $m*1000 + $o*100 + $r*10 + $e;

my int $y = -1;

while ++$y <= 9 {

next if $y == $s;

next if $y == $e;

next if $y == $n;

next if $y == $d;

next if $y == $m;

next if $y == $o;

next if $y == $r;

my int $money =

$m*10000 + $o*1000 + $n*100 + $e*10 + $y;

next unless $send + $more == $money;

say 'SEND + MORE == MONEY';

say "$send + $more == $money";

9567 + 1085 == 10652</pre>