Skip to content

Instantly share code, notes, and snippets.

@IntegerMan
Created Sep 30, 2019
Embed
What would you like to do?
namespace MattEland.FSharpGeneticAlgorithm.Logic
open System
open MattEland.FSharpGeneticAlgorithm.Logic.Actors
open MattEland.FSharpGeneticAlgorithm.Logic.WorldPos
module World =
let getRandomPos(maxX:int32, maxY:int32, random: Random): WorldPos =
let x = random.Next(maxX) + 1
let y = random.Next(maxY) + 1
newPos x y
let generate (maxX:int32, maxY:int32, random: Random): Actor seq =
let pos = getRandomPos(maxX, maxY, random)
seq {
yield createSquirrel pos
}
type World (maxX: int32, maxY: int32, random: Random) =
let actors = generate(maxX, maxY, random)
member this.Actors = actors
member this.MaxX = maxX
member this.MaxY = maxY
member this.GetCharacterAtCell(x, y) =
let mutable char = '.'
for actor in this.Actors do
if actor.Pos.X = x && actor.Pos.Y = y then
char <- actor.Character
char
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment