aUCBLogo Demos and Tests / speed
to
speed
a
=
int
0
t0
=
timefine
repeat
1000000
[
a
+=
1
]
t
=
timefine
(
pr
"counted "to
a
"in
t
-
t0
"seconds
)
(
pr
(
t
-
t0
)*
mips
[
clock cycles per logo instruction
])
end
