Help for this page

Select Code to Download

Select or download this

{
    my( $n, $k, @seq, @a );
...
        return join( '', @alphabet[ @seq ] );
    }
}