L-system: Difference between revisions
Content added Content deleted
No edit summary |
(Realize in F#) |
||
Line 87: | Line 87: | ||
:* Wikipedia: [[wp:L-system|L-system]] |
:* Wikipedia: [[wp:L-system|L-system]] |
||
=={{header|F_Sharp|F#}}== |
|||
<syntaxhighlight lang="fsharp"> |
|||
// L-system. Nigel Galloway: April 1th., 2024 |
|||
type rabbit= M|I |
|||
let rules=function I->[M] |M->[M;I] |
|||
let L axiom rules=Seq.unfold(fun n->Some(n,n|>Seq.map(rules)|>Seq.concat)) axiom |
|||
L [I] rules|>Seq.take 6|>Seq.iter(fun n->n|>Seq.iter(printf "%A");printfn "") |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
I |
|||
M |
|||
MI |
|||
MIM |
|||
MIMMI |
|||
MIMMIMIM |
|||
</pre> |
|||
=={{header|Fōrmulæ}}== |
=={{header|Fōrmulæ}}== |
||