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

fix yank dup bug

Browse Source
This commit is contained in:
Rowan Torbitzky-Lane 2025-02-20 01:49:04 -06:00
parent 56551924ae
commit 4fbd42f9ff
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/HushGP/Instructions/GenericInstructions.hs
View File

@ -102,7 +102,7 @@ instructionStackDepth accessor state@(State {_int = is}) = state{_int = toIntege
-- the top int from the int stack. -- the top int from the int stack.
instructionYankDup :: Lens' State [a] -> State -> State instructionYankDup :: Lens' State [a] -> State -> State
instructionYankDup accessor state@(State {_int = i1 : is}) = instructionYankDup accessor state@(State {_int = i1 : is}) =
if notEmptyStack accessor state if notEmptyStack accessor state{_int = is}
then state{_int = is} & accessor .~ (view accessor state{_int = is} !! max 0 (min (fromIntegral i1) (length (view accessor state{_int = is}) - 1))) : view accessor state{_int = is} then state{_int = is} & accessor .~ (view accessor state{_int = is} !! max 0 (min (fromIntegral i1) (length (view accessor state{_int = is}) - 1))) : view accessor state{_int = is}
else state else state
instructionYankDup _ state = state instructionYankDup _ state = state