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

takeR and dropR

Browse Source
This commit is contained in:
Rowan Torbitzky-Lane 2025-01-25 19:09:10 -06:00
parent 82d2fa34fe
commit 804da2a23c
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Instructions/GenericInstructions.hs
View File

@ -44,6 +44,12 @@ amtOccurences fullA subA = amtOccurences' fullA subA 0
then amtOccurences' (replace fA sA mempty (Just 1)) sA (count + 1) then amtOccurences' (replace fA sA mempty (Just 1)) sA (count + 1)
else count else count
takeR :: Int -> [a] -> [a]
takeR amt fullA = drop (length fullA - amt) fullA
dropR :: Int -> [a] -> [a]
dropR amt fullA = take (length fullA - amt) fullA
combineTuple :: a -> ([a], [a]) -> [a] combineTuple :: a -> ([a], [a]) -> [a]
combineTuple val tup = fst tup <> [val] <> snd tup combineTuple val tup = fst tup <> [val] <> snd tup