... Gforth, support the word RECURSIVE, which allows writing the code above as : terraform ( pt1 pt2 pt3 pt4 delta level --) recursive heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; So RECURSIVE is another word for SMUDGE. I thought SMUDGE was rather ...

... Gforth, support the word RECURSIVE, which allows writing the code above as : terraform ( pt1 pt2 pt3 pt4 delta level --) recursive heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; So RECURSIVE is another word for SMUDGE. No, it's not...

...pt1 pt2 pt3 pt4 delta level --) recursive heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then...pt1 pt2 pt3 pt4 delta level --) heights! dup if [ smudge ] square1 terraform square2 terraform square3 terraform square4 terraform [ smudge ...

... with both of these. If you have Standard Forth and DEFER, it's just: defer terraform :noname ( pt1 pt2 pt3 pt4 delta level --) heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; is terraform which I guess it a bit more obscure than using RECURSE but I prefer ...

... Gforth, support the word RECURSIVE, which allows writing the code above as : terraform ( pt1 pt2 pt3 pt4 delta level --) recursive heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; So RECURSIVE is another word for SMUDGE. I thought SMUDGE was rather cute and gnarly....

...several Forth systems, including at least iForth, bigForth, PFE and Gforth, support the word RECURSIVE, which allows writing the code above as : terraform ( pt1 pt2 pt3 pt4 delta level --) recursive heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; So RECURSIVE

... :noname ( pt1 pt2 pt3 pt4 delta level --) heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop ... ( pt1 pt2 pt3 pt4 delta level --) recursive heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; ...

...utility / readability of RECURSE. If you have Standard Forth and DEFER, it's just: defer terraform :noname ( pt1 pt2 pt3 pt4 delta level --) heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; is terraform which I guess it a bit more obscure than using RECURSE but I prefer it. Andrew....

... my colours are showing (Reva Forth). It turned out to be easier than I thought: : terraform ( pt1 pt2 pt3 pt4 delta level --) heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; That is one really weird Forth system! I would never have exepcted that to work...

..., my colours are showing (Reva Forth). It turned out to be easier than I thought: : terraform ( pt1 pt2 pt3 pt4 delta level --) heights! dup if square1 terraform square2 terraform square3 terraform square4 terraform then 3drop 3drop ; That is one really weird Forth system! I would never have exepcted that to work. :-) ...