src/rand-samples

   1 #!/usr/bin/perl
   2
   3 use Text::Wrap;
   4
   5 $Text::Wrap::columns = 78;
   6
   7 foreach my $f (10,20,35,40,50,55,60,70,80,95) {
   8     my $l = `cat final/american-words.$f final/english-words.$f | fgrep -v \\' | perl src/rand-sample.pl 25`;
   9     chop $l;
  10     @w = split / /, $l;
  11     die unless @w == 25;
  12     print wrap ('', "    ", "$f: $l\n");
  13     print "\n" unless $f == 95;
  14 }