{ "assoc" assoc }
}
{ $examples
- { $example "! Count the number of times the elements of two sequences appear."
- "USING: prettyprint sets ;"
+ { $example "! Iterate over a sequence and increment the count at each element"
+ "USING: assocs prettyprint sets ;"
"\"aaabc\" [ inc-at ] H{ } sequence>assoc ."
"H{ { 97 3 } { 98 1 } { 99 1 } }"
}
{ "assoc" assoc }
}
{ $examples
- { $example "! Count the number of times the elements of two sequences appear."
- "USING: prettyprint sets ;"
+ { $example "! Iterate over a sequence and add the counts to an existing assoc"
+ "USING: assocs prettyprint sets kernel ;"
"H{ { 97 2 } { 98 1 } } clone \"aaabc\" [ inc-at ] sequence>assoc* ."
"H{ { 97 5 } { 98 2 } { 99 1 } }"
}
{ "hashtable" hashtable }
}
{ $examples
- { $example "! Count the number of times the elements of two sequences appear."
- "USING: prettyprint sets ;"
+ { $example "! Count the number of times an element occurs in a sequence"
+ "USING: assocs prettyprint sets ;"
"\"aaabc\" [ inc-at ] sequence>hashtable ."
"H{ { 97 3 } { 98 1 } { 99 1 } }"
}