tests/bench_seq.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2005-2008 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 import more_collections
  18
  19 fun test_list(l: Sequence[Int], n: Int)
  20 do
  21         for i in [0..n[ do l.push i
  22         print "{l.length} {l.first} {l.last}"
  23         for i in [0..n[ do l.unshift -i-1
  24         print "{l.length} {l.first} {l.last}"
  25         for i in [0..n[ do l.unshift l.pop
  26         print "{l.length} {l.first} {l.last}"
  27         for i in [0..n[ do l.push l.shift
  28         print "{l.length} {l.first} {l.last}"
  29         for i in [0..n[ do l[i] = l[n+i]
  30         print "{l.length} {l.first} {l.last}"
  31         for i in [0..n] do l.insert(i*10, i*2)
  32         print "{l.length} {l.first} {l.last}"
  33         print ""
  34 end
  35
  36 var nb = 100
  37 if args.not_empty then nb = args.first.to_i
  38
  39 test_list(new Array[Int], nb)
  40 test_list(new List[Int], nb)
  41 test_list(new UnrolledList[Int], nb)
  42 test_list(new CircularArray[Int], nb)