Skip to content

Instantly share code, notes, and snippets.

@reidev275

reidev275/interpretDslProgram.purs

Created January 25, 2019 12:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save reidev275/a47e286f86f9044b39816126196bb574 to your computer and use it in GitHub Desktop.
Save reidev275/a47e286f86f9044b39816126196bb574 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
interpretDslProgram.purs
program ∷ State → Dsl State
program init =
forward init
>>= left
>>= forward
>>= right
>>= forward
>>= left
>>= forward
>>= backward
initial ∷ State
initial = State { x: Ten, y: One, direction: East }
main ∷ Effect Unit
main = do
log $ show initial
s ← interpretDsl $ program initial
log "Done!"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment