21 lines
254 B
Plaintext
21 lines
254 B
Plaintext
|
& koch curve
|
||
|
|
|
||
|
|
let length = 10
|
||
|
|
|
||
|
|
fn koch! {
|
||
|
|
(0) -> fd! (length)
|
||
|
|
(n) -> {
|
||
|
|
koch! (dec (n))
|
||
|
|
lt! (0.25)
|
||
|
|
koch! (dec (n))
|
||
|
|
rt! (0.25)
|
||
|
|
koch! (dec (n))
|
||
|
|
rt! (0.25)
|
||
|
|
koch! (dec (n))
|
||
|
|
lt! (0.25)
|
||
|
|
koch! (dec (n))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
& koch! (3)
|