Data commit

Task/Function-frequency/Racket/function-frequency-1.rkt

@@ -0,0 +1,8 @@
+#lang racket
+(require math)
+(define in (open-input-file "function-frequency.rkt"))
+(void (read-language in))
+(define s-exprs (for/list ([s (in-port read in)]) s))
+(define symbols (filter symbol? (flatten s-exprs)))
+(define counts  (sort (hash->list (samples->hash symbols)) >= #:key cdr))
+(take counts (min 10 (length counts)))

Task/Function-frequency/Racket/function-frequency-2.rkt

@@ -0,0 +1,10 @@
+'((define . 4)
+  (counts . 3)
+  (s-exprs . 2)
+  (s . 2)
+  (symbols . 2)
+  (a-program . 2)
+  (filter . 1)
+  (hash->list . 1)
+  (in-port . 1)
+  (sort . 1))