Skip to content

Instantly share code, notes, and snippets.

@5outh

5outh/shortest.hs

Last active December 10, 2015 20:28
Show Gist options
  • Save 5outh/4487797 to your computer and use it in GitHub Desktop.
Save 5outh/4487797 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
shortest.hs
shortest :: (Num a, Ord a) => Tree a -> a
shortest (Leaf x) = x
shortest (Node x xs) = x + (minimum $ map shortest xs)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment