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

comments

Browse Source
This commit is contained in:
Rowan Torbitzky-Lane 2025-01-30 02:44:34 -06:00
parent 63e9cff55e
commit fe70af6e28
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Instructions/CodeInstructions.hs
View File

@ -76,10 +76,6 @@ codeRecursiveSize _ = 1
instructionCodePop :: State -> State instructionCodePop :: State -> State
instructionCodePop state = instructionPop state code instructionCodePop state = instructionPop state code
-- instructionCodeFromExec :: State -> State
-- instructionCodeFromExec state@(State {_exec = (e1 : es), _code = cs}) = state {_exec = es, _code = e1 : cs}
-- instructionCodeFromExec state = state
instructionCodeIsCodeBlock :: State -> State instructionCodeIsCodeBlock :: State -> State
instructionCodeIsCodeBlock state@(State {_code = (c : cs), _bool = bs}) = state {_code = cs, _bool = isBlock c : bs} instructionCodeIsCodeBlock state@(State {_code = (c : cs), _bool = bs}) = state {_code = cs, _bool = isBlock c : bs}
instructionCodeIsCodeBlock state = state instructionCodeIsCodeBlock state = state

1
src/Instructions/GenericInstructions.hs
View File

@ -29,6 +29,7 @@ subList idx0 idx1 xs =
in in
take adjEnd (drop adjStart xs) take adjEnd (drop adjStart xs)
-- Maybe could've used Data.List.isSubsequenceOf :shrug:
findSubA :: forall a. Eq a => [a] -> [a] -> Int findSubA :: forall a. Eq a => [a] -> [a] -> Int
findSubA fullA subA findSubA fullA subA
| length fullA < length subA = -1 | length fullA < length subA = -1