SHARE
TWEET

powerset

science_man_88 May 23rd, 2017 (edited) 119 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  Powerset(S)=my(b=apply(r->Vec(r),S));for(x=2,#S,b=setbinop((x,y)->if(x!=Vec(y),concat(x,y),concat(x,[])),b,S));b=concat([[]],select(r->r==vecsort(r,,8),b))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top