fork download
copy 
  1. #!/usr/bin/perl
  2. # 6M King
  3.  
  4. while (<>){
  5.  s/\d+ \d+ (\d+) (\d+) (\d+) (\d+)/abs($1-$3)>abs($2-$4)?abs($1-$3):abs($2-$4)/e; 
  6.  print   
  7. }
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
10 10 10 10 1 1
2 2 1 1 1 2
5 5 3 3 5 5
6 6 1 1 1 1
stdout
copy 
9
1
2
0
https://ideone.com/zprouu
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!