कोड-गोल्फ: लाइट्स ऑफ!

Question

सभी संभावनाओं को पारित करने के लिए सबसे छोटा कोड जीतता है

कई ग्रिड आधारित खेल बनाए गए हैं जो कि रोशनी की एक ग्रिड के साथ शुरू होते हैं जो चालू हैं। किसी भी लाइट को दबाने से उस रोशनी और उससे सटे चार लाइट्स को टॉगल किया जाता है। जब एक प्रकाश को टॉगल किया जाता है, तो इसे बंद या चालू किया जाता है, जो इस बात पर निर्भर करता है कि यह तीव्रता से चालू या बंद था। लक्ष्य एक क्रम में रोशनी को हिट करना है जिसके परिणामस्वरूप सभी रोशनी अंत में बंद हो जाती हैं।

"X" उन लाइटों का प्रतिनिधित्व करता है जो चालू हैं। "O" उन लाइटों का प्रतिनिधित्व करता है जो बंद हैं। "P" उस वर्ग को दर्शाता है जिसे दबाया जाता है।

XOO          XOO      XOX      XOX      XXX
XOX          XOP  ->  XXO  ->  OPO  ->  XOX
OOX          OOX      POO      XXO      XOO

Intial Grid  Press 1  Press 2  Press 3  Ending Grid

इनपुट को एक तर्क के रूप में पारित फ़ाइल से या मानक इनपुट के रूप में सीधे लिया जा सकता है। इनपुट की पहली पंक्ति में शामिल होंगे एक्स (1 <= एक्स <= 20), रोशनी की ग्रिड के आकार, जिसका अर्थ है एक्स से एक्स । दूसरी पंक्ति में y (0 <= y <= ( x * 3) ² ) होगी, प्रारंभ में रोशनी की संख्या। अगली y लाइनों में ग्रिड पर रोशनी की रोशनी के निर्देशांक होते हैं, "पंक्ति स्तंभ" के प्रारूप में। पहले से ही बंद (पहले टॉगल किया गया है) रोशनी को फिर से टॉगल किया जाना चाहिए। अगली पंक्ति में z , रोशनी की संख्या दबाया जाएगा। अंतिम जेड पंक्तियों में दबाए गए रोशनी के निर्देशांक होते हैं, जिस क्रम में उन्हें दबाया गया था, "पंक्ति स्तंभ" के प्रारूप में।

कोई इनपुट गलत नहीं होगा। सभी नंबर ग्रिड की दी गई सीमाओं के भीतर होंगे।

सभी लाइट्स टॉगल होने के बाद आउटपुट फाइनल ग्रिड होगा। यह n n द्वारा n ग्रिड होना चाहिए । प्रत्येक क्षेत्र के लिए जो एक प्रकाश है जो ऊपर है, बड़े अक्षर "X" का उपयोग किया जाना चाहिए। प्रत्येक क्षेत्र के लिए एक प्रकाश है जो बंद है, अपरकेस वर्ण "O" का उपयोग किया जाना चाहिए।

ग्रिड से दूर होने वाली रोशनी को अनदेखा किया जाना चाहिए। ग्रिड के किनारे पर प्रकाश को टॉगल करना, केवल उन रोशनी को प्रभावित करना चाहिए जो ग्रिड पर हैं।

परीक्षण के मामलों

---

इनपुट

4
5
2 3
2 4
3 1
3 4
4 3
7
3 3
4 4
3 4
4 2
4 1
2 2
3 2

उत्पादन

OXOO
XOXO
XOXO
OXOO

---

इनपुट

1
3
1 1
1 1
1 1
2
1 1
1 1

उत्पादन

X

Answer 1

जे, १३२

