aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBraxton Hall2022-10-25 23:18:52 +0000
committerGitHub2022-10-25 23:18:52 +0000
commit47f320cecf3d5caf67bda5845d2230cdb9b32708 (patch)
treeddb1da2cbce7f450145c58d98271cbd90d3cb00b
parente187bb84b9c3231f7f63a70a3136b7355ba0567a (diff)
parenta92d2f2a96c36e758291d7150b4ff175ec2ec768 (diff)
Merge pull request #46 from funemy/main
learning koka
-rw-r--r--entries/funemy/.gitignore1
-rw-r--r--entries/funemy/koka/fib.kk12
-rw-r--r--people.json4
3 files changed, 17 insertions, 0 deletions
diff --git a/entries/funemy/.gitignore b/entries/funemy/.gitignore
index acb903a..3d2fbd5 100644
--- a/entries/funemy/.gitignore
+++ b/entries/funemy/.gitignore
@@ -1,3 +1,4 @@
.DS_Store
*.agdai
*.smt2
+**/.koka/*
diff --git a/entries/funemy/koka/fib.kk b/entries/funemy/koka/fib.kk
new file mode 100644
index 0000000..5b7e66b
--- /dev/null
+++ b/entries/funemy/koka/fib.kk
@@ -0,0 +1,12 @@
+effect fib
+ ctl fib(n : int) : int
+
+fun doFib(inp : int) : div int
+ with ctl fib(n)
+ if n == 0 then 0
+ else if n == 1 then 1
+ else (doFib(n - 1) : int) + doFib(n - 2)
+ fib(inp)
+
+fun main()
+ print(doFib(20))
diff --git a/people.json b/people.json
index a9be376..c2db098 100644
--- a/people.json
+++ b/people.json
@@ -87,6 +87,10 @@
{
"name": "symbolic",
"link": "./entries/funemy/symbolic/phib.py"
+ },
+ {
+ "name": "koka",
+ "link": "./entries/funemy/koka/fib.kk"
}
]
},