84 lines
1005 B
Plaintext
84 lines
1005 B
Plaintext
let d = 50
|
|
|
|
pw!(5)
|
|
rt!(0.25)
|
|
|
|
fn y!
|
|
fn y_seq!
|
|
fn x_seq!
|
|
|
|
& 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_seq!(n)
|
|
rt!(0.25)
|
|
f!(dec(n))
|
|
rt!(0.25)
|
|
y_seq!(n)
|
|
lt!(0.25)
|
|
f!(dec(n))
|
|
lt!(0.25)
|
|
x_seq!(n)
|
|
}
|
|
}
|
|
|
|
fn y! {
|
|
(0) -> nil
|
|
(n) -> {
|
|
y_seq!(n)
|
|
lt!(0.25)
|
|
f!(dec(n))
|
|
lt!(0.25)
|
|
x_seq!(n)
|
|
rt!(0.25)
|
|
f!(dec(n))
|
|
rt!(0.25)
|
|
y_seq!(n)
|
|
}
|
|
}
|
|
|
|
fn x_seq! (n) -> {
|
|
x!(dec(n))
|
|
f!(dec(n))
|
|
y!(dec(n))
|
|
f!(dec(n))
|
|
x!(dec(n))
|
|
}
|
|
|
|
fn y_seq! (n) -> {
|
|
y!(dec(n))
|
|
f!(dec(n))
|
|
x!(dec(n))
|
|
f!(dec(n))
|
|
y!(dec(n))
|
|
}
|
|
|
|
x!(3)
|