fork(5) download
copy 
  1. $:=($w=<>)*2+6;$r=_ x($m=$w>3?3:$w);$k="#"x($w-3)."."."-"x$m;sub
  2. r{($y,$_)=@_;$x=$y=~y//./rc;s/$x$/$y/r}printf"%$:s%s
  3. ",y!/\\[!\\/]!r,(reverse=~s/.//r)for".","|",
  4. (map{".  ".$"x$_."["."#"x$_,r("[#$k"x/$w/,"/__".__ x$_)}1..++$w),
  5. r("_|".$"x$m,$z=substr"|__"x$:,0,2*++$w),r("_|$r",$z),r("\\$r","##"x$w),"|_$r","\\__$r"
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
3
stdout
copy 
           .
           |
      .   ]#[   .
       \_______/
    .    ]###[    .
     \___________/
  .     ]#####[     .
   \_______________/
.      ]#######[      .
 \____]#.-----.#[____/
  |__|__|     |__|__|
  |__|__|_____|__|__|
  ######/_____\######
       |_______|
      /_________\
https://ideone.com/I6833m
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
public

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!