Word wheel: Difference between revisions
m
→{{header|Haskell}}: ( tidying )
m (used an HTML "times" glyph instead of a lowercase "x".) |
m (→{{header|Haskell}}: ( tidying )) |
||
Line 185:
import Data.List (sort)
gridWords grid =▼
▲gridWords =
filter (((&&) . (2 <) . length) <*> (((&&) . elem mid) <*> wheelFit wheel))
where
Line 208 ⟶ 205:
main = do
s <- readFile "unixdict.txt"
mapM_ putStrLn $ gridWords ["NDE", "OKG", "ELW"] (lines s)</lang>
{{Out}}
<pre>eke
|