RosettaCodeData/Task/Metaprogramming/Rascal/metaprogramming-2.rascal
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

9 lines
208 B
Text

map[str, int] operatorUsage(PROGRAM P) {
m = ();
visit(P){
case add(_,_): m["add"] ? 0 += 1;
case sub(_,_): m["sub"] ? 0 += 1;
case conc(_,_): m["conc"] ? 0 += 1;
}
return m;
}