Partition an integer x into n primes: Difference between revisions

Content added Content deleted
Line 624:
[ x
| x `elem` ps_ ]
go ps_ x n = ((flip bool [] . head) <*> null) (foldMapps_ found>>= ps_found)
where
found p =