Select Code to Download

    if (v[i] >= 128)
        sum += v[i];

perf stat perl5.18.1 -e '@a = map {($i += 1.1e-0) + rand} 1..3e6; $i =
+ $i/2 + 0.5; $_ > $i and $n+=$_ for @a;'
        8509781489 instructions
...
        1700634854 branches
           5437641 branch-misses
       1.567880931 seconds time elapsed