Can anyone explain why the first of these solutions works fine, while this (changing for to map) blows up on the last test (the big one), causing the memory usage to exceed 1 GB?
#!perl
map$%{join _,sort/./g}.=$_,sort<>;$_[s/
^/ /gm].=$_ for sort%%;print@_[1..$=]
#!perl
map$%{join _,sort/./g}.=$_,sort<>;map$_[s/
^/ /gm].=$_,sort%%;print@_[1..$=]
I'm using ActiveState's Perl 5.6.1, build 626, so maybe it's a
Windows thing.
--
Keith C. Ivey <[EMAIL PROTECTED]>
Washington, DC
