30 lines
738 B
Factor
30 lines
738 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: math locals hints ;
|
|
IN: benchmark.nested-empty-loop-1
|
|
|
|
:: nested-empty-loop ( n -- )
|
|
n [
|
|
n [
|
|
n [
|
|
n [
|
|
n [
|
|
n [
|
|
n [
|
|
n [
|
|
n [ ] times
|
|
] times
|
|
] times
|
|
] times
|
|
] times
|
|
] times
|
|
] times
|
|
] times
|
|
] times ;
|
|
|
|
HINTS: nested-empty-loop fixnum ;
|
|
|
|
: nested-empty-loop-main ( -- ) 7 nested-empty-loop ;
|
|
|
|
MAIN: nested-empty-loop-main
|