18 lines
296 B
Perl
Executable File
18 lines
296 B
Perl
Executable File
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
die "program x y density" unless (scalar(@ARGV) == 3);
|
|
my ($x, $y, $density) = @ARGV;
|
|
print "$y.+#\n";
|
|
for (my $i = 0; $i < $y; $i++) {
|
|
for (my $j = 0; $j < $x; $j++) {
|
|
if (int(rand($y) * 2) < $density) {
|
|
print "+";
|
|
}
|
|
else {
|
|
print ".";
|
|
}
|
|
}
|
|
print "\n";
|
|
}
|