tests/bench_int_range_closure.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2009 Jean Privat <jean@pryen.org>
   4 #
   5 # Licensed under the Apache License, Version 2.0 (the "License");
   6 # you may not use this file except in compliance with the License.
   7 # You may obtain a copy of the License at
   8 #
   9 #     http://www.apache.org/licenses/LICENSE-2.0
  10 #
  11 # Unless required by applicable law or agreed to in writing, software
  12 # distributed under the License is distributed on an "AS IS" BASIS,
  13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14 # See the License for the specific language governing permissions and
  15 # limitations under the License.
  16
  17
  18 redef class Range[K]
  19         fun for_each(x: Int)
  20                 with each(i: K)
  21         do
  22                 var c = first
  23                 var s = after
  24                 while c < s do
  25                         #print(("  " * x) + c.to_s)
  26                         each(c)
  27                         c = c.succ
  28                 end
  29         end
  30 end
  31
  32 var nb = 5
  33 if not args.is_empty then nb = args.first.to_i
  34
  35 var cpt = 0
  36 var r = [0..nb[
  37 r.for_each(0) with ii1 do
  38         r.for_each(1) with ii2 do
  39                 r.for_each(2) with ii3 do
  40                         if ii1 == ii2 and ii2 == ii3 then cpt += 1
  41                 end
  42         end
  43 end
  44
  45 print cpt