From d0aa856bedb0c0223b4ce2a67f5582b8eadf3682 Mon Sep 17 00:00:00 2001
From: Determinant <ted.sybil@gmail.com>
Date: Mon, 29 May 2017 16:33:04 -0400
Subject: finish v5

---
 46-50/49.hs | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 46-50/49.hs

(limited to '46-50/49.hs')

diff --git a/46-50/49.hs b/46-50/49.hs
new file mode 100644
index 0000000..afe25ad
--- /dev/null
+++ b/46-50/49.hs
@@ -0,0 +1,4 @@
+gray :: Int -> [String]
+
+gray 0 = [""]
+gray n = (map ('0':) last) ++ (map ('1':) $ reverse last) where last = gray (n - 1)
-- 
cgit v1.2.3