---

yaml
---
r: 3357
b: refs/heads/master
c: 91eadfd
h: refs/heads/master
i:
  3355: f541e01
v: v3

Author: Eric Holk

[refs]

@@ -1,2 +1,2 @@
 ---
-refs/heads/master: bea28ea5376cba26713c4e49bc1d6fa2642ab419
+refs/heads/master: 91eadfd1ea1544513258fc30bf94ef384db2ad90

trunk/src/test/bench/shootout/pfib.rs

@@ -0,0 +1,41 @@
+// -*- rust -*-
+
+/*
+  A parallel version of fibonacci numbers.
+*/
+
+fn recv[T](&port[T] p) -> T {
+  let T x;
+  p |> x;
+  ret x;
+}
+
+fn fib(int n) -> int {
+  fn pfib(chan[int] c, int n) {
+    if (n == 0) {
+      c <| 0;
+    }
+    else if (n <= 2) {
+      c <| 1;
+    }
+    else {
+      let port[int] p = port();
+      
+      auto t1 = spawn pfib(chan(p), n - 1);
+      auto t2 = spawn pfib(chan(p), n - 2);
+
+      c <| recv(p) + recv(p);
+    }
+  }
+
+  let port[int] p = port();
+  auto t = spawn pfib(chan(p), n);
+  ret recv(p);
+}
+
+fn main() {
+    assert (fib(8) == 21);
+    assert (fib(15) == 610);
+    log fib(8);
+    log fib(15);
+}