Skip to content

Instantly share code, notes, and snippets.

@IntegerMan

IntegerMan/performMove.fs

Created October 21, 2019 04:43
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 IntegerMan/9e051c0e2ebe8a94d9e04c6984baa2d7 to your computer and use it in GitHub Desktop.
Save IntegerMan/9e051c0e2ebe8a94d9e04c6984baa2d7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
performMove.fs
let performMove =
let actor = { actor with Pos = pos }
match actor.ActorKind with
| Squirrel _ -> { state with World={world with Squirrel = actor }}
| Tree -> { state with World={world with Tree = actor }}
| Acorn -> { state with World={world with Acorn = actor }}
| Rabbit -> { state with World={world with Rabbit = actor }}
| Doggo -> { state with World={world with Doggo = actor }}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment