http://www.perlmonks.org?node_id=1033179


in reply to Re: Length of array in hash of arrays
in thread Length of array in hash of arrays

Yes, I'm aware of that. That's why this is post is in Obfuscated Code rather than Meditations. If you want to get the real solution, the simpler

use 5.012; no warnings; my @t = map { rand } 1..60; my %g = (k => \@t) +; for my $n (0..1e3) { (my $s = $n) =~ y/0-9/ {}@#$%=^~+/; my $c= qq( +${s}g{k}}); if (60 == eval $c) { warn $c; } }
prints it together with another fake solution.

Replies are listed 'Best First'.
Re^3: Length of array in hash of arrays
by Anonymous Monk on Jul 05, 2013 at 16:58 UTC

    The simplest way must contain the function 'length':

    length(!()x@{(\%x)->{k}})