path: root/challenge-070/richard-park/apl/GrayCodeSequence.aplf

 GrayCodeSequence←{
⍝ Generate ⍵-bit Gray Code Sequence
⍝ ⍵ ≥ 2
     ⍺←0 1 3 2
     {2⊥(0∘⍪,1⍪⌽⍤⊢)2⊥⍣¯1⊢⍵}⍣(⍵-2)⊢⍺
 }