Help for this page

Select Code to Download


  1. or download this
    use Math::Combinatorics;

...
my @comb = sort {$totals{$b} <=> $totals{$a}} keys %totals;
print "Top $nwordsatonce - word combinations:\n";
do {print "$_\n";} for @comb[0..4];
  2. or download this
    --
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/