Group Abstract Group Abstract

Message Boards Message Boards

[?] Rearrange the following binary data?

POSTED BY: Christos Papahristodoulou
6 Replies
Sort By:

Is it this what you really want? :

IntegerDigits[#, 2, 4] & /@ SortBy[Range[0, 15], EvenQ]

Or you can generalize:

oddEvenDigits[max_Integer] := IntegerDigits[#, 2, Ceiling[Log[max]/Log[2.]]] & /@ SortBy[Range[0, max], EvenQ]
POSTED BY: Henrik Schachner

Could join evens to odds, as below.

qEvenOdd = Join[q[[2 ;; -1 ;; 2]], q[[1 ;; -2 ;; 2]]]

(* {{0, 0, 0, 1}, {0, 0, 1, 1}, {0, 1, 0, 1}, {0, 1, 1, 1}, {1, 0, 0, 
  1}, {1, 0, 1, 1}, {1, 1, 0, 1}, {1, 1, 1, 1}, {0, 0, 0, 0}, {0, 0, 
  1, 0}, {0, 1, 0, 0}, {0, 1, 1, 0}, {1, 0, 0, 0}, {1, 0, 1, 0}, {1, 
  1, 0, 0}, {1, 1, 1, 0}} *)
POSTED BY: Daniel Lichtblau

Thanks very much Henrik! I appreciate your time. This is exactly what I did when I regarded your formulation as (max - 1), because you get for instance oddEvenDigits[31] if n = 5.

POSTED BY: Christos Papahristodoulou 
oddEvenDigits[15]
    (* Out:   {{0,0,0,1},{0,0,1,1},{0,1,0,1},{0,1,1,1},{1,0,0,1},{1,0,1,1},{1,1,0,1}\
    ,{1,1,1,1},{0,0,0,0},{0,0,1,0},{0,1,0,0},{0,1,1,0},{1,0,0,0},{1,0,1,0}\
    ,{1,1,0,0},{1,1,1,0}}   *)

... I did not regard max (i.e. the argument of my oddEvenDigits) as a power of 2. It can be just any number.

For the case of "all combination" write

oddEvenDigits[2^n - 1]
POSTED BY: Henrik Schachner

Excellent Henrik! But I think the last part is: IntegerDigits[#, 2, Ceiling[Log[max]/Log[2.]]] & /@ SortBy[Range[0, max - 1], EvenQ]; otherwise it adds one more with zeros.
POSTED BY: Christos Papahristodoulou

Thanks very much Daniel!!! I read very often your posts and comments and appreciate it.
POSTED BY: Christos Papahristodoulou
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard