Skip to content

Instantly share code, notes, and snippets.

@LukaHorvat

LukaHorvat/Graph.hs

Created November 12, 2014 16:44
Show Gist options
  • Save LukaHorvat/eb15b867c958833e5d9d to your computer and use it in GitHub Desktop.
Save LukaHorvat/eb15b867c958833e5d9d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Graph.hs
pop :: State (Seq Int, Set Int) (Maybe [Int])
pop = do
(x :< xs) <- viewl <$> gets fst
modify $ const xs *** id
return x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment