diff options
| author | Charles <sircharlesaze@gmail.com> | 2019-07-24 18:46:39 +0200 |
|---|---|---|
| committer | Charles <sircharlesaze@gmail.com> | 2019-07-24 18:46:58 +0200 |
| commit | 83edb77d74bb339f3e1324a51039c78ac503db90 (patch) | |
| tree | 1e69b9330430438fa499f94e864dcfb4d83ea007 /bsq/tests/generate.pl | |
| parent | 5bab06313e71e9827baa426a02bbaf2a00b4e6a0 (diff) | |
| download | piscine-83edb77d74bb339f3e1324a51039c78ac503db90.tar.gz piscine-83edb77d74bb339f3e1324a51039c78ac503db90.tar.bz2 piscine-83edb77d74bb339f3e1324a51039c78ac503db90.zip | |
bsq and c13 passed
Diffstat (limited to 'bsq/tests/generate.pl')
| -rwxr-xr-x | bsq/tests/generate.pl | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/bsq/tests/generate.pl b/bsq/tests/generate.pl deleted file mode 100755 index 27bd35f..0000000 --- a/bsq/tests/generate.pl +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl - -use warnings; -use strict; - -die "program x y density" unless (scalar(@ARGV) == 3); - -my ($x, $y, $density) = @ARGV; - -print "$y.ox\n"; -for (my $i = 0; $i < $y; $i++) { - for (my $j = 0; $j < $x; $j++) { - if (int(rand($y) * 2) < $density) { - print "o"; - } - else { - print "."; - } - } - print "\n"; -} |