Imported Upstream version 2015.08.24

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

diff --git a/6/src/rand-sample.pl b/6/src/rand-sample.pl
deleted file mode 100755 (executable)
index 966df94..0000000
--- a/6/src/rand-sample.pl
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-
-while (<STDIN>) {
-  chop;
-  push @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";