Nuprl Definition : rsc4_roundout

rsc4_roundout(Cmd;cmdeq;coeff;flrs) ==
  loc,za.
   let zb,sender = za 
   in let zc,c = zb 
      in let n,i = zc 
         in z.let cmds,z = z 
               in if IntDeq ||cmds|| (coeff * flrs)
                  then let k,x = poss-maj(cmdeq;[c / cmds];c) 
                       in if IntDeq k ((coeff * flrs) + 1)
                          then {rsc4_decided'send(Cmd) loc <n, x>}
                          else {rsc4_retry'send(Cmd) loc <<n, i + 1>, x>}
                          fi 
                  else {}
                  fi 


Definitions occuring in Statement :  rsc4_decided'send: rsc4_decided'send(Cmd),  rsc4_retry'send: rsc4_retry'send(Cmd),  length: ||as||,  ifthenelse: if b then t else f fi ,  apply: f a,  lambda: x.A[x],  spread: spread def,  pair: <a, b>,  cons: [car / cdr],  multiply: n * m,  add: n + m,  natural_number: $n,  poss-maj: poss-maj(eq;L;x),  int-deq: IntDeq,  single-bag: {x},  empty-bag: {}
FDL editor aliases :  rsc4_roundout
rsc4\_roundout(Cmd;cmdeq;coeff;flrs)  ==
    \mlambda{}loc,za.
      let  zb,sender  =  za 
      in  let  zc,c  =  zb 
            in  let  n,i  =  zc 
                  in  \mlambda{}z.let  cmds,z  =  z 
                              in  if  IntDeq  ||cmds||  (coeff  *  flrs)
                                    then  let  k,x  =  poss-maj(cmdeq;[c  /  cmds];c) 
                                              in  if  IntDeq  k  ((coeff  *  flrs)  +  1)
                                                    then  \{rsc4\_decided'send(Cmd)  loc  <n,  x>\}
                                                    else  \{rsc4\_retry'send(Cmd)  loc  <<n,  i  +  1>,  x>\}
                                                    fi 
                                    else  \{\}
                                    fi 


Date html generated: 2012_02_20-PM-04_47_03
Last ObjectModification: 2012_02_02-PM-02_08_05

Home Index