time.red

Red []

time: func [
	do-block 
	/repeat 
		n
	/local
		acc
		start
][
	either repeat [
		acc: make time! []
		loop n [
			acc: acc + time do-block
			acc / n
		]
	][
		start: now/precise 
		do do-block 
		difference now/precise start
	]
]

fastest: func [
	block-a
	block-b
	/diff
	/repeat
		n
	/local
		time-a
		time-b
][
	time-a: time/repeat block-a any [n 1'000]
	time-b: time/repeat block-b any [n 1'000]
	either time-a < time-b [
		if diff [print time-b - time-a]
		:block-a 
	][ 
		if diff [print time-a - time-b]
		:block-b 
	]
]