31 lines
395 B
Forth
31 lines
395 B
Forth
let mutable y1 = 1
|
|
let _ = y1 <- y1*2 in
|
|
let _ = y1 <- y1+1 in
|
|
let _ = y1 <- y1+1 in
|
|
|
|
printf "y1 = %A\n"y1
|
|
|
|
let mutable x1 = 1
|
|
let _ = x1 <- x1+1 in
|
|
let _ = x1 <- x1*2 in
|
|
let _ = x1 <- x1+1 in
|
|
|
|
printf "x1 = %A\n"x1
|
|
|
|
let mutable y = 1
|
|
y <- y * 2
|
|
y <- y + 1
|
|
y <- y + 1
|
|
|
|
|
|
printf "y = %A\n"y
|
|
|
|
let mutable x = 1
|
|
x <- x + 1
|
|
x <- x * 2
|
|
x <- x + 1
|
|
|
|
|
|
printf "x = %A\n"x
|
|
|