Price fraction: Difference between revisions
Content added Content deleted
(added perl6) |
|||
Line 766: | Line 766: | ||
end |
end |
||
end</lang> |
end</lang> |
||
=={{header|Perl 6}}== |
|||
<lang perl6>my $table = " |
|||
>= 0.00 < 0.06 := 0.10 |
|||
>= 0.06 < 0.11 := 0.18 |
|||
>= 0.11 < 0.16 := 0.26 |
|||
>= 0.16 < 0.21 := 0.32 |
|||
>= 0.21 < 0.26 := 0.38 |
|||
>= 0.26 < 0.31 := 0.44 |
|||
>= 0.31 < 0.36 := 0.50 |
|||
>= 0.36 < 0.41 := 0.54 |
|||
>= 0.41 < 0.46 := 0.58 |
|||
>= 0.46 < 0.51 := 0.62 |
|||
>= 0.51 < 0.56 := 0.66 |
|||
>= 0.56 < 0.61 := 0.70 |
|||
>= 0.61 < 0.66 := 0.74 |
|||
>= 0.66 < 0.71 := 0.78 |
|||
>= 0.71 < 0.76 := 0.82 |
|||
>= 0.76 < 0.81 := 0.86 |
|||
>= 0.81 < 0.86 := 0.90 |
|||
>= 0.86 < 0.91 := 0.94 |
|||
>= 0.91 < 0.96 := 0.98 |
|||
>= 0.96 < 1.01 := 1.00 |
|||
"; |
|||
my $value = 0.44; |
|||
say price($value); |
|||
sub price($value) |
|||
{ |
|||
for $table.lines -> $line { |
|||
$line ~~ / '>=' \s+ (\S+) \s+ '<' \s+ (\S+) \s+ ':=' \s+ (\S+)/; |
|||
return $2 if $0 <= $value < $1; |
|||
} |
|||
return fail; |
|||
}</lang> |
|||
=={{header|PL/I}}== |
=={{header|PL/I}}== |