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

start on fillInHoles

Browse Source
This commit is contained in:
Rowan Torbitzky-Lane 2025-01-24 18:15:42 -06:00
parent 13d288b245
commit 4e21eee91c
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Instructions/GenericInstructions.hs
View File

@ -3,7 +3,11 @@ module Instructions.GenericInstructions where
import Control.Lens import Control.Lens
import State import State
-- import Debug.Trace -- import Debug.Trace
-- Files in the spaces in [[a]] with [a]
fillInHoles :: [a] -> [[a]] -> [a]
fillInHoles filler toFill = undefined -- TODO
notEmptyStack :: State -> Lens' State [a] -> Bool notEmptyStack :: State -> Lens' State [a] -> Bool
notEmptyStack state accessor = not . null $ view accessor state notEmptyStack state accessor = not . null $ view accessor state