mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 01:52:11 +03:00
10 lines
175 B
Plaintext
10 lines
175 B
Plaintext
module Ack;
|
||
|
||
import Data.Nat;
|
||
open Data.Nat;
|
||
|
||
ack : ℕ → ℕ → ℕ
|
||
| zero n := suc n
|
||
| (suc m) zero := ack m (suc zero)
|
||
| (suc m) (suc n) := ack m (ack (suc m) n);
|