science_man_88

powerset2 ( allows strings subsets using vecsmall)

May 26th, 2017
763
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. powerset2(s)=my(S=Vec(s),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));if(type(s)=="t_VECSMALL",b=apply(r->if(r!=[],r=Strchr(r),r=r),b));b
RAW Paste Data