ideal-body-weight-calculator.p6

# 0.25 500$
# 2000,

use IO::Prompt;
# http://www.builtlean.com/2010/05/04/ideal-body-weight-formula-how-to-calculate-your-ideal-weight/

sub postfix:<%>(Numeric $x --> Numeric) {
    $x / 100
}

my $body-weight = ask 'Weight:', :type(Num);
my $body-fat-precentage = (ask 'Fat percentage:', :type(Num))%;
my $desired-body-fat-percentage = (ask 'Target fat percentage:', 25, :type(Num))%;

my $lean-body-mass =
    $body-weight - ($body-weight * $body-fat-precentage);

my $ideal-body-weight =
    $lean-body-mass / (1 - $desired-body-fat-percentage);

say 'Target weight: ' ~ $ideal-body-weight;