Help for this page
#!/usr/bin/perl use warnings; ... print map "$_ => " . ($hash{$_} / $sum) . "\n", sort { $hash{$a} <=> $ +hash{$b} } keys %hash; print "Combinations: $combinations, Count: $sum.\n";
use Algorithm::Combinatorics qw(combinations); my %hash; ... while (my $rack = $iterator->next) { $hash{ join q(), @$rack }++; }
1 ================= Rate module simple ... s/iter module simple module 328 -- -0% simple 327 0% --
www.com | www.net | www.org
No recent polls found