Imported Upstream version 2015.08.24

[deb_pkgs/scowl.git] / current / src / rand-sample.pl

diff --git a/current/src/rand-sample.pl b/current/src/rand-sample.pl
deleted file mode 100755 (executable)
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";