https://github.com/thsutton/edit-distance-vector
Calculate edit scripts and distances between Vectors.
https://github.com/thsutton/edit-distance-vector
Last synced: over 1 year ago
JSON representation
Calculate edit scripts and distances between Vectors.
- Host: GitHub
- URL: https://github.com/thsutton/edit-distance-vector
- Owner: thsutton
- License: bsd-3-clause
- Created: 2015-04-03T07:33:10.000Z (over 11 years ago)
- Default Branch: master
- Last Pushed: 2019-01-14T23:29:13.000Z (over 7 years ago)
- Last Synced: 2024-12-06T19:09:58.590Z (over 1 year ago)
- Language: Haskell
- Size: 51.8 KB
- Stars: 9
- Watchers: 2
- Forks: 1
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- Changelog: CHANGELOG.md
- License: LICENSE
Awesome Lists containing this project
README
Edit Distance: Vector
=====================
[![Build Status][badge]][status]
This is a small library for calculating the edit distance and edit script
between two vectors. It is generic enough that you should be able to use it
with vectors containing *values* of any type you like, with *changes* described
by any type you like, and with *costs* represented by any type you like (with a
few restrictions).
Installing
----------
The `edit-distance-vector` package is a normal Haskell library and can be
installed using the Cabal package management tool.
````{bash}
cabal update
cabal install edit-distance-vector
````
`edit-distance-vector` is [automatically tested][status] against Stackage
LTS-3, LTS-5, LTS-6, LTS-7, and LTS-8 using the Travis CI service.
Usage
-----
The interface to `edit-distance-vector` is very small; just import
`Data.Vector.Distance`, create a `Params` value with the correct operations to
deal with your types, and pass this to `leastChanges` along with your
`Vector`s.
````{haskell}
import Data.Monoid
import qualified Data.Vector as V
import Data.Vector.Distance
-- | Editing vectors of 'Char' values, with '(String, Int, Char)' describing
-- changes, and the additive monoid of 'Int' describing costs.
str :: Params Char (String, Int, Char) (Sum Int)
str = Params
{ equivalent = (==)
, delete = \i c -> ("delete", i, c)
, insert = \i c -> ("insert", i, c)
, substitute = \i c c' -> ("replace", i, c')
, cost = const (Sum 1)
, positionOffset = \ (op, _, _) -> if op == "delete" then 0 else 1
}
main :: IO ()
main = do
print $ leastChanges str (V.fromList "I am thomas")
(V.fromList "My name is Thomas")
````
(See `test/sample.hs` for a version of this code that is compiled
by the automated test suite.)
[badge]: https://travis-ci.org/thsutton/edit-distance-vector.svg?branch=master
[status]: https://travis-ci.org/thsutton/edit-distance-vector