Skip to content

Instantly share code, notes, and snippets.

@pmiddend

pmiddend/PatternCount.hs

Created January 27, 2016 14:44
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save pmiddend/6433fe8ae30d5fe96ba4 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save pmiddend/6433fe8ae30d5fe96ba4 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
PatternCount.hs
safeAt :: [a] -> Int -> Maybe a
safeAt [] _ = Nothing
safeAt (x:_) 0 = Just x
safeAt (_:xs) i = safeAt xs (i-1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment