From a9abc1da41b56edbed00081800382e854d6698d0 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Tue, 31 Mar 2015 23:41:55 +0800
Subject: rename to H**, +31 +32 +33 +34 +35 +36

---
 h27.hs | 13 -------------
 1 file changed, 13 deletions(-)
 delete mode 100644 h27.hs

(limited to 'h27.hs')

diff --git a/h27.hs b/h27.hs
deleted file mode 100644
index 8c0dab1..0000000
--- a/h27.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-import Control.Arrow
-combination :: Int -> [a] -> [([a],[a])]                                                                                                  
-combination 0 xs = [([],xs)]
-combination _ [] = []                                                                                                               
-combination c (x:xs) = (map ((x:).fst &&& snd) (combination (c-1) xs)) ++ (map (fst &&& (x:).snd) (combination c xs))
-
-group :: [Int] -> [a] -> [[[a]]]
-group [] _ = [[]]
--- group [n] xs = map ((:[]).fst) (combination n xs)
-group (n:ns) xs = concatMap (\(comb,rest) -> map (comb:) (group ns rest)) (combination n xs)
-
-group' [] = const [[]]
-group' (n:ns) = concatMap (uncurry $ (. group' ns) . map . (:)) . combination n
-- 
cgit v1.2.3-70-g09d2