बाइनरी सेल्फ रोटेशन

Question

प्रत्येक परत के लिए एक द्विआधारी 3 डी सरणी को देखते हुए, इसके प्रत्येक स्तंभ को चक्रवाती रूप से घुमाएं, क्योंकि इसके ऊपर की परत के स्तंभों के द्विआधारी एन्कोडिंग द्वारा इंगित किए गए कई चरण हैं, और फिर चक्रीय बारी बारी से अपनी प्रत्येक पंक्तियों को उतने चरणों के रूप में इंगित किया गया है। इसके नीचे परत की पंक्तियों के द्विआधारी एन्कोडिंग।

हमेशा कम से कम तीन परतें होंगी। शीर्ष परत के कॉलम और नीचे की परत की पंक्तियों को घुमाया नहीं जाना चाहिए।

वाल्क-के माध्यम से

छोटे 4-लेयर, 2-रो, 3-कॉलम ऐरे से शुरू करें:

[[[1,0,1],
  [1,0,0]],

 [[1,0,1],
  [0,1,1]],

 [[0,1,1],
  [1,1,1]],

 [[1,1,0],
  [1,1,1]]]

पहला चरण प्रत्येक परत के कॉलम और पंक्तियों द्वारा बाइनरी में एन्कोड किए गए अंकों का मूल्यांकन कर रहा है:

     3 0 2
5 [[[1,0,1],
4   [1,0,0]],

     2 1 3
5  [[1,0,1],
3   [0,1,1]],

     1 3 3
3  [[0,1,1],
7   [1,1,1]],

     3 3 1
6  [[1,1,0],
7   [1,1,1]]]

पहली परत, [[1,0,1],[1,0,0]]इसके स्तंभों को घुमाया नहीं जाएगा, लेकिन इसकी पंक्तियों को क्रमशः 5 चरणों और 3 चरणों में बाएं घुमाया जाएगा [[1,1,0],[1,0,0]]।
 दूसरी परत, [[1,0,1],[0,1,1]]इसके स्तंभों को क्रमशः 3, 0 और 2 चरणों में घुमाया जाएगा, देते हुए [[0,0,1],[1,1,1]], और फिर पंक्तियों को क्रमशः 3 और 7 चरणों में चक्रवात में घुमाया जाएगा, जिसमें कोई दृश्य परिवर्तन नहीं होगा।
 तीसरी परत, [[0,1,1],[1,1,1]]2, 1, और 3 चरणों को घुमाया जाता है, एक ही रहता है, और न ही बाएं 6 और 7 चरणों को घुमाने से कुछ भी नहीं होता है।
 अंत में, चौथी परत, [[1,1,0],[1,1,1]]1, 3 और 3 चरणों को [[1,1,1],[1,1,0]]घुमाया जाता है , लेकिन इसकी पंक्तियों को बाद में नहीं घुमाया जाता है, क्योंकि यह अंतिम परत है।
 सभी परतों को फिर से एक साथ रखना, हमें बाइनरी सेल्फ-रोटेटेड 3 डी ऐरे देता है:

[[[1,1,0],
  [1,0,0]],

 [[0,0,1],
  [1,1,1]],

 [[0,1,1],
  [1,1,1]],

 [[1,1,1],
  [1,1,0]]]

उदाहरण के मामले:

[[[1,0,1],[1,0,0]],[[1,0,1],[0,1,1]],[[0,1,1],[1,1,1]],[[1,1,0],[1,1,1]]] देता है
[[[1,1,0],[1,0,0]],[[0,0,1],[1,1,1]],[[0,1,1],[1,1,1]],[[1,1,1],[1,1,0]]]

[[[1]],[[1]],[[0]]] देता है
[[[1]],[[1]],[[0]]]

[[[1,0,1],[1,0,1],[1,0,1]],[[0,0,1],[0,0,1],[0,0,1]],[[1,0,0],[1,0,1],[0,0,1]]] देता है
[[[0,1,1],[0,1,1],[0,1,1]],[[0,1,0],[1,0,0],[0,1,0]],[[1,0,1],[1,0,1],[0,0,0]]]

Answer 1

जेली ,  18  17 बाइट्स

ṙ""Ḅ}
Z€çŻṖ$$Z€çḊ

इसे ऑनलाइन आज़माएं!

कैसे?

ṙ""Ḅ} - Link 1, rotation helper: 3d matrix to rotate, 3d matrix of rotation instructions
    } - use the right argument for:
   Ḅ  -   un-binary (vectorises) - get the rotation amounts as a 2d matrix
  "   - zip with:
 "    -  zip with:
ṙ     -    rotate (the current row) left by (the current amount)

Z€çŻṖ$ $Z€çḊ - Main Link: 3d matrix, M
Z€           - transpose €ach (layer of M)
       $     - last two links as a monad:
     $       -   last two links as a monad:
   Ż         -     prepend a zero
    Ṗ        -     pop (i.e. remove the tail)
  ç          -   call the last Link as a dyad (i.e. f(Z€ result, ŻṖ$ result) )
        Z€   - transpose €ach (layer of that)
           Ḋ - dequeue (i.e. remove the head layer of M)
          ç  - call the last Link as a dyad (i.e. f(Z€çŻṖ$$Z€ result, Ḋ result) )

_{नोट: $$(या संभवतः $$ ... $$?) कोड-ब्लॉक स्वरूपण को गड़बड़ करने लगता है (लेकिन केवल एक बार पोस्ट किया गया, पूर्वावलोकन में नहीं), इसलिए मैंने अपने जीवन को आसान बनाने के लिए एक स्थान जोड़ा।}

