[svn-upgrade] Tagging scowl (7.1)

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

diff --git a/7.1/src/rand-sample.pl b/7.1/src/rand-sample.pl
new file mode 100755 (executable)
index 0000000..f7406fa
--- /dev/null
+++ b/7.1/src/rand-sample.pl
@@ -0,0 +1,23 @@
+#!/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";