From a9abc1da41b56edbed00081800382e854d6698d0 Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Tue, 31 Mar 2015 23:41:55 +0800 Subject: rename to H**, +31 +32 +33 +34 +35 +36 --- h14.hs | 10 ---------- 1 file changed, 10 deletions(-) delete mode 100644 h14.hs (limited to 'h14.hs') diff --git a/h14.hs b/h14.hs deleted file mode 100644 index e7ad73d..0000000 --- a/h14.hs +++ /dev/null @@ -1,10 +0,0 @@ -import Control.Applicative - -dupli :: [a] -> [a] -dupli = concatMap (replicate 2) - -dupli' xs = concat [ [x,x] | x <- xs ] - -dupli'' = (<**> [id,id]) - -dupli''' = foldr ((.) <$> (:) <*> (:)) [] -- cgit v1.2.3-70-g09d2