measure-regex.raku

measure-regex.raku

use Physics::Measure :ALL;

$Physics::Measure::number-comma = ''; 

my @lines = q:to/END/;
say &fs('car in USA highway');
# The average speed of cars on US highways is approximately 65 mph.

say &fs('rocket leaving Earth');
#The average speed of a rocket leaving Earth is approximately 7.8 km/s.

say &fs('rocket leaving Earth in miles per hour');
# The average speed of a rocket leaving Earth is approximately 25,000 mph.
END

for @lines.split("\n").grep( / \# / ) -> $line {
    $line ~~ / 'is approximately ' (.*?) '.' $/; 
    say ♎️"$0";
}

say '--';

my regex measure {
    .+                          #grab chars
    <?{ ♎️"$/" ~~ Measure }>    #assert coerces via '♎️' to Measure 
}

for @lines.split("\n").grep( / \# / ) -> $line is copy {
    $line .= chop;
    $line ~~ / 'is approximately ' <measure> $/; 
    say ♎️"$/<measure>";
}

65mph
7.8km/s
25000mph
--
65mph
7.8km/s
25000mph