test program to generate multiples of a set of factors

(as written, factors are 2, 3, and 5)

R=r
OCL=15286
CL=15286

diff --git a/test/235.go b/test/235.go
new file mode 100644 (file)
index 0000000..48bf601
--- /dev/null
+++ b/test/235.go
@@ -0,0 +1,61 @@
+// $G $F.go && $L $F.$A && ./$A.out
+
+// 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
+
+type T chan uint64;
+
+func M(f uint64) (in, out *T) {
+       in = new(T, 100);
+       out = new(T, 100);
+       go func(in, out *T, f uint64) {
+               for {
+                       out -< f * <- in;
+               }
+       }(in, out, f);
+       return in, out;
+}
+
+
+func min(xs *[]uint64) uint64 {
+       m := xs[0];
+       for i := 1; i < len(xs); i++ {
+               if xs[i] < m {
+                       m = xs[i];
+               }
+       }
+       return m;
+}
+
+
+func main() {
+       F := []uint64{2, 3, 5};
+       const n = len(F);
+
+       x := uint64(1);
+       ins := new([]*T, n);
+       outs := new([]*T, n);
+       xs := new([]uint64, n);
+       for i := 0; i < n; i++ {
+               ins[i], outs[i] = M(F[i]);
+               xs[i] = x;
+       }
+
+       for i := 0; i < 100; i++ {
+               t := min(xs);
+               for i := 0; i < n; i++ {
+                       ins[i] -< x;
+               }
+
+               for i := 0; i < n; i++ {
+                       if xs[i] == x { xs[i] = <- outs[i]; }
+               }
+               
+               x = min(xs);
+               print(x, "\n");
+       }
+       sys.exit(0);
+}