Vogel's approximation method: Difference between revisions
m
→{{header|Perl 6}}: minor syntax tweak (abandoning alliterative annotations)
(→{{header|Go}}: Added second example.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: minor syntax tweak (abandoning alliterative annotations)) |
||
Line 967:
=={{header|Perl 6}}==
{{works with|Rakudo|
{{trans|Sidef}}
Line 992:
{[$x, my $z = %costs{$x}{%g{$x}[0]},%g{$x}[1] ?? %costs{$x}{%g{$x}[1]} - $z !! $z]}
@d = |@d.grep({ (.[2] ==
@s = |@s.grep({ (.[2] ==
my ($t, $f) = @d[2] == @s[2] ?? (@s[1],@d[1]) !! (@d[2],@s[2]);
| |||