9 lines
155 B
Text
9 lines
155 B
Text
|
let h = Hashtbl.create 4001
|
||
|
|
|
||
|
|
let a m n =
|
||
|
|
try Hashtbl.find h (m, n)
|
||
|
|
with Not_found ->
|
||
|
|
let res = a (m, n) in
|
||
|
|
Hashtbl.add h (m, n) res;
|
||
|
|
(res)
|