diff options
Diffstat (limited to '1-10/8.hs')
-rw-r--r-- | 1-10/8.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/1-10/8.hs b/1-10/8.hs new file mode 100644 index 0000000..01d1781 --- /dev/null +++ b/1-10/8.hs @@ -0,0 +1,4 @@ +compress :: Eq a => [a] -> [a] +compress (x:y:xs) = if x == y then compress(y:xs) else x:compress(y:xs) +compress [] = [] +compress [x] = [x] |