Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

sub addThisChar { push( @w, shift ); }
sub saveThatPattern { $solutions{ join( '', @w ) }++; @w = ('foobar');
+ }
  2. or download this
    tab@music3:/../Perlmongers$ perl -w 1056774-2.pl
  foobar => 72
...
  foobarcXbc => 1
  foobarcXc => 1
tab@music3:/../Perlmongers$