22 lines
454 B
Plaintext
22 lines
454 B
Plaintext
; An indented-syntax program importing a package written in the paren
|
|
; syntax. main.flan is the other direction.
|
|
|
|
import geo "geo"
|
|
|
|
fn far?(a: geo/Pt, b: geo/Pt, limit: i32) -> bool = geo/dist2(a, b) > limit * limit
|
|
|
|
fn main() -> i32
|
|
let a = geo/pt(1, 2)
|
|
let b = geo/Pt{.x 4, .y 6}
|
|
println(geo/dist2(a, b))
|
|
println(a.x + b.y)
|
|
if far?(a, b, 4)
|
|
println("far")
|
|
else
|
|
println("near")
|
|
let n = 0
|
|
while n < 3
|
|
n += 1
|
|
println(n)
|
|
0
|