Skip to content

Instantly share code, notes, and snippets.

@kana-sama

kana-sama/index_of_fib_with_50_digs.hs

Created July 9, 2020 16:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kana-sama/8d9f5673cbdb640ce6843613845972af to your computer and use it in GitHub Desktop.
Save kana-sama/8d9f5673cbdb640ce6843613845972af to your computer and use it in GitHub Desktop.
Download ZIP
Raw
index_of_fib_with_50_digs.hs
import Data.List (findIndex)
import Data.Maybe (fromJust)
fibs = 1 : 1 : zipWith (+) fibs (tail fibs)
solution = fromJust $ findIndex (\x -> length (show x) == 50) fibs
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment