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

diff --git a/current/src/rand-sample.pl b/current/src/rand-sample.pl
deleted file mode 100755
index f7406fa..0000000
--- a/current/src/rand-sample.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-
-while (<STDIN>) {
-  chop;
-  push @words, $_;
-}
-@words = grep {length $_ > 2} @words;
-@words = sort @words;
-@num = (0 .. $#words);
-
-@use = ();
-
-for ($i = 0; $i < $ARGV[0]; ++$i) {
-  $r=int rand @num;
-  push @use, splice @num, $r, 1;
-}
-
-@use = sort {$a <=> $b} @use;
-
-foreach $i (@use) {
-  print "$words[$i] ";
-}
-print "\n";