RosettaCodeData/Task/Van-der-Corput-sequence/PARI-GP/van-der-corput-sequence.pari

4 lines
149 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
VdC(n)=n=binary(n);sum(i=1,#n,if(n[i],1.>>(#n+1-i)));
VdC(n)=sum(i=1,#binary(n),if(bittest(n,i-1),1.>>i)); \\ Alternate approach
vector(10,n,VdC(n))