From 58ae983e0dc2e3a9fe7a0fd29c3342289812d3f8 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 5 Dec 2022 14:57:54 +0200 Subject: Add -O2 to ghc-options --- examples/fibo.milch | 7 +++++++ examples/test.milch | 10 ---------- 2 files changed, 7 insertions(+), 10 deletions(-) create mode 100644 examples/fibo.milch (limited to 'examples') diff --git a/examples/fibo.milch b/examples/fibo.milch new file mode 100644 index 0000000..26c74a1 --- /dev/null +++ b/examples/fibo.milch @@ -0,0 +1,7 @@ +(let! fibo (\[n] + (match n + 0 0 + 1 1 + _ (+ (fibo (- n 1)) (fibo (- n 2)))))) + +(fibo 30) diff --git a/examples/test.milch b/examples/test.milch index fd8c379..84193eb 100644 --- a/examples/test.milch +++ b/examples/test.milch @@ -52,16 +52,6 @@ (filter is-even [0 1 2 3 4 5]) -(let! fibo (\[n] - (let! lazy fibo-1 (fibo (- n 1))) - (let! lazy fibo-2 (fibo (- n 2))) - (match n - 0 0 - 1 1 - _ (+ fibo-1 fibo-2)))) - -(fibo 10) - (let! reverse_ (\[v a] (let! lazy x (head v)) (let! lazy xs (tail v)) -- cgit v1.3