extra/benchmark/nested-empty-loop-1/nested-empty-loop-1.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math locals hints ;
   4 IN: benchmark.nested-empty-loop-1
   5
   6 :: nested-empty-loop ( n -- )
   7     n [
   8         n [
   9             n [
  10                 n [
  11                     n [
  12                         n [
  13                             n [
  14                                 n [
  15                                     n [ ] times
  16                                 ] times
  17                             ] times
  18                         ] times
  19                     ] times
  20                 ] times
  21             ] times
  22         ] times
  23     ] times ;
  24
  25 HINTS: nested-empty-loop fixnum ;
  26
  27 : nested-empty-loop-main ( -- ) 7 nested-empty-loop ;
  28
  29 MAIN: nested-empty-loop-main