h14.hs


1
2
3
4
5
6
7
8
9
10

import Control.Applicative

dupli :: [a] -> [a]
dupli = concatMap (replicate 2)

dupli' xs = concat [ [x,x] | x <- xs ]

dupli'' = (<**> [id,id])

dupli''' = foldr ((.) <$> (:) <*> (:)) []