Re: Length of array in hash of arrays

Replies are listed 'Best First'.
Re^2: Length of array in hash of arrays by ambrus (Abbot) on May 12, 2013 at 08:50 UTC
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; } }` [download] prints it together with another fake solution.	[reply] [d/l]
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}})` [download]	[reply] [d/l]
Re^2: Length of array in hash of arrays by gurpreetsingh13 (Scribe) on May 13, 2013 at 05:29 UTC
Like this: `$ perl -e 'my %g = (k => [8, 2, 10, 2, 1, 3],l => [10, 7, 9, 0, 1]); f +oreach $keyval(sort keys %g){print 0+@{$g{$keyval}};}'` [download]	[reply] [d/l]
Re^3: Length of array in hash of arrays by ambrus (Abbot) on Oct 24, 2013 at 15:27 UTC
That prints only the length of the first subarray, the one corresponding to the key `"k"`. Let's do better and use the `each` keyword to print the length of each subarray. `my %g = (k => [8, 2, 10, 2, 1, 3],l => [10, 7, 9, 0, 1]); %gkey = sort keys %g; print 0+@{$g{each %gkey}}, "\n";` [download]	[reply] [d/l] [select]