mirror of
https://github.com/Wessel/nhl-levenshtein.git
synced 2026-07-10 14:04:52 +02:00
17 lines
322 B
Haskell
17 lines
322 B
Haskell
-- module Main where
|
|
|
|
import Lib (levenshteinRatio)
|
|
import Text.Format
|
|
|
|
main :: IO ()
|
|
main = do
|
|
repeatNTimes
|
|
1000000
|
|
(putStrLn
|
|
(format "{0}" [show (levenshteinRatio "test" "kitten")])
|
|
)
|
|
where
|
|
repeatNTimes 0 _ = return ()
|
|
repeatNTimes n action = do
|
|
action
|
|
repeatNTimes (n-1) action |