如何在Elm中结合L-system与海龟绘图库实现绘图？

首先修正你的L-system生成函数，当前generateNTimes的迭代逻辑存在问题，无法正确生成每一代的句子。正确的实现应该是对当前句子中的每个状态逐一应用规则，拼接得到下一代句子：

type State = A | B

type alias Rule state = state -> List state

-- 对整个句子应用规则生成下一代
applyRule : Rule state -> List state -> List state
applyRule rule = List.concatMap rule

generateNTimes : Int -> Rule State -> List State -> List State
generateNTimes n rule axiom =
    if n <= 0 then
        axiom
    else
        generateNTimes (n - 1) rule (applyRule rule axiom)

接下来核心是把L-system生成的状态序列映射为海龟绘图的指令。根据海龟绘图库的常规API（比如前进、转向、抬笔/落笔），给每个State定义对应的绘图动作：

import Turtle exposing (Command(..), initialState, run)

-- 自定义State到海龟命令的映射，可根据需求调整
stateToCommand : State -> Command
stateToCommand state =
    case state of
        A -> Forward 12  -- A对应前进12单位
        B -> Turn -60    -- B对应右转60度（正数为左转，负数为右转）

最后将生成的L-system句子转换为海龟命令列表，交给库执行渲染：

-- 生成第n代L-system句子并转为绘图命令
generateAndDraw : Int -> Rule State -> List State -> List Command
generateAndDraw n rule axiom =
    generateNTimes n rule axiom
        |> List.map stateToCommand

-- 示例：生成第4代句子并获取绘图命令
exampleCommands : List Command
exampleCommands =
    generateAndDraw 4 rule1 [A]

-- 在视图中渲染绘图结果
view : Html msg
view =
    Turtle.view (run initialState exampleCommands)

你可以根据想要绘制的分形图形（比如科赫曲线、分形树），调整stateToCommand的映射规则，比如给不同状态添加抬笔、改变颜色等命令，或者调整前进距离、转向角度参数。

内容的提问来源于stack exchange，提问作者hunorg