Skip to content

Instantly share code, notes, and snippets.

@0rca

0rca/test4.hs

Created December 23, 2014 16:51
Show Gist options
  • Save 0rca/55e786eb23163992dcc6 to your computer and use it in GitHub Desktop.
Save 0rca/55e786eb23163992dcc6 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test4.hs
import Data.List
numseq = concatMap show [1..]
findFirst a = fmap (+ 1) $ findIndex (isPrefixOf a) (tails xs) where
xs = numseq
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment