Split an integer to a set of integers (i.e. split_int 5 3 -> [1,1,3], [1,2,2])

split_int.hs

split_int :: Int -> Int  -> [[Int]]
split_int n set_num = split_int_helper n set_num 1

split_int_helper n 1 _ = [[n]]
split_int_helper n set_num start_idx = do
                           let last_idx = truncate $ (fromIntegral n)/(fromIntegral set_num)
                           x <- [start_idx..last_idx]
                           y <- split_int_helper (n-x) (set_num-1) x
                           return (x:y)