develooper Front page | perl.perl6.users | Postings from April 2018

Using HashBags

Thread Next
From:
mimosinnet
Date:
April 7, 2018 10:11
Subject:
Using HashBags
Message ID:
20180407101051.GA13776@mimomedia
Hi all,

I do not seem to be able to get this done with the Bag or BagHash 
type:

---
dd @rows;

> Output: 
> Array @rows = [["JF", 1], ["JF", 2], ["MM", 2], ["MPu", 2], ["MM", 2], 
> ["FE", 2], ["FV", 2], ["MPu", 2], ["JP", 2], ["JP", 2], ["FV", 2], 
> ["FV", 2], ["JF", 2], ["MM", 2], ["MPu", 2], ["MM", 2], ["FE", 2], 
> ["FV", 2], ["MPu", 2], ["JP", 2], ["JP", 2], ["JF", 4]]

my %docents;
for @rows -> @row {
	%docents{ @row[0] } += @row[1];
}

dd %docents;

> Output: 
> Hash %docents = {:FE(4), :FV(8), :JF(9), :JP(8), :MM(8), :MPu(8)}

---

As I understand it, this would better be achieved with the Bag or 
BagHash type. What would be the easy way?

Thanks! 

-- 
(≧∇≦) Mimosinnet (Linux User: #463211)

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About