tests/shootout_ackermann.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 # The Comptuer Language Shootout Benchmarks
  18 # http://shootout.alioth.debian.org
  19 #
  20 # contributed by Jean Privat
  21
  22 fun ack(m: Int, n: Int): Int
  23     do
  24         if m == 0 then
  25             return n + 1
  26         else if n == 0 then
  27             return ack(m - 1, 1)
  28         else
  29             return ack(m - 1, ack(m, n - 1))
  30         end
  31     end
  32
  33 var num = 1
  34 if args.length == 1 then
  35     num = args.first.to_i
  36 end
  37
  38 print("Ack(3,{num}): {ack(3, num)}")