L-system: Difference between revisions

=={{header|ALGOL 68}}==

{{libheader|ALGOL 68-l-system}}

Note, the Algol 68 L-System library source code is on a separate page on Rosetta Code - follow the above link and then to the Talk page.

<syntaxhighlight lang="algol68">

BEGIN # Example of L-System evaluation and interpretation #

PR read "lsystem.incl.a68" PR # include L-System utilities #

# task rabbit population example #

LSYSTEM rabbit population = ( "I", ( "I" -> "M"

, "M" -> "MI"

)

);

INT young := 0, old := 0;

STRING result = rabbit population EVAL 5;

result INTERPRET ( ( CHAR c )VOID: IF c = "I" THEN young +:= 1 ELSE old +:= 1 FI );

print( ( "After 5 iterations there are ", whole( old, 0 ), " old rabbits and "

, whole( young, 0 ), " young ones (", result, ")", newline

)

)

END

</syntaxhighlight>

{{out}}

<pre>

After 5 iterations there are 5 old rabbits and 3 young ones (MIMMIMIM)

</pre>