From b2d6f0e28dac922ac4ed5c55f79d0dd38f4765d2 Mon Sep 17 00:00:00 2001
From: Determinant <ted.sybil@gmail.com>
Date: Sun, 28 May 2017 19:08:02 -0400
Subject: ...

---
 11-20/12.hs | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 11-20/12.hs

(limited to '11-20/12.hs')

diff --git a/11-20/12.hs b/11-20/12.hs
new file mode 100644
index 0000000..3c1ce90
--- /dev/null
+++ b/11-20/12.hs
@@ -0,0 +1,6 @@
+data ListItem a = Single a | Multiple Int a deriving Show
+decodeModified :: [ListItem a] -> [a]
+
+decodeModified [] = []
+decodeModified (Single x:xs) = x:(decodeModified xs)
+decodeModified (Multiple l x:xs) = replicate l x ++ decodeModified xs
-- 
cgit v1.2.3