Haskell 中的科赫雪花 (CodeWorld)

Koch snowflake in Haskell (CodeWorld)

通过Haskell包,CodeWorld(https://hackage.haskell.org/package/codeworld-api),我需要画科赫雪花

你可以在线使用这个包,如果你不想下载它:https://code.world/#

A link 这样你就可以看到我需要做什么了:https://upload.wikimedia.org/wikipedia/commons/f/fd/Von_Koch_curve.gif

我不太确定如何完成,你能帮我吗?

顺便说一句,如果您知道一些使用此软件包的手册,那就更好了。

我已经这样做了:

import CodeWorld

main :: IO ()
main = drawingOf triangle

triangle :: Picture
triangle = polygon [(9,9),(0,-9),(-9,9)]

我将以最笼统的方式回答,因为我不会为您做功课。

您需要一个类型来表示两点之间的线。您需要一个包含一行和 returns 4 的函数,其中新的 4 行是

_/\_ 

科赫雪花图案。然后你需要一个递归函数来调用它到正确的深度。