Noah Luck Easterly rampion

## Levenshtein.hs
module Main where

import qualified Data.List as L
import qualified Data.Vector.Unboxed.Safe as V
import Control.Monad (replicateM)
import System.Random (randomRIO)
import Criterion.Main

med :: String -> String -> Int
med s1 = V.last . V.ifoldl' scanS1 costs_i . V.fromList
	module Main where

	import qualified Data.List as L
	import qualified Data.Vector.Unboxed.Safe as V
	import Control.Monad (replicateM)
	import System.Random (randomRIO)
	import Criterion.Main

	med :: String -> String -> Int
	med s1 = V.last . V.ifoldl' scanS1 costs_i . V.fromList