initial go

.github/workflows/lean_action_ci.yml

@@ -0,0 +1,14 @@
+name: Lean Action CI
+
+on:
+  push:
+  pull_request:
+  workflow_dispatch:
+
+jobs:
+  build:
+    runs-on: ubuntu-latest
+
+    steps:
+      - uses: actions/checkout@v4
+      - uses: leanprover/lean-action@v1

.gitignore

@@ -0,0 +1 @@
+/.lake

Main.lean

@@ -0,0 +1,30 @@
+inductive Op : (inp out : Array (Type u)) → Type (u+1) where
+| push (a : α)        : Op #[] #[α]
+| pop  {α : Type u}   : Op #[α] #[]
+| dup  {α : Type u}   : Op #[α] #[α, α]
+| swap {α β : Type u} : Op #[α, β] #[β, α]
+| call (f : α → β)    : Op #[α] #[β]
+| seq  (a : Op i o) (b : Op o o') : Op i o'
+
+instance : HAndThen (Op i o) (Op o o') (Op i o') where
+  hAndThen a b := Op.seq a (b ())
+
+abbrev Stack : Array Type → Type
+| ⟨[]⟩ => Unit
+| ⟨[t]⟩ => t
+| ⟨t::ts⟩ => t × Stack ⟨ts⟩
+
+#reduce (types := true) Stack #[Nat, Int, Int]
+
+def Op.run : Op i o → Stack i → Stack o
+| push x, () => x
+| pop, _ => ()
+| dup, x => (x, x)
+| swap, (a, b) => (b, a)
+| call f, x => f x
+| seq a b, s => b.run (a.run s)
+
+#eval Op.push 1 >> Op.call Nat.succ |>.run ()
+
+def main : IO Unit :=
+  IO.println s!"Hello, world!"

README.md

@@ -0,0 +1 @@
+# puyo

lake-manifest.json

@@ -0,0 +1,5 @@
+{"version": "1.1.0",
+ "packagesDir": ".lake/packages",
+ "packages": [],
+ "name": "puyo",
+ "lakeDir": ".lake"}

lakefile.toml

@@ -0,0 +1,7 @@
+name = "puyo"
+version = "0.1.0"
+defaultTargets = ["puyo"]
+
+[[lean_exe]]
+name = "puyo"
+root = "Main"

lean-toolchain

@@ -0,0 +1 @@
+leanprover/lean4:v4.23.0