Exemple #1
0
        public CnCRuntime.CnCReturn Compute(int n, CnCRuntime.IItemCollection<int, int> fibs)
        {
            int x = fibs.Get(n - 1);
            int y = fibs.Get(n - 2);
            fibs.Put(n, x + y);

            return CnCRuntime.CnCReturn.Ok;
        }
Exemple #2
0
 public CnCRuntime.CnCReturn Compute(Microsoft.FSharp.Core.Tuple<int, int, int> tag, CnCRuntime.IItemCollection<Microsoft.FSharp.Core.Tuple<int, int, int>, double> scans, CnCRuntime.IInputCollection<Microsoft.FSharp.Core.Tuple<int, int>, double> A, CnCRuntime.IInputCollection<Microsoft.FSharp.Core.Tuple<int, int>, double> B, CnCRuntime.IInputCollection<int, int> N, CnCRuntime.IOutputCollection<Microsoft.FSharp.Core.Tuple<int, int>, double> C, CnCRuntime.ITagCollection<Microsoft.FSharp.Core.Tuple<int, int, int>> computeTags)
 {
      int i = tag.Item1;
      int j = tag.Item2;
      int k = tag.Item3;
     //printfn "Compute(%d,%d,%d)" i j k
     
     double aik = A.Get(CnCRuntime.Tuple2(i,k));
     double bkj = B.Get(CnCRuntime.Tuple2(k,j));
     double cij = scans.Get(tag) + aik * bkj;
     int nMax = N.Get(Program.nTag);
     //printfn "Compute(%d,%d,%d) Gets" i j k
     
     if (k < (nMax - 1) ) {
         //printfn "Compute(%d,%d,%d) Scans Put (%d,%d,%d)" i j k i j (k+1)
         scans.Put(CnCRuntime.Tuple3(i,j,k+1), cij);
         computeTags.Put(CnCRuntime.Tuple3(i,j,k+1));
     }    
     if(k == (nMax-1)) {
         //printfn "Compute(%d,%d,%d) C Put" i j k
         C.Put(CnCRuntime.Tuple2(i, j), cij);
     }
     //printfn "Compute(%d,%d,%d) Done" i j k    
     return CnCRuntime.CnCReturn.Ok;
 }