Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- use v5.12;
- my %hash = ( a => 1, b => 2, c => 3, d => 4 );
- my $value = 1;
- $value = $value * $_ foreach values %hash;
- say $value;
- use List::Util 'reduce';
- my %hash = (foo => 3, bar => 7, baz => 2);
- say reduce { our $a * our $b } values %hash;
- my $prod = 1;
- $prod *= $hash{$_} for keys %hash;
- my $m = 1;
- for (values %my_hash) {
- $m *= $_;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement