[svn-upgrade] Tagging scowl (7.1)

[deb_pkgs/scowl.git] / 7.1 / src / rand-samples

diff --git a/7.1/src/rand-samples b/7.1/src/rand-samples
new file mode 100755 (executable)
index 0000000..6e65396
--- /dev/null
+++ b/7.1/src/rand-samples
@@ -0,0 +1,14 @@
+#!/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;
+}