Skip to content

Instantly share code, notes, and snippets.

@perlpilot

perlpilot/gist:5512836

Created May 3, 2013 18:59
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save perlpilot/5512836 to your computer and use it in GitHub Desktop.
Save perlpilot/5512836 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
#!/usr/bin/env perl6
use v6;
my %h;
for "blosum.dat".IO.lines -> $line {
my @line = $line.words;
unless state @head { @head = @line; next }
%h{@line.shift}{@head} = @line;
}
say %h<A><Q>;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment