Skip to content

Instantly share code, notes, and snippets.

@oxidist

oxidist/un.hs

Created July 10, 2019 07:29
Show Gist options
  • Save oxidist/052d171a62322ea6e283182b82f235ca to your computer and use it in GitHub Desktop.
Save oxidist/052d171a62322ea6e283182b82f235ca to your computer and use it in GitHub Desktop.
Download ZIP
Raw
un.hs
un :: Rational -> Rational
un 1 = -2
un x = (2 * (un (pred x) ^^ 2) + 5 * (un (pred x)) - 7)^^(1 % 3)
main :: IO()
main = do
print $ un $ 10
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment