+12 +13 +14 +15

1 files changed, 8 insertions, 0 deletions

diff --git a/h12.hs b/h12.hs
new file mode 100644
index 0000000..9b1b50e
--- /dev/null
+++ b/h12.hs
@@ -0,0 +1,8 @@
+data ListItem a = Single a | Multiple a Int
+    deriving (Show)
+
+decodeModified :: [ListItem a] -> [a]
+decodeModified = concatMap decodeHelper
+    where
+        decodeHelper (Single a) = [a]
+        decodeHelper (Multiple a b) = replicate b a