'x f'=:0 2{,i=:".;._2(1!:1)3
echo u:79+9*}:"1}."1}.}:2|+/(1:`[`]}&(0$~,~x+2))"0<"1(f{.2}.i),;([:<[,[:|:(2 4$0 0,,~1 _1)+])"1(3+f)}.i

शायद बहुत आगे गोल्फ हो सकता है।

• कंसोल केवल, stdin-> stdout। लिनक्स पर j602 पर परीक्षण किया गया।
• दिए गए दोनों टेस्ट पास करता है।
• एक्स (कोई विस्तारित परिशुद्धता नहीं) पर ऊपरी सीमा मान लेता है

मूल ungolfed संस्करण:

NB. Whole input as two column grid
i=:".;._2(1!:1)3 

NB. x is x, f is number of initial toggles
'x f'=:0 2{,i 

NB. z is 1..x
z =: >:i.x 

NB. Take a boxed pair of indices, generate 'cross' indices (boxed)
f2=:3 :'y,,<"1(>y)+"1>0 1;1 0;0 _1;_1 0' 

NB. List of initial toggles, individually boxed
init=: <"1 f {. 2 }. i

NB. List of Ps, individually boxed
toggle=: <"1 (3 + f) }. i

NB. Grid of 0s padded on all sides
g =:0$~(x+2),(x+2)

NB. For each initial toggle, make a grid with a 1 in that position. Sum each 'position'.
grid =: +/ (1:`[`]}&g)"0 init

NB. For each position in the cross (f2) of each press, make a grid with a 1 in that position.
NB. Sum each 'position', add to 'grid', take mod 2, and select inner rows/columns.
gfinal =: z {"1 z { 2|grid + +/ (1:`([:f2[)`]}&g)"0 toggle

NB. Translate 0/1 to O/X through ascii and print
echo u:79+9*gfinal

Answer 2

पायथन, 209 203 199 वर्ण

I=input
x=I()+1
s=0
C=lambda:eval(raw_input().replace(' ','*%d+'%x))
exec's^=1<<C();'*I()
exec's^=1+(7<<x)/2+(1<<x<<x)<<(C()-x);'*I()
R=range(1,x)
for r in R:print''.join('OX'[s>>r*x+c&1]for c in R)

रोशनी की स्थिति को एकल (बड़े) पूर्णांक चर में रखा जाता है s। बिटमास्क के साथ XOR का उपयोग रोशनी को चालू करने के लिए किया जाता है। मैं रैपराउंड को रोकने के लिए प्रति पंक्ति एक अतिरिक्त बिट रखता हूं।

Comments

एक उत्कृष्ट कृति! इतना कुछ यहाँ से सीखा जा सकता है।

— ओलेह प्रिनपिन

execएक कीवर्ड है, बिल्टइन फ़ंक्शन नहीं है (पायथन 2.x में), इसलिए उन अतिरिक्त कोष्ठकों की कोई आवश्यकता नहीं है।

— हॉल्वैबो

Answer 3

रूबी 1.9, 167 वर्ण

n=gets.to_i
y=z=[*[1]*n,0]*n
$<.map{|i|a,b=i.split.map &:to_i;b ?[*y&&[b>1&&-1,b<n&&1,a>1&&~n,a<n&&n+1],0].map{|f|f&&z[n*a+a-n-2+b+f]*=-1}:y=!y}
z.map{|a|putc"
OX"[a]}

संपादन:

• (१ ९ stuff -> १ ९ १) कुछ अनावश्यक सामान हटा दिया
• (१ ९ १ -> १ified०) सरलीकृत तरीके से इनपुट पार्स किया जाता है
• (180 -> 172) हटाए गए कोष्ठक, के z[u]*=-1बजाय का उपयोग करेंz[u]=-z[u] , अप्रयुक्त चर निकालें
• (१ (२ -> १६ ९) कुछ सरलीकरण
• (169 -> 167) एक सशर्त को सरल बनाया

Answer 4

पर्ल, 139 वर्ण

@s=1..<>;<>=~/ /,$f{$`,$'+0}=1for 1..<>;<>=~/ /,map$f{$`+$_*($_&1),$'+int$_/2}^=1,-2..2for 1..<>;$\=$/;for$x(@s){print map$f{$x,$_}?X:O,@s}

स्पष्टीकरण:

# Read size and generate an array of integers from 1 to the size.
# We’ll need to iterate over this array often, but otherwise we don’t need the size
@s = 1..<>;

# Read number of prelit lights
for (1..<>) {
    # Find the space; sets $` and $' to row and column, respectively
    <> =~ / /;
    # Set the relevant light; need +0 because $' includes the newline
    $f{$`, $'+0} = 1;
}

# Read number of light switchings
for (1..<>) {
    # As above
    <> =~ / /;
    # Some nice formulas that flip the 5 relevant lights,
    # including the ones “off the board”, but we don’t care about those
    map {
        $f{ $`+$_*($_&1), $'+int$_/2 } ^= 1
    }, (-2..2);
}

# Cause each subsequent print statement to print a newline after it
$\ = $/;

# For each row...
for $x (@s) {
    # Print X’s and O’s as required
    print map { $f{$x,$_} ? X : O }, @s;
}

Answer 5

एपीएल (71)

'OX'[1+⊃{⍵≠(⍳⍴⍵)∊(⊂⍺)+K,⌽¨K←(0 1)(0 0)(0 ¯1)}/({⎕}¨⍳⎕),⊂({⎕}¨⍳⎕)∊⍨⍳2/⎕]

Comments

क्या आप इसके लिए हेक्स डंप प्रदान कर सकते हैं?

— केविन ब्राउन

@ क्वीनब्राउन: यह सिर्फ यूनिकोड है। आप क्या प्रारूप चाहते हैं? 5 ब्लॉकों को वास्तव में 'क्वाड्स' कहा जाता है और ऐसा दिखने वाला है।

— मारिनस