90 lines
1.1 KiB
Plaintext
90 lines
1.1 KiB
Plaintext
|
let d = 50
|
||
|
|
|
||
|
|
pw!(5)
|
||
|
|
rt!(0.25)
|
||
|
|
|
||
|
|
fn y!
|
||
|
|
|
||
|
|
& comment for strange Peano variation
|
||
|
|
& uncomment for standard Peano curve
|
||
|
|
& fn f! (n) -> fd!(d)
|
||
|
|
|
||
|
|
& comment for standard Peano curve
|
||
|
|
& uncomment for strange Peano variation
|
||
|
|
fn f! {
|
||
|
|
(0) -> fd!(d)
|
||
|
|
(n) -> {
|
||
|
|
f!(dec(n))
|
||
|
|
rt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
fn x! {
|
||
|
|
(0) -> nil
|
||
|
|
(n) -> {
|
||
|
|
x!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
y!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
x!(dec(n))
|
||
|
|
rt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
rt!(0.25)
|
||
|
|
y!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
x!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
y!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
x!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
y!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
x!(dec(n))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
fn y! {
|
||
|
|
(0) -> nil
|
||
|
|
(n) -> {
|
||
|
|
y!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
x!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
y!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
lt!(0.25)
|
||
|
|
x!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
y!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
x!(dec(n))
|
||
|
|
rt!(0.25)
|
||
|
|
f!(dec(n))
|
||
|
|
rt!(0.25)
|
||
|
|
y!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
x!(dec(n))
|
||
|
|
f!(dec(n))
|
||
|
|
y!(dec(n))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
x!(3)
|