From 23ad79e8b41c25bb4992d103d29a17612a52e351 Mon Sep 17 00:00:00 2001
From: Charles <sircharlesaze@gmail.com>
Date: Sun, 21 Jul 2019 15:26:32 +0200
Subject: c10 done, c11 on going, rush02 probably finished, bsq start

---
 bsq/tests/generate.pl | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 bsq/tests/generate.pl

(limited to 'bsq/tests')

diff --git a/bsq/tests/generate.pl b/bsq/tests/generate.pl
new file mode 100755
index 0000000..27bd35f
--- /dev/null
+++ b/bsq/tests/generate.pl
@@ -0,0 +1,21 @@
+#!/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";
+}
-- 
cgit