fork(3) download
copy 
  1. main = print $ partitions 20 [16,8,4,2,1]
  2.  
  3. partitions 0 xs = [[]]
  4. partitions _ [] = []
  5. partitions n (xxs@(x:xs)) | n < 0 = []
  6.                           | otherwise = (map (x:) (partitions (n-x) xxs)) ++ partitions n xs
Success #stdin #stdout 0s 4712KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[16,4],[16,2,2],[16,2,1,1],[16,1,1,1,1],[8,8,4],[8,8,2,2],[8,8,2,1,1],[8,8,1,1,1,1],[8,4,4,4],[8,4,4,2,2],[8,4,4,2,1,1],[8,4,4,1,1,1,1],[8,4,2,2,2,2],[8,4,2,2,2,1,1],[8,4,2,2,1,1,1,1],[8,4,2,1,1,1,1,1,1],[8,4,1,1,1,1,1,1,1,1],[8,2,2,2,2,2,2],[8,2,2,2,2,2,1,1],[8,2,2,2,2,1,1,1,1],[8,2,2,2,1,1,1,1,1,1],[8,2,2,1,1,1,1,1,1,1,1],[8,2,1,1,1,1,1,1,1,1,1,1],[8,1,1,1,1,1,1,1,1,1,1,1,1],[4,4,4,4,4],[4,4,4,4,2,2],[4,4,4,4,2,1,1],[4,4,4,4,1,1,1,1],[4,4,4,2,2,2,2],[4,4,4,2,2,2,1,1],[4,4,4,2,2,1,1,1,1],[4,4,4,2,1,1,1,1,1,1],[4,4,4,1,1,1,1,1,1,1,1],[4,4,2,2,2,2,2,2],[4,4,2,2,2,2,2,1,1],[4,4,2,2,2,2,1,1,1,1],[4,4,2,2,2,1,1,1,1,1,1],[4,4,2,2,1,1,1,1,1,1,1,1],[4,4,2,1,1,1,1,1,1,1,1,1,1],[4,4,1,1,1,1,1,1,1,1,1,1,1,1],[4,2,2,2,2,2,2,2,2],[4,2,2,2,2,2,2,2,1,1],[4,2,2,2,2,2,2,1,1,1,1],[4,2,2,2,2,2,1,1,1,1,1,1],[4,2,2,2,2,1,1,1,1,1,1,1,1],[4,2,2,2,1,1,1,1,1,1,1,1,1,1],[4,2,2,1,1,1,1,1,1,1,1,1,1,1,1],[4,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1],[4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],[2,2,2,2,2,2,2,2,2,2],[2,2,2,2,2,2,2,2,2,1,1],[2,2,2,2,2,2,2,2,1,1,1,1],[2,2,2,2,2,2,2,1,1,1,1,1,1],[2,2,2,2,2,2,1,1,1,1,1,1,1,1],[2,2,2,2,2,1,1,1,1,1,1,1,1,1,1],[2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1],[2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1],[2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],[2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]
https://ideone.com/sVPG8G
language:
Haskell (ghc 8.4.4)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!