From 4f670845ff9ab6c48bcb5f7bf4d4ef6dc3c3064b Mon Sep 17 00:00:00 2001 From: manuel Date: Tue, 27 Mar 2012 11:51:08 +0200 Subject: reorganize file structure to match the upstream requirements --- pintos-progos/tests/lib.pm | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 pintos-progos/tests/lib.pm (limited to 'pintos-progos/tests/lib.pm') diff --git a/pintos-progos/tests/lib.pm b/pintos-progos/tests/lib.pm deleted file mode 100644 index bc37ae5..0000000 --- a/pintos-progos/tests/lib.pm +++ /dev/null @@ -1,19 +0,0 @@ -use strict; -use warnings; - -use tests::random; - -sub shuffle { - my ($in, $cnt, $sz) = @_; - $cnt * $sz == length $in or die; - my (@a) = 0...$cnt - 1; - for my $i (0...$cnt - 1) { - my ($j) = $i + random_ulong () % ($cnt - $i); - @a[$i, $j] = @a[$j, $i]; - } - my ($out) = ""; - $out .= substr ($in, $_ * $sz, $sz) foreach @a; - return $out; -} - -1; -- cgit v1.2.3