mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 08:27:03 +03:00
11 lines
198 B
Plaintext
11 lines
198 B
Plaintext
module Ack;
|
||
import Data.Nat;
|
||
open Data.Nat;
|
||
|
||
ack : ℕ → ℕ → ℕ;
|
||
ack zero n ≔ suc n;
|
||
ack (suc m) zero ≔ ack m (suc zero);
|
||
ack (suc m) (suc n) ≔ ack m (ack (suc m) n);
|
||
|
||
end;
|