svenvanheugten/night-light
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

getInteractionsExcept -> genRandomInteractionsExcept

Browse source
This commit is contained in:
Sven van Heugten 2026-01-09 06:02:48 +01:00
parent 879b75f201
commit 6ec9aa1b51
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
NightLight.Core.Tests/InteractionListGenerators.fs
View file

@ -24,12 +24,12 @@ let genInitialInteractions biasTowardsLight =
Gen.listOf <| genInteraction biasTowardsLight ]
|> concatGens
let genInteractionsExcept biasTowardsLight disqualifier =
let genRandomInteractionsExcept biasTowardsLight disqualifier =
genInteraction biasTowardsLight
|> Gen.filter (not << disqualifier)
|> Gen.listOf
let genInitialInteractionsExcept biasTowardsLight disqualifier =
[ genTimeChanged |> Gen.map List.singleton
genInteractionsExcept biasTowardsLight disqualifier ]
genRandomInteractionsExcept biasTowardsLight disqualifier ]
|> concatGens