Coprime triplets: Difference between revisions

m
Line 169:
Just c =
find
( (<*>(&&) . flip S.notMember seen)
<*> ((&&) . flip S.notMembercoprime a <*> flip coprime seenb)
( (<*>)
((&&) . flip coprime a)
(`coprime` b)
)
)
[3 ..]
Line 195 ⟶ 191:
 
-------------------------- FORMAT ------------------------
 
spacedTable ::
(Int -> Char -> String -> String) -> [[String]] -> String
9,655

edits