This is part two of a tutorial series on using F# to build a genetic algorithm in .NET Core.
By the end of the article you’ll learn a lot more about the specifics of F# and we’ll have a player controlled squirrel that can move around the game world.
By the end of the series, the application will use genetic algorithms to evolve a squirrel capable of getting an acorn and returning it to its tree without being eaten by the dog, but the intent of this series is to introduce you to various parts of the .NET Core ecosystem as well as the F# programming language.
Last time we set up a F# library and console application that rendered a 2D grid with a single squirrel on it and allowed the player to regenerate the grid by pressing
R or exit by pressing
In this article, we’ll:
- Explore additional functional concepts as we incorporate feedback from a popular F# author
- Introduce the Dog, Rabbit, Acorn, and Tree Actors
- Refine the level generation to make sure actors start in valid spots
- Allow the player to move the Squirrel around the game grid
- Clean up the main game loop’s input code
On that first point, Isaac Abraham, author of the fantastic book Get Programming with F# came across my last article and sent me a merge request with some terrific feedback.
I’ll be sprinkling in this feedback as we go to help you understand the lessons I’m learning as we go.
Let’s get started.
Smarter World Positions
Let’s start with something small. Previously I had been using both
module declarations like the following:
That works, but it’s inefficient. You can actually merge them together into the
module declaration like the following:
This reduces nesting and keeps logic concise.
You’ll also note that we added an
isAdjacentTo method. This isn't anything extremely new, though it uses the built-in
abs function to grab the absolute value of a number.
We’ll make use of this method later on in world generation.
Adding New Actor Types
Ultimately our simulation will contain the following actors:
- Squirrel — The squirrel is the actor we will be evolving. It need to get an acorn and return to its tree without being eaten before time runs out.
- Acorn — The acorn is the squirrel’s objective. It does nothing on its own and disappears once the squirrel enters its tile.
- Tree — The tree does nothing. If the squirrel enters the tree tile once it has the acorn, the simulation ends with a win for the squirrel.
- Doggo — The dog sits still until the rabbit or squirrel enter a nearby tile. Once that happens, the dog will eat the rabbit or squirrel. This is a hazard our squirrel must avoid.
- Rabbit — The rabbit wanders around the simulation at random. It effectively does nothing except create chaos.
Our actor definition file looks like the following:
Previously I was using inheritance for the
Squirrel classes since F# wasn't allowing me to use different types of discriminated unions in the same collection.
Isaac Abraham pointed out that I could define a single
Actor type and have that type define a specific kind that indicated which kind of actor it was. As we see above, this still allows us to have custom state on specific kinds of actors - such as the squirrel having the acorn.
getChar method uses discriminated unions to very good effect here. The
ActorKind type is a discriminated union that says that an
ActorKind can be either a Squirrel, Doggo, Acorn, Tree, or Rabbit. The
getChar method uses
match to respond to various
ActorKind values on
actor, returning the appropriate character (since each match clause is the last statement run in the method).
The nice thing about this, is that if we add a new
ActorKind later on, F# will complain that we didn't add a match case for it in
getChar, helping us avoid mistakes and maintain a high level of quality.
World is a longer file, so let’s go over it section by section:
Here we define the
World type that contains an array of actors and contains basic dimensional information.
|] syntax indicates an array with
; separators between elements. The array here just refers to the constant entities associated with the various actor types. Note again that nothing is mutable, so the World instance will never change.
Next we introduce some random generation logic:
getRandomPos is largely unchanged and still grabs a random position within the acceptable range.
buildItemsArray is new and builds our array of randomly-positioned entities. Here we're repeatedly generating random positions, then specifying he
ActorKind of the entity. Note that for the squirrel we pass in
false indicating that the Squirrel does not have the acorn initially.
Next let’s look at a function that is at the core of the world generation mechanism:
hasInvalidlyPlacedItems function searches all actors to see if any rules are violated. Specifically, after generation, no actor can start in a corner and no actor can start adjacent to any other actor.
The syntax here shouldn’t be anything new, but is included for completeness.
Now, let’s look at our core generation code:
generate method builds a candidate set of arranged actors. Since the random positioning logic can result in actors placed in invalid locations, the
hasInvalidlyPlacedItems function is called and the items collection will be replaced until a group of actors is chosen that have valid positions.
makeWorld is a simple function that grabs the list of actors and returns a
World instance with those actors. Our calling code can call
makeWorld with basic dimensions and a
Random instance and get back a world in a valid initial state.
Now let’s get into some new territory. We’re going to start allowing for simulation of the game world starting in this article with controlling the squirrel via player input.
GameState is a standard object used to represent the game's state at a specific point in time.
isValidPos is nothing special and just does a boundaries check.
hasObstacle uses the pipe forward operator (
|>) to invoke
world.Actors as the first parameter of the
seq.Exists function call.
seq.Exists is one of many functions associated with sequences. This checks all actors to determine if any exists at the specified position by using a matching function on each
Next let’s look at our code to move an actor around:
First we calculate the new position by looking at
yDiff to calculate a new candidate position. Next we check our two utility positions to make sure the position is unoccupied and is within the bounds of the game world.
If the position is valid, then we create
actor which is a clone identical to the old
actor parameter, but using the new Position via the with keyword.
Next we create a clone of the world, only using the new version of the appropriate actor kind instead of the old version.
Finally, if the position was invalid, we just return the existing instance of the world without modification.
Simulator also has a function to help with presentation:
Seq.tryFind to search the
world.Actors array for an actor at the specified position. This can either return a match or not. Put another way, this either returns some actor or none. This is an interesting opportunity to look at F# and how it can handle nullable values.
actorAtCell variable is effectively an optional value, we can match on it using the Some and None keywords. Here we say that if Some actor is there, we'll return the result of the
getChar function, otherwise if there is None present, we'll just use
. to indicate empty space.
This is an important functional concept and a good way to deal with null values. If you’re curious about this concept in C# code, take a look at my article on using the Language-Ext library to avoid nulls in C#.
Finally, we have some pieces of logic in this file related to handling player input:
The GameCommand is a simple discriminated union containing all types of player input except the Exit command. We’ll talk more about that later, but for now let’s focus on the
playTurn function takes in a prior state and a
Command, then matches it based on the command and returns the new state. If you're wondering about the
moveActor calls and the numbers at the end, those are the deltas for the squirrel's position. Overall,
playTurn should be extremely familiar if you've ever worked with a reducer or patterns like Redux.
To finish off this article, let’s modify the console application to make use of our new capabilities.
We showed the
GameCommand type earlier. Let's look at how it fits into the main application:
Command can either be an action that the simulator should respond to or a client command to
Exit the game. Structuring things inside of effectively nested discriminated unions helps focus responsibilities for the main input loop.
Next, let’s look at how we map from keyboard input to a
seq.tryFind method we used earlier, we're returning either a
Some Command or
None here, depending on if the player entered something expected or unexpected. The syntax should be largely familiar by now, but it's worth noting how you follow this pattern in custom methods.
Okay, let’s finish up by looking at the main game loop:
A lot of this is familiar from last article, but now makes use of the
Specifically, we pipe the result of
getUserInput into the
tryParseInput method to get Some
GameCommand or None.
Finally, we match the mapped command to find if it was something known or unknown. If it’s know, we match on the type of command and either exit the game loop or execute the game command and update the game’s state.
End Result and Next Steps
The end result of the application up to this point is the following:
It’s nothing pretty, but we can see how functional programming works in practice.
The complete code for this article is available on GitHub in the Article2 branch.
Next time, we’ll spruce this up a bit by moving to a .NET Core 3.0 WPF Desktop Application with actual visuals (gasp!) and implement the game logic for the squirrel to win and lose the game.
Originally published at https://dev.to on October 6, 2019.