Help for this page

Select Code to Download


  1. or download this
    @bigram = ( 'aa' .. 'zz' ); # magic!
    
  2. or download this
    # make a "set" of the ones in the list:
    my %bigram_list;
    ...
    my @bigrams_existing = 
      map { exists $bigram_list{$_} ? 1 : 0 }
      @bigram;