Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re^3: Finding Combinations of Pairs

by andye (Curate)
on Jan 14, 2009 at 23:14 UTC ( #736408=note: print w/replies, xml ) Need Help??

in reply to Re^2: Finding Combinations of Pairs
in thread Finding Combinations of Pairs

BTW - and being serious now - you don't actually need to combine them into a single value.

If you do something like:

instead of
$h->{"$word1 $word2"}++
in the centre of the loops, then you end up with a useful tree-like structure, which gives you a quick index of, for each word, how many times each other word appears in combination with it.

Try it and use Data::Dumper to print the output, and you'll see what I mean.

Although I appreciate that may not be what the homework called for. <grin>

Best wishes, andy.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://736408]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (4)
As of 2020-09-25 23:22 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (141 votes). Check out past polls.