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

pattern matching via destructuring is amazing!

Browse Source
This commit is contained in:
Taylor 2025-01-15 15:39:06 -06:00
parent 412e871917
commit 7bdcb03879
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Push.hs
View File

@ -57,10 +57,10 @@ instructionIntDiv (State es (i1 : i2 : is) fs bs ss ps) = State es (i2 `div` i1
instructionIntDiv state = state
instructionExecIf :: State -> State
instructionExecIf (State (e : es) is fs (b : bs) ss ps) =
instructionExecIf (State (e1 : e2 : es) is fs (b : bs) ss ps) =
case b of
True -> State (e : drop 1 es) is fs bs ss ps
False -> State (es) is fs bs ss ps
True -> State (e1 : es) is fs bs ss ps
False -> State (e2 : es) is fs bs ss ps
instructionExecIf state = state
-- This is one of the push genome functions itself, not infrastructure.