Partition an integer x into n primes: Difference between revisions
Content added Content deleted
Line 624: | Line 624: | ||
[ x |
[ x |
||
| x `elem` ps_ ] |
| x `elem` ps_ ] |
||
go ps_ x n = ((flip bool [] . head) <*> null) ( |
go ps_ x n = ((flip bool [] . head) <*> null) (ps_ >>= found) |
||
where |
where |
||
found p = |
found p = |