dpiponi · February 11, 2018 05:33 · dpiponi · Feb 11, 2018
diff --git a/Find words whose rotations are words b/Find words whose rotations are words
 import System.IO
 import Data.List

 rot :: Int -> String -> String
 rot n s =
    let (body, tail) = splitAt n s
    in tail ++ body

 lookups :: [String] -> [String] -> [String]
 lookups [] _ = []
 lookups _ [] = []
 lookups (a:as) (w:ws) | a < w = lookups as (w:ws)
                      | a > w = lookups (a:as) ws
                      | otherwise = a : lookups as (w:ws)

 main :: IO ()
 main = do
    withFile "/usr/share/dict/words" ReadMode $ \handle -> do
        file <- hGetContents handle
        let dict = words file
        --let dict = filter (\w -> length w >= 8) dict0
        let rots = sort $ map (rot 1) dict
        print $ sortOn length $ lookups rots dict
	import System.IO
	import Data.List

	rot :: Int -> String -> String
	rot n s =
	let (body, tail) = splitAt n s
	in tail ++ body

	lookups :: [String] -> [String] -> [String]
	lookups [] _ = []
	lookups _ [] = []
	lookups (a:as) (w:ws) \| a < w = lookups as (w:ws)
	\| a > w = lookups (a:as) ws
	\| otherwise = a : lookups as (w:ws)

	main :: IO ()
	main = do
	withFile "/usr/share/dict/words" ReadMode $ \handle -> do
	file <- hGetContents handle
	let dict = words file
	--let dict = filter (\w -> length w >= 8) dict0
	let rots = sort $ map (rot 1) dict
	print $ sortOn length $ lookups rots dict