25 lines
393 B
Perl
Executable File
25 lines
393 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;
|
|
|
|
my $empty = ".";
|
|
my $obstc = "X";
|
|
my $full = "#";
|
|
print "$y${empty}${obstc}${full}\n";
|
|
for (my $i = 0; $i < $y; $i++) {
|
|
for (my $j = 0; $j < $x; $j++) {
|
|
if (int(rand($y) * 2) < $density) {
|
|
print $obstc;
|
|
}
|
|
else {
|
|
print $empty;
|
|
}
|
|
}
|
|
print "\n";
|
|
}
|