Docs & samples

1 files changed, 10 insertions, 0 deletions

diff --git a/samples/rosetta/levenshtein_distance.bruijn b/samples/rosetta/levenshtein_distance.bruijn
new file mode 100644
index 0000000..2111ade
--- /dev/null
+++ b/samples/rosetta/levenshtein_distance.bruijn
@@ -0,0 +1,10 @@
+:import std/Combinator .
+:import std/Char C
+:import std/List .
+:import std/Math .
+
+levenshtein y [[[∅?1 ∀0 (∅?0 ∀1 (0 (1 [[[[go]]]])))]]]
+	go (C.eq? 3 1) (6 2 0) ++(lmin ((6 2 0) : ((6 5 0) : {}(6 2 4))))
+
+:test ((levenshtein "rosettacode" "raisethysword") =? (+8)) ([[1]])
+:test ((levenshtein "kitten" "sitting") =? (+3)) ([[1]])