Simulated annealing: Difference between revisions
m
→{{header|Perl 6}}: moved line to follow relevant comment
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops, print statement) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: moved line to follow relevant comment) |
||
Line 779:
else { return (na + nb + nc + nd) - (a + b + c + d) }
}
my \s = my @s = flat 0, (1 ..^ cities).pick(*), 0;▼
# E(s0), initial state
▲my \s = my @s = flat 0, (1 ..^ cities).pick(*), 0;
my \E-min-global = my \E-min = my $s0 = Es(s);
| |||