diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2015-03-17 11:05:29 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2015-03-17 11:05:29 +0800 |
| commit | a9ee47b61558efe09aee23f5671aabd0c3747e8a (patch) | |
| tree | 52426053545a54514d39300e2117bdda14a9b1ef /h3.hs | |
| parent | 11a5fd38018498a7b7feb0e392ac36003b0440ac (diff) | |
| download | h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.tar.gz h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.tar.bz2 h99-a9ee47b61558efe09aee23f5671aabd0c3747e8a.zip | |
p -> h
Diffstat (limited to 'h3.hs')
| -rw-r--r-- | h3.hs | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -0,0 +1,7 @@ +elementAt :: [a] -> Integer -> Maybe a + +elementAt [] _ = Nothing +elementAt (x:xs) 1 = Just x +elementAt (x:xs) n + | n>1 = elementAt xs (n-1) + | otherwise = Nothing |