Re^2: Collapsing a string to unique characters

oshalla,

too nice, you beat me to it. Considering I'm going to be doing this for 100 million strings, that's great to know.

Comment on Re^2: Collapsing a string to unique characters

Replies are listed 'Best First'.
Re^3: Collapsing a string to unique characters by BrowserUk (Patriarch) on Jan 09, 2009 at 20:42 UTC
If speed is your need, then compare this: `sub buk_s { my @c; $c[ $_ ] = $_ for unpack 'C', $_[ 0 ]; pack 'C', grep defined, @c; }` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l]

Replies are listed 'Best First'.

If speed is your need, then compare this:

sub buk_s {
    my @c;
    $c[ $_ ] = $_ for unpack 'C*', $_[ 0 ];
    pack 'C*', grep defined, @c;
}
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.