Skip to content

Instantly share code, notes, and snippets.

@isaacabraham

isaacabraham/monopoly4.fs

Last active December 17, 2015 07:09
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 isaacabraham/5571122 to your computer and use it in GitHub Desktop.
Save isaacabraham/5571122 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
monopoly4.fs
let roll currentPosition dice =
let position = currentPosition |> moveBy dice // return new position, do not mutate current position
printfn "Landed on %s" (printName position)
match calculateMove position with
| Some(movedTo) -> printfn "Moved to %s" (printName movedTo)
movedTo
| None -> position
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment