Cacher is the code snippet organizer for pro developers

module Main where

parts n = parts' 1 n where
    parts' _ 0 = [[]]
    parts' p n = concatMap (\x -> (map . (:)) x $ parts' x $ n - x) [p .. n]