Select Code to Download

1 2 3 4 5
  2 3 4 5 6
  1 2 3 4 <<< Range = 4  NOT!

sub overlap{ 
    ($_[1] < $_[3] ? $_[1]: $_[3]) 
...
-3 2 -2 1 :  4
-4 1 -3 0 :  4

#! perl -slw
use strict;
...
-1 -4 -2 -3 (1)
-2 -4 -1 -3 (1)
-3 -4 -1 -2 (0)

C:\test>232325
1 2 2 3 (0) = 0
...
-4 0 -3 1 : 3

C:\test>