File: ackermann.scala

package info (click to toggle)
scala 2.7.7.dfsg-4
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 75,804 kB
  • ctags: 1,852
  • sloc: java: 7,762; xml: 6,608; sh: 1,723; cs: 158; makefile: 9; ansic: 6
file content (32 lines) | stat: -rw-r--r-- 771 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
/* The Computer Language Shootout 
   http://shootout.alioth.debian.org/
   contributed by Isaac Gouy (Scala novice)
*/

object ackermann {
   def main(args: Array[String]) = {
     val n = toPositiveInt(args);

     // spawn a new thread fixes stack overflows on Windows 1.5 JDK
     // see more on ticket #1508
     val t = new Thread {
       override def run {
	 Console println("Ack(3," + n + "): " + ack(3,n));
       }
     }
     t.start()
     t.join()
   }

   def ack(m: Int, n: Int): Int = 
      if (m == 0) n + 1;
      else if (n == 0) ack(m-1, 1);
      else ack(m-1, ack(m, n-1));

   private def toPositiveInt(s: Array[String]) = {
      val i = 
         try { Integer.parseInt(s(0)); } 
         catch { case _ => 1 }
      if (i>0) i; else 1;
   }
}