joyheron · March 5, 2018 21:12
diff --git a/cookie-jar.hs b/cookie-jar.hs
 -- This solution was created by Martin Kühl (https://github.com/mkhl)

 takeCookies n jar = if n > jar
  then 0
  else jar - n
 bakeCookies n jar = jar + n
 emptyCookieJar = 0

 cat = modify (takeCookies 1)
 grandma = modify (bakeCookies 10)
 cookieMonster = put emptyCookieJar
  
 workflow = do
  cat
  cookieMonster
  grandma
  cookieMonster
 
 
 run = execState workflow 5