ocaml: phase 5.1 memo_fib.ml baseline (16/16 pass)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 23s

Memoized fibonacci using Hashtbl.find_opt + Hashtbl.add.
fib(25) = 75025. Demonstrates mutable Hashtbl through the OCaml
stdlib API in real recursive code.
This commit is contained in:
2026-05-08 19:10:49 +00:00
parent 360a3ed51f
commit fff8fe2dc8
3 changed files with 19 additions and 0 deletions

View File

@@ -0,0 +1,15 @@
(* Baseline: memoized fibonacci using Hashtbl *)
let cache = Hashtbl.create 16 ;;
let rec fib n =
if n < 2 then n
else
match Hashtbl.find_opt cache n with
| Some v -> v
| None ->
let v = fib (n - 1) + fib (n - 2) in
Hashtbl.add cache n v ;
v
;;
fib 25