diff options
| author | Shinya Sato <shinnya.sato@gmail.com> | 2022-04-16 20:30:04 +0900 |
|---|---|---|
| committer | Shinya Sato <shinnya.sato@gmail.com> | 2022-04-16 20:30:04 +0900 |
| commit | c8ff868327e19cd156573a723214d66119a71b41 (patch) | |
| tree | 2b959f5d9e2ec4b9f520b0259307a781102ffea7 /comparison/OCaml/ack3_11.ml | |
| parent | 353b47702094b20d207acf97e1638d2befb4da11 (diff) | |
| parent | 5139486fd68973703b8a68b118eff2ef78def144 (diff) | |
| download | inpla-c8ff868327e19cd156573a723214d66119a71b41.tar.gz inpla-c8ff868327e19cd156573a723214d66119a71b41.zip | |
Merge branch 'develop'
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); |