Data commit

Task/Function-frequency/Sidef/function-frequency.sidef

@@ -0,0 +1,14 @@
+func foo { }
+func bar { }
+
+foo(); foo(); foo()
+bar(); bar();
+
+var data = Perl.to_sidef(Parser{:vars}{:main}).flatten
+
+data.sort_by { |v| -v{:count} }.first(10).each { |entry|
+    if (entry{:type} == :func) {
+        say ("Function `#{entry{:name}}` (declared at line",
+             " #{entry{:line}}) is used #{entry{:count}} times")
+    }
+}