Select Code to Download

        if( ( $b >= 5 ) && ( $b < 7 ) ) {
            $c[$i] += sum @a[ $i-$b+1 .. $i ];
...
            $e[$i] += sum @a[ $i-$b+1 .. $i ];
            $e[$i] /= $b;
        }

        if( $b < 5 ) {
        }
...
        elsif( $b < 15 ) {
            ( $e[$i] += sum @a[ $i-$b+1 .. $i ] ) /= $b;
        }