fork(5) download
copy 
  1. $s=<>;
  2. sub f{9-$i-$_[0]?$":pop}
  3. for$i(0..8){
  4.     $h=1;
  5.     $_=$s;
  6.     s!(\.*)(\d?)!
  7.         $D=($w=length$1)+$h-($2||1);
  8.         join'',(map{
  9.             ($x=$_-int$D/2)<0
  10.                 ?f--$h,'\\'
  11.                 :$x
  12.                     ?f++$h,'/'
  13.                     :$D%2
  14.                         ?f--$h,v
  15.                         :f$h,'/'
  16.         }0..$w-1),$2
  17.             ?f$h=$2,'^'
  18.             :''
  19.     !ge;
  20.     print if/\S/
  21. }
Success #stdin #stdout 0s 3608KB
comments ()
stdin
copy 
..3..4...6...5....1
stdout
copy 
         ^         
        / \  ^     
     ^ /   \/ \    
  ^ / v        \   
 / v            \  
/                \^
https://ideone.com/P4XpMU
language:
Perl (perl 5.28.1)
created:
11 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!