twc/ludus-scripts
17
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update to reflect changes in Prelude

Browse Source
This commit is contained in:
Scott Richmond 2024-11-03 17:32:15 -05:00
parent 6c8c667042
commit 1c85f920f2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
binary_tree.ld
View File

@ -3,18 +3,18 @@
box states = [] box states = []
fn push! () -> { fn push! () -> {
update! (states, append (_, turtle_state ())) update! (states, append (_, unbox (turtle_state)))
} }
fn pop! () -> { fn pop! () -> {
let state = do states > unbox > last let state = do states > unbox > last
update! (states, butlast) update! (states, butlast)
penup! () penup! ()
load_turtle_state! (state) loadstate! (state)
} }
fn branch! () -> { fn branch! () -> {
pc! (colors :olive) pc! (colors :green)
pw! (4) pw! (4)
fd! (20) fd! (20)
} }