eval-parallel-dataflow(n;s;m) ==
  let Ps,es = primrec(n;<, >;i,x.
                                let Ps,es = x 
                                in let P,e = s (n - i + 1) m 
                                   in if (i = 0)
                                      then <P, e>
                                      else <<P, Ps>, e, es>
                                      fi ) 
  in <k.Ps.k, k.es.k>



Definitions occuring in Statement :  eq_int: (i = j) ifthenelse: if b then t else f fi  it: apply: f a lambda: x.A[x] spread: spread def pair: <a, b> subtract: n - m add: n + m natural_number: $n primrec: primrec(n;b;c)
Definitions :  primrec: primrec(n;b;c) it: spread: spread def apply: f a subtract: n - m add: n + m ifthenelse: if b then t else f fi  eq_int: (i = j) natural_number: $n pair: <a, b> lambda: x.A[x] select-tuple: Error :select-tuple
FDL editor aliases :  eval-parallel-dataflow

eval-parallel-dataflow(n;s;m)  ==
    let  Ps,es  =  primrec(n;<\mcdot{},  \mcdot{}>\mlambda{}i,x.
                                                                let  Ps,es  =  x 
                                                                in  let  P,e  =  s  (n  -  i  +  1)  m 
                                                                      in  if  (i  =\msubz{}  0)  then  <P,  e>  else  <<P,  Ps>,  e,  es>  fi  ) 
    in  <\mlambda{}k.Ps.k,  \mlambda{}k.es.k>


Date html generated: 2011_08_10-AM-08_15_13
Last ObjectModification: 2011_05_03-PM-05_43_48

Home Index