Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: extracting all possible n-mers from an array

by jwkrahn (Abbot)
on Jun 06, 2006 at 23:49 UTC ( [id://553933]=note: print w/replies, xml ) Need Help??

in reply to extracting all possible n-mers from an array

print "$_\n" for glob "{@{[ join ',', @letters ]}}" x $len;

Replies are listed 'Best First'.
Re^2: extracting all possible n-mers from an array
by gingaloon (Acolyte) on Jun 06, 2006 at 23:59 UTC

    could you take a few seconds and explain what is going on here. I've not seen glob in this context before. All those references are also too nice not to use again.


      Let me try my hand at it...

      Original code:

      print "$_\n" for glob "{@{[ join ',', @letters ]}}" x $len;
      From the inside out:
      join ',', @letters
      creates a comma separated string: A,B,C,D,E,F.

      [...] creates an anonymous array of 1 element, which @{[...]} then dereferences. Putting that inside double quotes interpolates that 1 element array into the double-quoted string, surrounded by the outside pair of {}, yielding {A,B,C,D,E,F}.

      x $len repeats the string, in this case 4 times, to give:

      glob treats each {...} as a set, and generates all strings with one element from each set.

      I've always felt like this was almost undocumented, because the glob entry points to 2 other entries, one of which is completely unhelpful in this case, and the other which backs into it as an afterthought. If you're not paying attention, or don't already know it from some other context, glob doesn't improve the situation.

      The reason for the "{@{[...]}}" magic is to take the string from join and sandwich it between the curlies. That's a lot of work, and not always easy to follow. I prefer the following, just because it's easier to explain:

      print "$_\n" for glob (('{'. join( ',', @letters).'}') x $len);
      I sometimes see code a bit convoluted because someone forgot that join can also take parens to disambiguate it's arguments from the rest of the expression. In this case, glob uses parens for precedence with x $len, though the outer set of parens could be replaced with a leading +, as in:
      print "$_\n" for glob +('{'. join( ',', @letters).'}') x $len;
      As has been noted before (see this subthread), glob isn't necessarily good for large list generation.

      Quantum Mechanics: The dreams stuff is made of

        thanks, very clear and informative.


Re^2: extracting all possible n-mers from an array
by teamster_jr (Curate) on Jun 08, 2006 at 13:20 UTC
    for some reason i immediately thought of colour pallettes.
    not the nicest code, but something i knocked up quickly using your algorithm:
    my $c; my $cols={map{(chr(65+$c++),sprintf "%02x",$_)}(0, 51, 102, 153, 204, + 255)}; my @letters=qw/A B C D E F/; print "<html><body><table border=1><tr>"; $c=0; for(glob "{@{[ join ',', @letters ]}}" x 3){ s#.#$cols->{$&}#eg; print "<td bgcolor='#$_'>&nbsp;</td>\n"; print "</tr><tr>" if !(++$c %9); }; print "</tr></table></body></html>";

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (1)
As of 2024-04-15 16:37 GMT
Find Nodes?
    Voting Booth?

    No recent polls found