X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=current%2Fsrc%2Frand-samples;fp=current%2Fsrc%2Frand-samples;h=0000000000000000000000000000000000000000;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hp=6e65396fdf648e81c4856f76e05e0fc738d895f8;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271;p=deb_pkgs%2Fscowl.git

diff --git a/current/src/rand-samples b/current/src/rand-samples
deleted file mode 100755
index 6e65396..0000000
--- a/current/src/rand-samples
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/perl
-
-use Text::Wrap;
-
-$Text::Wrap::columns = 78;
-
-foreach my $f (10,20,35,40,50,55,60,70,80,95) {
-    my $l = `cat final/american-words.$f final/english-words.$f | fgrep -v \\' | perl src/rand-sample.pl 25`;
-    chop $l;
-    @w = split / /, $l;
-    die unless @w == 25;
-    print wrap ('', "    ", "$f: $l\n");
-    print "\n" unless $f == 95;
-}