RosettaCodeData/Task/System-time/Oforth/system-time-1.fth

3 lines
65 B
Forth

System.tick println
#[ #sqrt 1000000 seq map sum println ] bench