Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sortL :: [String] -> [String]
- sortL l = map sort (map (filter (/= '#')) l)
- comp :: [String] -> [String] -> [(String,String)]
- comp x y = filter (\(x,y) -> x==y) (zip x y)
- firsts :: [String] -> [String] -> [String]
- firsts a b = map fst $ comp a b
- transl :: [String] -> [String] -> [String]
- transl a b = map snd $ filter (==(map fst (comp (firsts a b) (map fst a)))) a -- error
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement