Oooh, fun, perl-golf!
perl -E 'say for glob q[{0,1}]x4'
Joel
On Sun, Jan 6, 2013 at 11:11 AM, Derek Lamb <[email protected]> wrote:
> Mark,
>
> You can also do this very quickly without PDL at all, if you don't
> actually need piddles:
>
> print(split( / */,sprintf("%0*b",4,$_)),"\n") for (0..15);
>
> If you're looking for the Grey codes (your example was almost there, but
> not quite), then you can just replace $_ with (( $_>>1 ) ^ $_ ). Now it's
> getting a bit opaque, but will still do the job.
>
> On Jan 5, 2013, at 4:50 PM, Craig DeForest wrote:
>
> Does it have to be Grey code? If you only care about all permutations,
> try:
>
> $a= pdl(short,2)**xvals(short,$width);
> $b= yvals (short,1,$height);
> $c= ($b/$a)&pdl(short,1);
>
> (mobile)
>
>
> On Jan 5, 2013, at 4:25 PM, MARK BAKER <[email protected]> wrote:
>
>
>
> ------------------------------
>
>
> Hello all
>
> I have been trying to make a matrix that starts out with all zeros
> and then cycles threw all combinations of a binay numbers for instance
>
>
> if I had a matrix
> [ 0 0 0 0]
>
> then I would like it to cycle very fast to go threw all combinations
> like this
>
> [ 0 0 0 0 ]
> [ 0 0 0 1 ]
> [ 0 0 1 1 ]
> [ 0 0 1 0 ]
> [ 0 1 1 0 ]
> [ 0 1 0 0 ]
> [ 0 1 0 1 ]
> [ 0 1 1 1 ]
> [ 1 1 1 1 ]
> [ 1 1 1 0 ]
> [ 1 1 0 0 ]
> [ 1 1 0 1 ]
> [ 1 0 0 1 ]
> [ 1 0 1 1 ]
> [ 1 0 1 0 ]
>
>
> I know I can do this
>
> $k = zeros(4);
> p $h->(3).=1;
> p $h->(2).=1;
> p $h->(3).=0;
> p $h->(1).=1;
> p $h->(2).=0;
> p $h->(3).=1;
> p $h->(2).=1;
> p $h->(0).=1;
> p $h->(3).=0;
> p $h->(2).=0;
> p $h->(3).=1;
> p $h->(1).=0;
> p $h->(2).=1;
> p $h->(3).=0;
>
> is there a faster way to do this that anyone might know of ???
>
> Thanks for your advice ..
>
>
>
>
> -Mark R Baker
>
>
> _______________________________________________
> Perldl mailing list
> [email protected]
> http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
>
> _______________________________________________
> Perldl mailing list
> [email protected]
> http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
>
>
>
> _______________________________________________
> Perldl mailing list
> [email protected]
> http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
>
>
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
