diff options
| author | Shinya Sato <shinnya.sato@gmail.com> | 2022-04-16 20:25:55 +0900 |
|---|---|---|
| committer | Shinya Sato <shinnya.sato@gmail.com> | 2022-04-16 20:25:55 +0900 |
| commit | 2385aacb1237295a4eacade285e6bc3b542ad06f (patch) | |
| tree | eb97f25db2fd31bf2bad59d68e257abaa08c02ff /comparison/OCaml/ack3_11.ml | |
| parent | e273a97d97c9d163bf1ef914cb4659a2593fbdd0 (diff) | |
| download | inpla-2385aacb1237295a4eacade285e6bc3b542ad06f.tar.gz inpla-2385aacb1237295a4eacade285e6bc3b542ad06f.zip | |
Benchmarks for OCaml
Diffstat (limited to 'comparison/OCaml/ack3_11.ml')
| -rw-r--r-- | comparison/OCaml/ack3_11.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/comparison/OCaml/ack3_11.ml b/comparison/OCaml/ack3_11.ml new file mode 100644 index 0000000..6d4cdce --- /dev/null +++ b/comparison/OCaml/ack3_11.ml @@ -0,0 +1,6 @@ +let rec ack m n = + if m==0 then n+1 + else if n==0 then ack (m-1) 1 + else ack (m-1) (ack m (n-1)) + +let () = print_int (ack 3 11); |