Skip to content

Instantly share code, notes, and snippets.

Created Jun 2, 2016
Embed
What would you like to do?
the description for this gist
val program2: (Position => Free[Instruction, Unit]) = {
s: Position =>
for {
p1 <- forward(s, 10)
p2 <- right(p1, Degree(90))
p3 <- forward(p2, 10)
p4 <- backward(p3, 20)//Here the computation stops, because result will be None
_ <- showPosition(p4)
} yield ()
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment