Discussion on: Daily Challenge #64- Drying Potatoes

#!/usr/bin/perl
use warnings;
use strict;

use Types::Standard qw( Int );
use Function::Parameters;

fun potatoes (Int $p0, Int $w0, Int $p1) {
    sprintf '%d', $w0 * (100 - $p0) / (100 - $p1)
}

use Test::More tests => 2;
is potatoes(99, 100, 98), 50;
is potatoes(50, 200, 25), 133;

dm = w0 * (1 - p0)
dm = w1 * (1 - p1)

w1 = w0 * (1 - p0) / (1 - p1)