factor/extra/benchmark/nested-empty-loop-1/nested-empty-loop-1.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-1-benchmark ( -- ) 7 nested-empty-loop ;

MAIN: nested-empty-loop-1-benchmark