Программа сравнения информации из двух файлов

block :: String -> [(String, String)]
block "" = []
block str = map (\w-> (let (x:y:_) = words w in (x,y)) ) (lines str)
 
mainloop :: String -> String -> [(String, String)]
mainloop instr mapstr = map(\x -> todesc x (block mapstr))
                    (takenize instr)
db (x:(y:ys)) = ()
 
todesc -> String -> [(String, String)] -> (String, String)
todesc key [] = (key, "")
todesc key ((k, v):xs) = if  key = k then (k, v) todesc key xs
 
fourSym :: String -> [String]
fourSym [] = []
fourSym a = (take 4 a) : (fourSym (drop 4 a))
 
 
main = do
    str <- readFile "in.txt"
    let strArray = lines str
    
    longStr <- readFile "long.txt"
    
    writeFile "out1.txt" (show strArray)
    writeFile "out2.txt" (show (fourSym longStr))

todesc key ((k, v):xs) = if  key == k then (k, v) else todesc key xs

by :: Int -> [a] -> [[a]]
by _ [] = []
by n xs = take n xs: by n (drop n xs)
 
words2 :: String -> (String, String)
words2 str = conc $ words str where
    conc (x:xs) = (x, concat xs)
 
groupTemplates :: String -> [(String, String)]
groupTemplates xs = map (words2) (lines xs)
 
decodeOne :: String -> [(String, String)] -> String
decodeOne _ [] = ""
decodeOne str (x:xs) | str == fst x = fst x ++ " " ++ snd x ++ "\n"
decodeOne str (_:xs) = decodeOne str xs
 
decode :: [String] -> [(String, String)] -> String
decode bs ts = concat $ map (\b -> decodeOne b ts) bs
 
main = do
    bits      <- readFile "bits.txt"
    templates <- readFile "templates.txt"
 
    writeFile "out.txt" $ decode (by 4 bits) (groupTemplates templates)

import Data.Functor
import System.IO
 
groupBy :: Int -> [a] -> [[a]]
groupBy _ []    = []
groupBy n input = take n input : groupBy n (drop n input)
 
filterDict :: [String] -> [String] -> [String]
filterDict quartets = filter (flip elem quartets . take 4)
 
main :: IO ()
main = do
  quartets <- groupBy 4 <$> readFile "bits.txt"
  dict <- lines <$> readFile "dict.txt"
  withFile "out.txt" WriteMode $ \h -> do
    mapM_ (hPutStrLn h) (filterDict quartets dict)

by :: Int -> [a] -> [[a]]
by _ [] = []
by n xs = take n xs: by n (drop n xs)
 
words2 :: String -> (String, String)
words2 str = conc $ words str where
    conc (x:xs) = (x, concat xs)
 
groupTemplates :: String -> [(String, String)]
groupTemplates xs = map (words2) (lines xs)
 
decodeOne :: String -> [(String, String)] -> String
decodeOne _ [] = ""
decodeOne str (x:xs) | str == fst x = fst x ++ " " ++ snd x ++ "\n"
decodeOne str (_:xs) = decodeOne str xs
 
decode :: [String] -> [(String, String)] -> String
decode bs ts = concat $ map (\b -> decodeOne b ts) bs
 
main = do
    bits      <- readFile "bits.txt"
    templates <- readFile "templates.txt"
 
    writeFile "out.txt" $ decode (by 4 bits) (groupTemplates templates)