jucier refs

OpenUniversity · Jul 3, 2024 · d767055 · d767055
1 parent 678cf53
commit d767055
Showing 1 changed file with 1 addition and 8 deletions.
diff --git a/Material/Tutorials/sml/refs.md b/Material/Tutorials/sml/refs.md
@@ -169,14 +169,7 @@ fun memoizer_put (memo: (''a, 'b) memoizer) x y =
 
 ```sml
 fun memoize (memo: (''a, 'b) memoizer) f x =
-    case (List.find (fn (x', _) => x = x') (!(#memory memo))) of
-      SOME (_, y') => y'
-    | NONE => (
-        let val y = f x in
-            memoizer_put memo x y;
-            y
-        end
-    );
+    
 ```
 <!-- .element: data-thebe-executable-sml data-language="text/x-ocaml" -->