diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2015-03-16 23:10:05 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2015-03-16 23:10:05 +0800 |
| commit | 11a5fd38018498a7b7feb0e392ac36003b0440ac (patch) | |
| tree | 30cdac4d89f448304ee962c4345bd67d59571bfb /h14.hs | |
| parent | 7f77f812350e8fb1687343faa17cf23d797883d5 (diff) | |
| download | h99-11a5fd38018498a7b7feb0e392ac36003b0440ac.tar.gz h99-11a5fd38018498a7b7feb0e392ac36003b0440ac.tar.bz2 h99-11a5fd38018498a7b7feb0e392ac36003b0440ac.zip | |
+12 +13 +14 +15
Diffstat (limited to 'h14.hs')
| -rw-r--r-- | h14.hs | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -0,0 +1,10 @@ +import Control.Applicative + +dupli :: [a] -> [a] +dupli = concatMap (replicate 2) + +dupli' xs = concat [ [x,x] | x <- xs ] + +dupli'' = (<**> [id,id]) + +dupli''' = foldr ((.) <$> (:) <*> (:)) [] |