RosettaCodeData/Task/Metaprogramming/Rascal/metaprogramming-2.rascal

10 lines
208 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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;
}