fork(1) download
copy 
  1. #!perl -p0
  2. /
  3. /;$x="@-";
  4. sub g{map"(?=$_)(.@_)+[".chr(1+ord).chr(~-ord)."]",a..z}
  5. sub f{for$p(g"{$x}"){s/$p/$&&((_."\177"x~-$x)x y!
  6. !!)/se;$_=lc;s![\0\\]!@_!g}$x++}
  7. f"/";y!\17!/!;f"|";f"\\";y/\17/X/;for$p(g){s/$p/$&=~y! |!-+!r/e}
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
     dk    j
            
 b    l     
            
 c   fg     
            
     a    m 
            
   i      h 
     e
stdout
copy 
     dk----j
    /||   / 
 b / |l  /  
 |X  | \/   
 c \ fg/\   
    \|/\ \  
     a  \ m 
    /|   \  
   i-+----h 
     e
https://ideone.com/DJt3Wc
language:
Perl (perl 5.28.1)
created:
9 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!