Skip to content
Browse files

20'

  • Loading branch information...
1 parent d26feed commit afe5f2200bad892be4e9fd7b91ef55f61430e48a @tianyicui committed Nov 20, 2010
Showing with 2 additions and 0 deletions.
  1. +2 −0 20.hs
View
2 20.hs
@@ -3,3 +3,5 @@ removeAt n (x:xs)
| otherwise =
let (y,ys) = (removeAt (n-1) xs)
in (y,x:ys)
+
+removeAt' n xs = (xs !! (n-1), take (n-1) xs ++ drop n xs)

0 comments on commit afe5f22

Please sign in to comment.
Something went wrong with that request. Please try again.