Perl: the Markov chain saw | |
PerlMonks |
Re^2: Miscellaneous.pm?by markjugg (Curate) |
on Mar 03, 2006 at 00:14 UTC ( [id://534095]=note: print w/replies, xml ) | Need Help?? |
Are you aware of List::MoreUtils? It contains a "uniq" function much like this.
BTW, there seems to be bug in your routine. I think you meant something like !$seen{$_}++. That illustrates the value of having even a "simple" routine in a re-usable module!
In Section
Meditations
|
|