From ee509e05746731b12afe64bfe34284b119f6b4ae Mon Sep 17 00:00:00 2001
From: mryouse
Date: Tue, 2 Aug 2022 02:16:38 +0000
Subject: exercises

---
 rosetta/lev.neb | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 rosetta/lev.neb

(limited to 'rosetta/lev.neb')

diff --git a/rosetta/lev.neb b/rosetta/lev.neb
new file mode 100644
index 0000000..6797c41
--- /dev/null
+++ b/rosetta/lev.neb
@@ -0,0 +1,20 @@
+(func min (lst :{:int})
+    (def val (first lst))
+    (for-each (rest lst)
+        (if (< _item_ val)
+            (redef val _item_)))
+    val)
+
+(func lev (s t)
+    (branch
+        ((eq? 0 (length s)) (length t))
+        ((eq? 0 (length t)) (length s))
+        ((eq? (first s) (first t))
+            (lev (rest s) (rest t)))
+        (#true
+            (+ 1
+                (min
+                    (list
+                        (lev s (rest t))
+                        (lev (rest s) t)
+                        (lev (rest s) (rest t))))))))
-- 
cgit v1.2.3