Levenshtein distance: Difference between revisions
Content added Content deleted
(Added Algol 68.) |
|||
Line 537: | Line 537: | ||
end levenshtein |
end levenshtein |
||
---------------------------TEST |
--------------------------- TEST --------------------------- |
||
on run |
on run |
||
script test |
script test |
||
Line 552: | Line 552: | ||
-------------------- |
-------------------- GENERIC FUNCTIONS --------------------- |
||
-- enumFromTo :: Int -> Int -> [Int] |
-- enumFromTo :: Int -> Int -> [Int] |
||
Line 566: | Line 566: | ||
end if |
end if |
||
end enumFromTo |
end enumFromTo |
||
-- fromEnum :: Enum a => a -> Int |
-- fromEnum :: Enum a => a -> Int |
||
Line 586: | Line 587: | ||
end if |
end if |
||
end fromEnum |
end fromEnum |
||
-- foldl :: (a -> b -> a) -> a -> [b] -> a |
-- foldl :: (a -> b -> a) -> a -> [b] -> a |
||
Line 598: | Line 600: | ||
end tell |
end tell |
||
end foldl |
end foldl |
||
-- map :: (a -> b) -> [a] -> [b] |
-- map :: (a -> b) -> [a] -> [b] |
||
Line 612: | Line 615: | ||
end tell |
end tell |
||
end map |
end map |
||
-- minimum :: Ord a => [a] -> a |
-- minimum :: Ord a => [a] -> a |
||
Line 624: | Line 628: | ||
return m |
return m |
||
end minimum |
end minimum |
||
-- mReturn :: First-class m => (a -> b) -> m (a -> b) |
-- mReturn :: First-class m => (a -> b) -> m (a -> b) |
||
Line 636: | Line 641: | ||
end if |
end if |
||
end mReturn |
end mReturn |
||
-- scanl :: (b -> a -> b) -> b -> [a] -> [b] |
-- scanl :: (b -> a -> b) -> b -> [a] -> [b] |
||
Line 650: | Line 656: | ||
end tell |
end tell |
||
end scanl |
end scanl |
||
-- zip3 :: [a] -> [b] -> [c] -> [(a, b, c)] |
-- zip3 :: [a] -> [b] -> [c] -> [(a, b, c)] |