Help for this page

Select Code to Download

Select or download this

  DB<15> $, =","; say unpack "A1A11A*",unpack "B*", pack "F>", 1/5
0,01111111100,1001100110011001100110011001100110011001100110011010

  DB<16> $, =","; say unpack "A1A11A*",unpack "B*", pack "F>", 1/15
0,01111111011,0001000100010001000100010001000100010001000100010001

Select or download this

sub period_length { 
    my $q = shift ; 
...
        # say "r:$r" 
    } 
}