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