Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: How to hash without the hash- basic

by i5513 (Pilgrim)
on Oct 26, 2011 at 14:00 UTC ( #933904=note: print w/replies, xml ) Need Help??


in reply to How to hash without the hash- basic

Not a good solution, but .. are matching allowed?, if yes. It is not cheaper and not more effective, but is pure perl :P :
@array = qw(1 3 4 55 4 3 4 22 1 3 4 3 2 2 3 34); $cad=join (" ",@array); for (@array) { push @uniq, $_ if ($cad !~ /((\A| )($_)( |\Z)).*$_( |\Z)/); } print join (",",@uniq),"\n";

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://933904]
help
Chatterbox?
[ambrus]: As for TeX, I'm not trying to discourage anyone from writing carefully beautifully typeset documents, in maths or outside. But most people aren't willing to do that, and will spend only little time about the formatting,
[ambrus]: and try to leave everything else to automated systems without checking how what they write came out format-wise, and for those people, discounting the part about journals with a specific format above,
[ambrus]: just blindly recommending to use LaTeX is a bad idea now.

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2017-09-26 11:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (293 votes). Check out past polls.

    Notices?