Advertisement
flyingfisch

Untitled

Sep 23rd, 2014
237
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. elementAt :: (Integral b) => [a] -> b -> a
  2. elementAt [] i = error "Empty list."
  3. elementAt l i
  4.     | i < 1 = head l
  5.     | i > (length l) = last l
  6.     | otherwise = l !! (i - 1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement