Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
20
Task/Ackermann-function/Hare/ackermann-function.hare
Normal file
20
Task/Ackermann-function/Hare/ackermann-function.hare
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
use fmt;
|
||||
|
||||
fn ackermann(m: u64, n: u64) u64 = {
|
||||
if (m == 0) {
|
||||
return n + 1;
|
||||
};
|
||||
if (n == 0) {
|
||||
return ackermann(m - 1, 1);
|
||||
};
|
||||
return ackermann(m - 1, ackermann(m, n - 1));
|
||||
};
|
||||
|
||||
export fn main() void = {
|
||||
for (let m = 0u64; m < 4; m += 1) {
|
||||
for (let n = 0u64; n < 10; n += 1) {
|
||||
fmt::printfln("A({}, {}) = {}", m, n, ackermann(m, n))!;
|
||||
};
|
||||
fmt::println()!;
|
||||
};
|
||||
};
|
||||
Loading…
Add table
Add a link
Reference in a new issue