Answer 2

पायथन 2 , 220 211 209 185 176 174 164 161 159 बाइट्स

lambda m:map(R,z(map(R,z(m,['']+[z(*l)for l in m])),m[1:]+['']))
R=lambda(l,L):map(lambda r,i:r[i:]+r[:i or 0],z(*l),[int(`b`[1::3],2)%len(b)for b in L])
z=zip

इसे ऑनलाइन आज़माएं!

_{-2 बाइट्स, जोनाथन एलन के लिए धन्यवाद}

Comments

चूंकि आप Noneरोटेशन के लिए स्लाइसिंग के दौरान संभालते हैं , मेरा मानना ​​है कि दोनों ['0']बन सकते हैं [[]]।

— जोनाथन एलन

@JonathanAllan धन्यवाद :)

— TFeld

Answer 3

एपीएल + विन, 53 39 बाइट्स

14 बाइट बचाने के लिए Adám को बहुत धन्यवाद

(1 0↓⍉2⊥⍉m⍪0)⌽(¯1 0↓2⊥2 1 3⍉0⍪m)⊖[2]m←⎕

इसे ऑनलाइन आज़माएं! दरियाल क्लासिक के सौजन्य से

प्रपत्र के 3D सरणी के इनपुट के लिए संकेत:

4 2 3⍴1 0 1 1 0 0 1 0 1 0 1 1 0 1 1 1 1 1 1 1 0 1 1 1

कौन सी पैदावार:

1 0 1
1 0 0

1 0 1
0 1 1

0 1 1
1 1 1

1 1 0
1 1 1

स्पष्टीकरण:

m←⎕ Prompt for input

(¯1 0↓2⊥2 1 3⍉0⍪m) Calculate column rotations

(1 0↓⍉2⊥⍉m⍪0) Calculate row rotations

(...)⌽(...)⊖[2]m Apply column and row rotation and output resulting 3d array:

1 1 0
1 0 0

0 0 1
1 1 1

0 1 1
1 1 1

1 1 1
1 1 0

Comments

संलग्न करने और उपयोग करने के बजाय ¨, एक बार में संपूर्ण सरणी को संसाधित करें। इसे ऑनलाइन आज़माएं!

— आदम

@ बहुत बहुत धन्यवाद। मुझे नहीं पता कि मैंने इस पर क्यों सोचा और एक नेस्टेड मार्ग गया :( पुराना हो रहा है?

— ग्राहम

Answer 4

आर , 226 216 205 बाइट्स

-21 बाइट्स digEmAll के लिए धन्यवाद

function(a,L=`for`){d=dim(b<-a)
r=function(a,n,l=sum(a|1))a[(1:l+sum(n*2^(sum(n|1):1-1))-1)%%l+1]
L(i,I<-2:d[3],L(j,1:d,b[j,,i]<-r(b[j,,i],a[j,,i-1])))
L(i,I-1,L(k,1:d[2],b[,k,i]<-r(b[,k,i],a[,k,i+1])))
b}

इसे ऑनलाइन आज़माएं!

Answer 5

05AB1E , 41 39 बाइट्स

εNĀiø¹N<èøJC‚øε`._}ø}N¹g<Êi¹N>èJC‚øε`._

यह बहुत लंबा लगता है .. निश्चित रूप से कुछ और गोल्फ हो सकता है।

इसे ऑनलाइन आज़माएं या सभी परीक्षण मामलों को सत्यापित करें ।

स्पष्टीकरण:

ε                    # Map each layer in the (implicit) input to:
                     # (`N` is the layer-index of this map)
 NĀi                 #  If it is not the first layer:
    ø                #   Zip/transpose the current layer; swapping rows/columns
    ¹N<è             #   Get the `N-1`'th layer of the input
        ø            #   Zip/transpose; swapping rows/columns
         J           #   Join all inner lists (the columns) together
          C          #   And convert it from binary to integer
           ‚         #   Pair it with the current layer's columns we're mapping
            ø        #   Zip/transpose; to pair each integer with a layer's columns
             ε   }   #   Map over these pairs:
              `      #    Push both values of the pair separately to the stack
               ._    #    Rotate the column the integer amount of times
    ø                #   Zip/transpose the rows/columns of the current layer back
   }                 #  Close the if-statement
 N¹g<Êi              #  If this is not the last layer (layer-index-1 != amount_of_layers):
       ¹N>è          #   Get the `N+1`'th layer of the input
           J         #   Join all inner lists (the rows) together
            C        #   And convert it from binary to integer
             ‚       #   Pair it with the current layer's rows we're mapping
              ø      #   Zip/transpose; to pair each integer with a layer's rows
               ε     #   Map over these pairs:
                `    #    Push both values of the pair separately to the stack
                 ._  #    Rotate the row the integer amount of times
                     # (implicitly output the result after the layer-mapping is done)

Answer 6

वोल्फ्राम लैंग्वेज (मैथेमेटिका) , 138 131 125 123 बाइट्स

t=Map@Thread
m=MapThread[r=RotateLeft,#,2]&
b=(a=ArrayPad)[Map@Fold[#+##&]/@#,1]~r~#2~a~-1&
g=m@{t@m@{t@#,t@#~b~-1},#~b~1}&

इसे ऑनलाइन आज़माएं!

• Map[Thread]के बराबर है Transpose[a, {1,3,2}], जो स्तंभों और पंक्तियों को स्थानांतरित करता है।
• Fold[#+##&]IntegerDigits[#,2]बाइनरी से परिवर्तित करने के लिए कम है ।