Ideone.com

download

copy

#!perl -p0a
@r=($/=1);$^=.5;@r=map$r-$l+($l=$$_*($r=shift@r)),/./g,$r=$l=0for@F;$_="@r"

Success #stdin #stdout 0s 6044KB

stdin

copy

^
/^
^^/
/\/\
^^/^\
^\^\/^
\^^^\^/

stdout

copy

0 0.09375 0.28125 0.4375 0.1875 0 0 0

https://ideone.com/Vv36Dp

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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