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