diff options
Diffstat (limited to 'samples/rosetta/levenshtein_distance.bruijn')
| -rw-r--r-- | samples/rosetta/levenshtein_distance.bruijn | 10 |
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]]) |