science_man_88

partial parallel vecsearch

Dec 20th, 2016
746
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. parvecsearch(v,x)={
  2.                              b=0;
  3.                              parfor(y=1,#v,
  4.                                        b=b+1;
  5.                                        (v[y]==x),
  6.                                        z,
  7.                                       if(z,
  8.                                          return(1),
  9.                                          if(b==#v,
  10.                                             return(0)
  11.                                            )
  12.                                         )
  13.                                      )
RAW Paste Data