mirror of
https://github.com/Wessel/nhl-levenshtein.git
synced 2026-07-17 22:14:31 +02:00
14 lines
305 B
Haskell
14 lines
305 B
Haskell
-- module Main where
|
|
|
|
import Lib (levenshteinRatio)
|
|
import Text.Format
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let source = "kitten"
|
|
target = "sitting"
|
|
|
|
putStrLn $ format "Source\t{0}" [source]
|
|
putStrLn $ format "Target\t{0}" [target]
|
|
putStrLn $ format "Ratio\t{0}" [show (levenshteinRatio source target)]
|