diff options
author | Determinant <ted.sybil@gmail.com> | 2017-05-28 19:08:02 -0400 |
---|---|---|
committer | Determinant <ted.sybil@gmail.com> | 2017-05-28 19:08:02 -0400 |
commit | b2d6f0e28dac922ac4ed5c55f79d0dd38f4765d2 (patch) | |
tree | 8b89e89ee7ae2dcc6723536bdc76e795a2abd108 /11-20/12.hs | |
parent | afae39a832fbdf0f5bf67e20cac7bdf224b0a290 (diff) |
...
Diffstat (limited to '11-20/12.hs')
-rw-r--r-- | 11-20/12.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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 |