A3 8

roca · Feb 10, 2013 · 9968dee · 9968dee
1 parent f532636
commit 9968dee
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/hw3provided.sml b/hw3provided.sml
@@ -103,8 +103,11 @@ end
 
 (* 9 *)
 fun count_wildcards p =
- let
-    val couunt_function = fn (x) => Wildcard ;
+ let fun counter(x , acc) =
+      case x of
+        [] => acc
+        | head::tail => counter(tail, 1 + acc)
+
  in
-   g couunt_function (fn (x) => 1) p
- end
+     g counter (fn (x) => String.size x) p
+ end