From 18a639eb460d7581a5dd594a50eb236ae7675685 Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Tue, 17 Mar 2015 14:33:20 +0800 Subject: +16 +17 +18 +19 --- h19.hs | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 h19.hs (limited to 'h19.hs') diff --git a/h19.hs b/h19.hs new file mode 100644 index 0000000..45c5a07 --- /dev/null +++ b/h19.hs @@ -0,0 +1,6 @@ +rotate :: [a] -> Int -> [a] +rotate xs c + | c < 0 = rotate xs (c + (length xs)) + | otherwise = (drop (c `mod` (length xs)) xs ) ++ (take (c `mod` (length xs)) xs) + +rotate' xs c = take (length xs) $ drop (length xs + c) $ cycle xs -- cgit v1.2.3-70-g09d2