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

empty Block for last block instruction

Browse Source
This commit is contained in:
Rowan Torbitzky-Lane 2025-01-22 00:31:42 -06:00
parent a61c9e7133
commit 85d4fd33b0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Instructions/CodeInstructions.hs
View File

@ -20,6 +20,7 @@ extractFirstFromBlock (Block (x : _)) = x
extractFirstFromBlock gene = gene extractFirstFromBlock gene = gene
extractLastFromBlock :: Gene -> Gene extractLastFromBlock :: Gene -> Gene
extractLastFromBlock (Block []) = Block []
extractLastFromBlock (Block xs) = last xs extractLastFromBlock (Block xs) = last xs
extractLastFromBlock gene = gene extractLastFromBlock gene = gene