power set of subtraction of n where every element in each subset are greater than m.

c.hs

repile r 1 d m s = if d >= head s then (d:s):r else r
repile r p d m s = do
    if d > m
        then repile (repile r (p-1) (d-m) m (m:s)) p d (m+1) s
        else r

mkpile r 0 d m = mkpile r (d `div` m) d m
mkpile r p d m = do
    if p > 1
        then mkpile (repile r p d m []) (p-1) d m
        else (d:[]):r


powerSetGreater numberToSubtract minimumSize = mkpile [] 0 numberToSubtract minimumSize

ภาษาอะไรฮะ?

@amaudy haskell ฮะ เป็นภาษาที่ส่งเสริมให้เราเขียนแต่ recursive XD