Price fraction: Difference between revisions

=={{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>