Skip to content

Instantly share code, notes, and snippets.

@lnds

lnds/tyf.hs

Created January 12, 2016 02:00
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save lnds/f24ce824041c3127ef37 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save lnds/f24ce824041c3127ef37 to your computer and use it in GitHub Desktop.
Download ZIP
Toques y Famas calculados en Haskell
Raw
tyf.hs
toques_y_famas [] _ _ = (0,0)
toques_y_famas (n:ns) (x:xs) ys
| n == x = (t,1+f)
| n `elem` ys = (t+1, f)
| otherwise = (t,f)
where (t,f) = (toques_y_famas ns xs ys)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment