fork download
copy 
  1. $n=<>;<>;$w=$i=<>;@a=<>;@a=map{$s=$_;$s=~s!.!$v=3;$v-=substr(@a[($i/$w|0)%@a-$_%3],($i-$_/3)%$w)lt'.'for-5..3;$i++;~$v?$v?'.':'*':$&!eg;$s}@a for 1..$n;print@a
Success #stdin #stdout 0.49s 6044KB
comments (?)
stdin
copy 
30
40
35
...*.............*.*............*..
.....*.*...***......**......*......
**..........*..........*..*...**.**
...*...*...*.........*......**.*...
...*..*.......*.....**.*........**.
.**........**....*.......*......*..
...........*..*..*...*..*.......***
...*....*..............*......**...
.....*........*.*...*...*..**..*.*.
.....*.............*........*....**
....*......*.*..*..*.....*...*.....
........*.....*...*........*...*...
*...............*......*.*..****...
.*........*...**............*......
*..**...**.*......*.............**.
...*..*...*...**..*.........**.*...
......**........*.............**...
.***..*.*....*..***...**...........
.....*...**........................
..*...**........*.....*...*....**..
*....*....*....**..*........*......
........*....*****......*......*.**
........................*...*..**.*
*...*.....*..*......**....***....**
.....**......*......**.*........*.*
.*....*.*............*.*...........
.*......*.**...**................**
.......**.*...*...*..*....*..*..**.
....**..*...*...*..*......*..*.....
......*....*...*.*.*...............
..**.*..**........*.........*...*.*
....*..*.....*.**.............*.*..
...*..*.*..*..*.**..**..*......*...
..****.*....**.......*.........*.*.
.**.*......**.*....*.*..**.**...*..
........**..............*....*..*.*
..*...*.*....*...*..*.......*......
...**...**....*.*.*.***.*.*........
*..*....***.*...*..........*....*..
....*......*..*.......*...*..*.*...
stdout
copy 
**.....**......*..*.........*.....*
***.........................*.....*
.**...............................*
...............***..........*..*...
...........*...*............***....
..........**.......................
..........**..***..................
............*..**..................
............*..**..................
.............*.*...................
.............*.*...................
.............*.*...................
.**..........*.*...................
..............*....................
...................................
.................................**
.................................**
...................................
...................................
.......***.........................
.......*....................**.....
.......***..**.......**....*..*....
....................*.**..*........
..............*......*..*.*........
............*..*.....*..*.*........
...........**.**.......**....*.****
............*.*........*..***.***.*
...*.........*..........*.*..**....
...*.***...............**.....*....
........*...............*.****.....
.....*...................****......
.....*....................*........
......*...*........................
........*.*........................
.........*..................**.....
...........................*..*....
................*..........**.**...
....*..**......*.*..........*.**..*
.........*.....*...........**..*.**
....*....*.......**.........*...*..
https://ideone.com/L0062S
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!