steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

L-system: reformat for brevity

master
Alexander Iljin 2020-08-04 09:12:02 +02:00 committed by John Benediktsson
parent 0bee527143
commit 42855b4c44
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/L-system/L-system.factor
View File

@ -303,9 +303,8 @@ TUPLE: <L-system> < gadget
:: iterate-string-loop ( STRING RULES ACCUM -- ) :: iterate-string-loop ( STRING RULES ACCUM -- )
STRING empty? not STRING empty? not
[ [
STRING read-instruction [let
STRING read-instruction :> ( NEXT REST )
[let :> ( NEXT REST )
NEXT 1 head RULES at NEXT or ACCUM push-all NEXT 1 head RULES at NEXT or ACCUM push-all
@ -329,12 +328,9 @@ TUPLE: <L-system> < gadget
STRING empty? not STRING empty? not
[ [
STRING read-instruction [let
STRING read-instruction :> ( NEXT REST )
[let :> ( NEXT REST )
NEXT 1 head COMMANDS at :> COMMAND NEXT 1 head COMMANDS at :> COMMAND
COMMAND COMMAND
[ [
NEXT length 1 = NEXT length 1 =