yolo.hs

module Yolo where

combinaisons :: [Int] -> [[Int]]
combinaisons [] = []
combinaisons [x] = [[x]]
combinaisons [x, y] = [[x, y], [y, x]]
-- use fold
combinaisons arr = concat $ map (\y -> subcombinaisons y arr) arr
    where
    without e = filter (/= e)
    subcombinaisons e list = map (e :) $ combinaisons $ without e list