L-system: Difference between revisions
added RPL
(Added Algol 68) |
(added RPL) |
||
Line 214:
</syntaxhighlight>
Invoke using eg <code><nowiki>lindenmayer("I",{{'I',"M"},{'M',"MI"}},5)</nowiki></code> which yields "MIMMIMIM"
=={{header|RPL}}==
≪ SWAP → rules
≪ 1 SWAP '''FOR''' a
→ in
≪ ""
1 in '''FOR''' b
in b DUP SUB
1 rules SIZE '''FOR''' c
rules c GET
'''IF''' DUP2 1 GET == '''THEN'''
SWAP DROP 2 GET
rules SIZE 'c' STO
'''ELSE''' DROP '''END'''
'''NEXT'''
+
'''NEXT'''
≫
'''NEXT'''
≫ ≫ ´<span style="color:blue">LSYS</span>' STO
"I" {{"I" "M"} {"M" "MI"}} 5 <span style="color:blue">LSYS</span>
{{out}}
<pre>
1: "MIMMIMIM"
</pre>
=={{header|Wren}}==
| |||