View difference between Paste ID: zpJu3MaG and
SHOW:
|
|
- or go back to the newest paste.
| 1 | - | |
| 1 | + | sortL :: [String] -> [String] |
| 2 | sortL l = map sort (map (filter (/= '#')) l) | |
| 3 | ||
| 4 | comp :: [String] -> [String] -> [(String,String)] | |
| 5 | comp x y = filter (\(x,y) -> x==y) (zip x y) | |
| 6 | ||
| 7 | firsts :: [String] -> [String] -> [String] | |
| 8 | firsts a b = map fst $ comp a b | |
| 9 | ||
| 10 | transl :: [String] -> [String] -> [String] | |
| 11 | transl a b = map snd $ filter (==(map fst (comp (firsts a b) (map fst a)))) a -- error |
