From babae0cdb58bb348155a2e546a7bbef088dfafad Mon Sep 17 00:00:00 2001 From: Myoungjin JEON Date: Fri, 23 Oct 2020 21:30:15 +1100 Subject: [ch-083/jeongoon] Haskell simpler better combinations --- challenge-083/jeongoon/haskell/Combinations.hs | 25 ------------------------- 1 file changed, 25 deletions(-) delete mode 100644 challenge-083/jeongoon/haskell/Combinations.hs diff --git a/challenge-083/jeongoon/haskell/Combinations.hs b/challenge-083/jeongoon/haskell/Combinations.hs deleted file mode 100644 index f8c5324f43..0000000000 --- a/challenge-083/jeongoon/haskell/Combinations.hs +++ /dev/null @@ -1,25 +0,0 @@ -{- Copyright (c) 2020 JEON Myoungjin -} - -module Combinations - ( combinations - ) where - -combinations :: [a] -> Int -> [[a]] -combinations [] _ = [] -combinations (m:ms) 1 = [m] : (combinations ms 1) -combinations [_] 2 = [] -combinations [e,f] 2 = sequence [ [e],[f] ] -combinations (m:ms) 2 = sequence [ [m], ms ] ++ (combinations ms 2) -combinations mls n = - case totalLen `compare` n of - LT -> [] - EQ -> [mls] - _ -> [ let leaders = map (mls!!) ids - in leaders ++ followers | - ids <- combinations [ 0 .. room ] n', - let skipCount = (last ids) + 1, - followers <- (combinations (drop skipCount mls) 2) ] - where - totalLen = length mls - room = totalLen - 2 - n' = n - 2 -- cgit