rowan.a.tl/HushGP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

a fully working interpreter?

Browse Source
This commit is contained in:
Taylor 2025-01-15 13:20:51 -06:00
parent e865ba7407
commit 226ed32df6
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Tests.hs
View File

@ -4,7 +4,7 @@ import Push
exampleState =
State
{ exec = [IntGene 5, FloatGene 3.4, BoolGene True, StringGene "hi"],
{ exec = [IntGene 5, StateFunc instructionParameterLoad, StateFunc instructionIntAdd],
int = [1, 2, 3],
float = [1.2, 1.7],
bool = [True, False],
@ -15,7 +15,12 @@ exampleState =
-- intAdd
testResult1 = [3, 3] == int (instructionIntAdd exampleState)
loaded = loadProgarm [IntGene 6, IntGene 6, StateFunc instructionParameterLoad, StateFunc instructionIntAdd] exampleState
-- interpretExec
testResult2 = [6,1,2,3] == int (interpretExec exampleState)
-- This nukes the exec stack, just as an example of how to load at the start.
loadedState = loadProgarm [IntGene 6, IntGene 6, StateFunc instructionParameterLoad, StateFunc instructionIntAdd] emptyState
-- interpretExec
testResult2 = [7,6,1,2,3] == int (interpretExec loaded)
testResult3 = [12] == int (interpretExec loadedState)