Help for this page

Select Code to Download


  1. or download this
    c:\test>hashsize -N=1e3
normalHash: 58156
...
c:\test>hashsize -N=1e5
normalHash: 5924348
compactedHash: 4724348
  2. or download this
        vec( $string, $_, 2 ) = $acgt{ substr $string . 'a' x 16, $_, 1 }
        for 0 .. 15;
  3. or download this
    ##       vvvvv
    vec( $bits, $_, 2 ) = $acgt{ substr $string . 'a' x 16, $_, 1 }
        for 0 .. 15;
  4. or download this
    ## sv.c
PP(pp_vec)
...
    offset = LvTARGOFF(sv);
//    if (offset < 0)
//    Perl_croak(aTHX_ "Negative offset to vec in lvalue context");