Help for this page

Select Code to Download

Select or download this

use Modern::Perl '2014';
use Number::Interval;
use List::Util qw/sum/;
...
so 37 1
ge 14 0.12
ge 20 0.4

Select or download this

ge - [10,30] 0.52
so - [10,20] 0.08
so - [30,40] 1.55