Coprime triplets: Difference between revisions
Content added Content deleted
Line 169: | Line 169: | ||
Just c = |
Just c = |
||
find |
find |
||
( ( |
( ((&&) . flip S.notMember seen) |
||
((&&) . flip |
<*> ((&&) . flip coprime a <*> flip coprime b) |
||
( (<*>) |
|||
((&&) . flip coprime a) |
|||
(`coprime` b) |
|||
) |
|||
) |
) |
||
[3 ..] |
[3 ..] |
||
Line 195: | Line 191: | ||
-------------------------- FORMAT ------------------------ |
-------------------------- FORMAT ------------------------ |
||
spacedTable :: |
spacedTable :: |
||
(Int -> Char -> String -> String) -> [[String]] -> String |
(Int -> Char -> String -> String) -> [[String]] -> String |