OpenE2K/rust
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Convert pfib to pipes. This is a useful stress test.

Browse Source
This commit is contained in:
Eric Holk 2012-08-01 15:28:28 -07:00
parent 1d04b0ed5a
commit f76a46242b
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/test/bench/shootout-pfib.rs
View File

@ -15,10 +15,10 @@ use std;
import std::{time, getopts};
import io::writer_util;
import int::range;
import comm::port;
import comm::chan;
import comm::send;
import comm::recv;
import pipes::port;
import pipes::chan;
import pipes::send;
import pipes::recv;
import core::result;
import result::{ok, err};
@ -26,22 +26,22 @@ import result::{ok, err};
fn fib(n: int) -> int {
fn pfib(c: chan<int>, n: int) {
if n == 0 {
send(c, 0);
c.send(0);
} else if n <= 2 {
send(c, 1);
c.send(1);
} else {
let p = port();
let ch = chan(p);
let p = pipes::port_set();
let ch = p.chan();
task::spawn(|| pfib(ch, n - 1) );
let ch = p.chan();
task::spawn(|| pfib(ch, n - 2) );
send(c, recv(p) + recv(p));
c.send(p.recv() + p.recv());
}
}
let p = port();
let ch = chan(p);
let (ch, p) = pipes::stream();
let t = task::spawn(|| pfib(ch, n) );
return recv(p);
p.recv()
}
type config = {stress: bool};