From b6778be91900b8161e705dc2598ef7af86842b0b Mon Sep 17 00:00:00 2001
From: Hubert Plociniczak <hubert.plociniczak@epfl.ch>
Date: Wed, 2 Nov 2011 14:34:35 +0000
Subject: Begone t1737...

---
 test/pending/shootout/message.scala | 47 +++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 test/pending/shootout/message.scala

(limited to 'test/pending/shootout/message.scala')

diff --git a/test/pending/shootout/message.scala b/test/pending/shootout/message.scala
new file mode 100644
index 0000000000..a7a1dacc9d
--- /dev/null
+++ b/test/pending/shootout/message.scala
@@ -0,0 +1,47 @@
+/* The Computer Language Shootout
+   http://shootout.alioth.debian.org/
+   contributed by Isaac Gouy
+*/
+
+
+import scala.concurrent._ 
+
+object message {
+   def main(args: Array[String]) = {
+      val n = Integer.parseInt(args(0))
+      val nActors = 500
+      val finalSum = n * nActors
+
+      case class Message(value: Int)
+
+      class Incrementor(next: Pid) extends Actor {
+         var sum = 0
+
+         override def run() = {
+            while (true) {
+               receive { 
+                  case Message(value) => 
+                     val j = value + 1 
+                     if (null != next){ 
+                        next ! Message(j) 
+                     } else { 
+                        sum = sum + j
+                        if (sum >= finalSum){ 
+                           Console.println(sum); 
+                           System.exit(0) // exit without cleaning up
+                        }
+                     } 
+               }
+            }
+         }
+
+         def pid() = { this.start; this.self }
+      }
+
+      def actorChain(i: Int, a: Pid): Pid = 
+         if (i > 0) actorChain(i-1, new Incrementor(a).pid ) else a
+
+      val firstActor = actorChain(nActors, null)
+      var i = n; while (i > 0){ firstActor ! Message(0); i = i-1 }
+   }
+}
-- 
cgit v1.2.3