Select Code to Download

sub foo {
  join ' ',
    ( $_[0] < .5 ? 'a' : 'b' ),
    ( $_[1] < .5 ? 'c' : 'd' ),
    ( $_[2] < .5 ? 'e' : 'f' ),
}

use Runops::Trace 'checksum_code_path';
for ( 1 .. 1000 ) {
  my @args = ( rand(), rand(), rand() );
...
0.47 0.52 0.33 -> b c f
0.51 0.53 0.63 -> a c e
0.59 0.53 0.05 -> a c f

MD5 checksum for codepath       : count
3486706209c7e59208c012e9fb50a4a8: 65
44a40eaf7295843c7b98c513acbd30cd: 39
...
ee75b4954053f18a33f00589f2dff817: 28
8a17266d3f92737fe3154c2ee3acd0b0: 7
775a10dbb2d9ce52259680e901999d66: 393

sub codelength {
    my $count = 0;
    Runops::Trace::trace_function(
...
    );
    return $count;
}