Help for this page

Select Code to Download


  1. or download this
    # combines two pairs into a longer pair
    sub combine_codes_and_descriptions
    ...
    multi_dim_reduce(sub {my ($c,$d) = @{$_[0]}; print "$c\t$d\n";},
                     [ @data ],
                     \&combine_codes_and_descriptions);
    
  2. or download this
    --
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
    map{y/X_/\n /;print}map{pop@$_}@/for@/