Help for this page

Select Code to Download


  1. or download this
    %step = ( 20 => 1, 50+1 => -1 );
  2. or download this
    my %step;
foreach(@range) {
    $step{ $_->[0] }++;
    $step{ $_->[1]+1 }--;
}
  3. or download this
    my @edge = sort { $a <=> $b } keys %step;
my $step = 0;
...
    }
    $arr[$i] += $step;
}
  4. or download this
    @arr = (0) x 120;
@range = ([20, 50], [30, 100]);
  5. or download this
    0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 
+2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
+ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0