Help for this page

Select Code to Download

Select or download this

use feature 'say';
use List::Util qw( product reduce );
...
say f4( 10,   3, 5 );
say f4( 100,  3, 5 );
say f4( 1000, 3, 5 );