fork(2) download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. sub i{<>=~/\S+/g}
  4. @b=map[i],@r=0..<>-1;
  5. print.1<=>(map{
  6.     @a[1,0,2,4,3]=@a;
  7.     @b=map{$i=$_;[map$b[$_][$i],@r]}@r;
  8.     grep$a[3]
  9.         &&($k=(($x=$_)-$a[0])/$a[3])**2<=$k
  10.         &&pop[sort map@{$b[$_]}[$x-!!$x,$x],
  11.                    ($_=$a[1]+$k*$a[4]),$_-/^\d+$/]
  12.            >=$a[2]+$k*$a[5]
  13.     ,@R=@r
  14. }@a=map$_-shift@v,i,@u=@v=@$_),$/for([i])x<>
Success #stdin #stdout 0s 3608KB
comments (?)
stdin
copy 
5
0 0 0 0 0
0 0 0 0 0
4 4 4 4 4
0 0 0 0 0
0 0 0 0 0
2.5 0.0 4.0
3
2.5 5.0 0.1
2.5 5.0 5.0
0.0 2.7 4.5
stdout
copy 
-1
1
1
https://ideone.com/R182Pn
language:
Perl (perl 5.28.1)
created:
9 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!