added scala support

autoTest.pl

@@ -15,7 +15,7 @@ $debug=0;
 @langs = ("c",
 #	Uncomment for alternat C algorithms      	
 #	"c2", "ca", "ca2", "ca3", 
-	"objc", "cpp",  "asm", "for", "pas", "ada", "hs", "e", "cbl", "oml", "java", "cs", "vb", "erl", "awk", "pl", "php", "py", "tcl", "rb1.8", "rb1.9", "cl", "scm", "st", "sml", "4th", "pro", "m3", "pike", "lua", "rexx", "r", "fe", "5c", "m4", "sh");
+	"objc", "cpp",  "asm", "for", "pas", "ada", "hs", "e", "cbl", "oml", "java", "scala", "cs", "vb", "erl", "awk", "pl", "php", "py", "tcl", "rb1.8", "rb1.9", "cl", "scm", "st", "sml", "4th", "pro", "m3", "pike", "lua", "rexx", "r", "fe", "5c", "m4", "sh");
 
 $llen = $#langs+1;
 
@@ -308,6 +308,12 @@ $data{'java'}{'osreprompt'} = "OpenBSD";
 $data{'java'}{'oswarn'} = "OpenBSD";
 $data{'java'}{'oswarnmsg'} = "This language has been flagged as unstable on this operating system";
 
+$data{'scala'}{'name'} = "Scala";
+$data{'scala'}{'src'} = "primes.scala";
+$data{'scala'}{'compiler0'} = "scalac";
+$data{'scala'}{'interp0'} = "scala";
+$data{'scala'}{'prog'} = "Primes";
+
 $data{'cs'}{'name'} = "C# (Mono)";
 $data{'cs'}{'src'} = "primes.cs";
 $data{'cs'}{'compiler0'} = "mcs";

primes.scala

@@ -0,0 +1,28 @@
+// Scala primes
+// This to my mind may not be the fastest algorithm,
+//   I would think printing when finding would be better,
+//   especially on memory, then storing the thing in a list 
+//   and then running mkString on it, but it already
+//   outperforms java for me, so here it is
+
+object Primes {
+	def main(args: Array[String]) {
+		if (args.length < 1) {
+			println("Usage: scala Primes [MAX]")
+		} else print(primes(3, List(), args(0).toInt).mkString("\n") + "\n")
+	}
+
+	def is_prime(num: Int): Boolean = {
+		def prime_loop(i: Int, max: Int): Boolean =
+			if (i > max) true
+			else if (num % i == 0) false
+			else prime_loop(i+2, max)
+		prime_loop(3, scala.math.sqrt(num).ceil.toInt)
+	}
+
+	def primes(i: Int, acc: List[Int], max: Int): List[Int] = 
+		if (i >= max) acc
+		else if (is_prime(i)) primes(i+2, acc ++ List(i), max)
+		else primes(i+2, acc, max)
+
+}