diff options
Diffstat (limited to 'Tools/schnitt/unsort')
-rwxr-xr-x | Tools/schnitt/unsort | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Tools/schnitt/unsort b/Tools/schnitt/unsort deleted file mode 100755 index 83adfb6..0000000 --- a/Tools/schnitt/unsort +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl - -while (<>) -{ - $h{$_}=1; -} - -foreach $key (sort shuffle keys %h) -{ - print $key; -} - -sub shuffle { - $ran = rand(1); - - if ($ran > 0.5) - { - return -1; - } - else - { - return 1; - } -} - |