go/doc/progs/sieve1.go
Rob Pike 8d21004b41 make the tutorial programs run again.
(the text still needs fixing)
add the tutorial programs to the test run.

R=rsc
DELTA=41  (6 added, 0 deleted, 35 changed)
OCL=22174
CL=22174
2009-01-06 15:49:27 -08:00

50 lines
924 B
Go

// Copyright 2009 The Go Authors. All rights reserved.
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.
package main
// Send the sequence 2, 3, 4, ... to returned channel
func Generate() chan int {
ch := make(chan int);
go func(ch chan int){
for i := 2; ; i++ {
ch <- i
}
}(ch);
return ch;
}
// Filter out input values divisible by 'prime', send rest to returned channel
func Filter(in chan int, prime int) chan int {
out := make(chan int);
go func(in chan int, out chan int, prime int) {
for {
if i := <-in; i % prime != 0 {
out <- i
}
}
}(in, out, prime);
return out;
}
func Sieve() chan int {
out := make(chan int);
go func(out chan int) {
ch := Generate();
for {
prime := <-ch;
out <- prime;
ch = Filter(ch, prime);
}
}(out);
return out;
}
func main() {
primes := Sieve();
for {
print(<-primes, "\n");
}
}