From f07a21427d4d15ff5c9c98b528e83eb60867bc98 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Thu, 19 Mar 2015 00:13:40 +0800
Subject: +26 /27

---
 h26.hs | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 h26.hs

(limited to 'h26.hs')

diff --git a/h26.hs b/h26.hs
new file mode 100644
index 0000000..4497e8c
--- /dev/null
+++ b/h26.hs
@@ -0,0 +1,5 @@
+combination :: Int -> [a] -> [[a]]
+combination 0 _ = [[]]
+combination _ [] = []
+combination c (x:xs) = (map (x:) (combination (c-1) xs)) ++ (combination c xs)
+
-- 
cgit v1.2.3-70-g09d2