न्यूनतम नेटहैक


64

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

इस चुनौती के उद्देश्यों के लिए, मान लें कि संपूर्ण कालकोठरी एक एकल स्तर है और केवल 5 × 16 अक्षर हैं। इसके अलावा, मान लें कि यह एक "सुरक्षित" कालकोठरी है या कि आप केवल एक प्रोटोटाइप लागू कर रहे हैं - कोई राक्षस नहीं होगा, भूख के बारे में चिंताएं आदि। वास्तव में, आपको केवल चरित्र और ताबीज और खेल के स्थान को ट्रैक करना होगा। प्रभावी ढंग से समाप्त हो जाएगा जब खिलाड़ी ताबीज के रूप में एक ही स्थान पर आता है।

आव यकताएं

  • एक 5 × 16 कालकोठरी (एकल स्तर) होगी।
  • खिलाड़ी को एक प्रारंभिक स्थान (वैकल्पिक रूप से यादृच्छिक) और एक अलग यादृच्छिक (अलग-अलग हर बार कार्यक्रम चलने पर) को कालकोठरी के अंदर चौकोर शुरू करें। यही है, खिलाड़ी के रूप में ताबीज को एक ही वर्ग पर शुरू करने की अनुमति नहीं है।
  • चार इनपुट कुंजियों को स्वीकार करें जो खिलाड़ी को एक समय में एक वर्ग (चार कार्डिनल दिशाओं) में स्थानांतरित करते हैं। अन्य इनपुट पढ़ने / प्रसंस्करण की अनुमति है (एक रीडलाइन () फ़ंक्शन जिसे 'एंटर', आदि दबाने की आवश्यकता होती है)।
  • कालकोठरी की सीमा के बाहर यात्रा करने की अनुमति नहीं है। उदाहरण के लिए, अगर खिलाड़ी सही दबाए हुए तहखाने के दाहिने किनारे पर है, तो कुछ भी नहीं करना चाहिए।
  • प्रारंभिक पीढ़ी और प्रत्येक आंदोलन के बाद, खेल की स्थिति को प्रिंट करें। जैसा कि यह कोड गोल्फ है और मुद्रण बल्कि निर्बाध है, प्रिंट फ़ंक्शन और फ़ंक्शन कॉल के लिए वर्ण गणना पर ध्यान न दें, कोई राज्य परिवर्तन नहीं मानता है । खाली कोशिकाओं को अवधि ( .), दोहरे भाव के रूप में ताबीज ( ") और प्रतीक के रूप में चरित्र ( ) के रूप में दिखाया जाना चाहिए @
  • खेल तब खत्म हो जाता है जब खिलाड़ी ताबीज "एक ही वर्ग में आता है"

जीतना

यह एक कोड गोल्फ चालान है, आज से एक सप्ताह बाद आवश्यकताओं को पूरा करने वाला सबसे छोटा कोड विजेता घोषित किया जाएगा।

उदाहरण

मूलभूत आवश्यकताओं और नमूना आउटपुट को दिखाने के लिए C # (ungolfed) में एक उदाहरण समाधान है।

using System;

namespace nh
{
    class Program
    {
        static Random random = new Random();

        // player x/y, amulet x/y
        static int px, py, ax, ay;

        static void Main(string[] args)
        {
            px = random.Next(0, 16);
            py = random.Next(0, 5);

            // amulet starts on a position different from the player
            do { ax = random.Next(0, 16); } while (px == ax);
            do { ay = random.Next(0, 5); } while (py == ay); 

            print();

            do
            {
                // reads a single keypress (no need to press enter)
                // result is cast to int to compare with character literals
                var m = (int)Console.ReadKey(true).Key;

                // Move the player. Here standard WASD keys are used.
                // Boundary checks for edge of dungeon as well.
                if (m == 'W')
                    py = (py > 0) ? py - 1 : py;
                if (m == 'S')
                    py = (py < 5) ? py + 1 : py;
                if (m == 'A')
                    px = (px > 0) ? px - 1 : px;
                if (m == 'D')
                    px = (px < 16) ? px + 1 : px;

                // print state after each keypress. If the player doesn't
                // move this is redundant but oh well.
                print();

            // game ends when player is on same square as amulet
            } while (px != ax || py != ay);
        }

        static void print()
        {
            Console.Write('\n');
            for (int y=0; y<5; y++)
            {
                for (int x = 0; x < 16; x++)
                {
                    if (x == px && y == py)
                        Console.Write('@');
                    else if (x == ax && y == ay)
                        Console.Write('"');
                    else
                        Console.Write('.');
                }
                Console.Write('\n');
            }
        }
    }
}

कुल वर्ण गणना 1474 है, लेकिन प्रिंट फ़ंक्शन को कॉल को अनदेखा करना और इसकी परिभाषा अंतिम वर्ण गणना है 896

कार्यक्रम चलाने पर आउटपुट:

................
...."...........
..........@.....
................
................

'ए' कुंजी को दो बार दबाने के बाद आउटपुट (ऊपर सहित):

................
...."...........
..........@.....
................
................

................
...."...........
.........@......
................
................

................
...."...........
........@.......
................
................

10
मुझे लगता है कि यह @Doorknob के लिए ब्याज की होगी।
एलेक्स ए।

10
दुष्ट मूल रूग्युलाइक गेम है, जहां एक खिलाड़ी को डंगऑन के सबसे निचले स्तर से येंडर के एमुलेट को पुनः प्राप्त करना होगा। इसे न्यूनतम दुष्ट क्यों नहीं कहते?
गाइल्स

5
@ गिल्स इसे न्यूनतम सांप क्यों नहीं कहते?
केसी कुबाल

26
Psshh, कोई विकर्ण आंदोलन? नहीं युभनजकल? ताबीज मिलने के बाद चढ़ने के लिए एक सीढ़ी भी नहीं? : पी ( जिस वैसे भी upvotes )
दरवाज़े

2
@tolos: मैं अभी भी स्पष्ट नहीं हूँ कि यहाँ यादृच्छिक क्या मायने रखता है। यदि प्रोग्राम को 80 बार चलाया जाता है, तो प्रत्येक बार प्रोग्राम को चलाने की आवश्यकता को पूरा करना वास्तव में संभव नहीं है ... विशेष रूप से, इस उत्तर में , एमुलेट सभी संभावित 79 स्थानों में से केवल 9 पर कब्जा कर सकता है। क्या वह माना जाएगा?
डेनिस

जवाबों:


37

टीआई-बेसिक, 42 41 38 36 35 बाइट्स

अपने TI-83 या 84+ श्रृंखला रेखांकन कैलकुलेटर के लिए।

int(5irand→A                          //Randomize amulet position
6log(ie^(6→C                          //15.635 + 4.093i
Repeat Ans=A                          //Ans holds the player pos. (starts bottom right)
iPart(C-iPart(C-Ans-e^(igetKey-i      //Boundary check, after adjusting player position
prgmDISPLAY
End

----------
PROGRAM:DISPLAY
For(X,0,15
For(Y,0,4
Output(Y+1,X+1,".
If A=X+Yi
Output(Y+1,X+1,"¨
If Ans=X+Yi
Output(Y+1,X+1,"@
End
End

खिलाड़ी किस दिशा में जाएगा कुंजी दबाए गए कुंजी कोड का एक फ़ंक्शन है, लेकिन चार कुंजी जो निश्चित रूप से काम करती हैं, वे शीर्ष पर हैं:

Key        [Y=]  [WINDOW]  [ZOOM]  [TRACE]  [GRAPH]
           -------------------------------------------
Key code    11      12       13               15
Direction  Left     Up     Right             Down

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

................
¨...............
................
................
...............@

व्याख्या

खिलाड़ी की स्थिति से एक जटिल संख्या के रूप में संग्रहीत किया जाता है 0+0iकरने के लिए 15+4iहै, जहां वास्तविक हिस्सा सही करने के लिए चला जाता है और काल्पनिक हिस्सा नीचे चला जाता है। यह शीर्ष और बाएँ पर आसान सीमा जाँच की सुविधा देता है: हम बस संख्या को थोड़ा ऑफसेट करते हैं और शून्य की ओर गोल करते हैं। उदाहरण के लिए, यदि ऑफ़सेट है 0.5और हमारी स्थिति है -1+3i(स्क्रीन से बाईं ओर), तो उस स्थिति को ठीक कर दिया जाएगा iPart(-0.5+3.5i)=0+3i, जहाँ उसे होना चाहिए। नीचे और सही सीमाओं के लिए जाँच करना थोड़ा अधिक जटिल है; हमें संख्या को एक स्थिर से घटाना है C, जो कि है 15.635 + 4.093i(यह सबसे छोटा है जिसे मैं बीच में पा सकता हूं ) 15+4iऔर 16+5i, गोल, Cफिर से संख्या वापस फ्लिप करने के लिए फिर से घटाना , और फिर से गोल करना।

जब एक कुंजी दबाया जाता है, तो अनजाने खिलाड़ी की स्थिति किसी दिशा में 1 इकाई से आगे बढ़ जाएगी, लेकिन पूर्णांक का हिस्सा केवल तब बदलता है जब कुछ कुंजी दबाए जाते हैं। सौभाग्य से, कुंजी जो काम करती हैं वे सभी शीर्ष पंक्ति पर हैं। नीचे उन मामलों में ऑफ़सेट्स का एक ग्राफ है जहां चाबियाँ 11, 12, 13, और 15 दबाए जाते हैं, और जब कोई कुंजी दबाया नहीं जाता है (कोई प्रेस केंद्र वर्ग के अंदर का बिंदु नहीं है, तो पूर्णांक भागों अपरिवर्तित होते हैं; 'ऑफसेट के अलग-अलग पूर्णांक भाग होते हैं)। Cसर्कल के केंद्र में लाल क्रॉस है।

यहाँ छवि विवरण दर्ज करें

पुराना कोड (42 बाइट्स):

int(9irand→A                     // 0≤rand≤1, so int(9irand) = i*x where 0≤x≤8
1                                //set "Ans"wer variable to 1+0i
Repeat Ans=A                     
Ans-iPart(i^int(48ln(getKey-1    //add -i,-1,i,1 for WASD respectively (see rev. history)
Ans-int(Ans/16+real(Ans/7        //ensure player is inside dungeon
prgmDISPLAY                      //display on top 5 rows of the homescreen   
                                 //(for this version switch X+Yi with Y=Xi in prgmDISPLAY)
End

सीमाएं

एक "चरित्र से बचने का कोई तरीका नहीं है , इसलिए "किसी प्रोग्राम के अंदर तार नहीं हो सकते। इसलिए, यह ¨एक उद्धरण के बजाय umlaut चिह्न का उपयोग करता है (यदि उद्धरण चिह्न के साथ पहले से मौजूद स्ट्रिंग थे, तो मैं प्रदर्शित कर सकता था)। प्राप्त करने ¨और @एक कार्यक्रम में, एक बाहरी उपकरण की आवश्यकता है; हालाँकि, यह मान्य TI-BASIC है।


2
बस मज़े के लिए, मैंने इस स्निपेट को बनाया, जो स्टायर 1 में डायरिसिस और @ सिंबल डालता है (जैसा कि एक बाहरी टूल के विपरीत))। अपने कैलकुलेटर से मेल खाने वाले शीर्ष पर लाइन चुनें, इसे एक नए प्रोग्राम में दर्ज करें, और उस प्रोग्राम को Asm के साथ चलाएं (
MI Wright

ओह, मैं कैलकुलेटर पर मशीन कोड में कोडिंग के बारे में भूल गया। एक गलती के साथ मुझे दुर्घटना नहीं करना चाहते, लेकिन मुझे विश्वास है कि यह काम करता है।
lirtosiast

44

सीएचआईपी -8 , 48 बाइट्स

यह कानूनी नहीं माना जा सकता है, लेकिन नरक क्यों नहीं। मैंने CHIP-8 में अपने प्रोग्राम को लिखा, एक वर्चुअल गेम कंसोल के लिए एक बाइटकोड-आधारित प्रोग्रामिंग भाषा। आप अपने ब्राउज़र में एक एमुलेटर / डिबगर जिसे मैंने ऑक्टो लिखा है, का उपयोग करके पूरा कार्यक्रम (99 बाइट्स) आज़मा सकते हैं:

स्क्रीनशॉट

http://johnearnest.github.io/Octo/index.html?gist=1318903acdc1dd266469

उस पूर्ण कार्यक्रम का एक हेक्स डंप इस प्रकार है:

0x60 0x14 0x61 0x04 0xC4 0x3C 0xC5 0x08
0x22 0x36 0xF6 0x0A 0x22 0x52 0x40 0x00
0x12 0x16 0x46 0x07 0x70 0xFC 0x40 0x3C
0x12 0x1E 0x46 0x09 0x70 0x04 0x41 0x00
0x12 0x26 0x46 0x05 0x71 0xFC 0x41 0x10
0x12 0x2E 0x46 0x08 0x71 0x04 0x22 0x52
0x3F 0x01 0x12 0x0A 0x00 0xFD 0xA2 0x58
0xD4 0x54 0x22 0x52 0x62 0xFF 0xA2 0x5B
0xD2 0x34 0x72 0x04 0x32 0x3F 0x12 0x40
0x62 0xFF 0x73 0x04 0x33 0x14 0x12 0x40
0x00 0xEE 0xA2 0x5F 0xD0 0x14 0x00 0xEE
0xA0 0xA0 0x40 0x00 0x00 0x20 0x00 0xF0
0x90 0x90 0xD0

आप खिलाड़ी को ASWD कुंजियों, या मूल CHIP-8 कीपैड पर 7589 कुंजियों के साथ स्थानांतरित कर सकते हैं। अगर मैं बैकग्राउंड और खिलाड़ी को खींचने के लिए सभी कोड और डेटा हटाता हूं, तो मुझे इसके बजाय 48 बाइट डंप मिलते हैं:

0x60 0x14 0x61 0x04 0xC4 0x3C 0xC5 0x08
0xF6 0x0A 0x40 0x00 0x12 0x12 0x46 0x07
0x70 0xFC 0x40 0x3C 0x12 0x1A 0x46 0x09
0x70 0x04 0x41 0x00 0x12 0x22 0x46 0x05
0x71 0xFC 0x41 0x10 0x12 0x2A 0x46 0x08
0x71 0x04 0x3F 0x01 0x12 0x08 0x00 0xFD

कार्यक्रम का पूर्ण रूप से अधूरा, एक उच्च स्तरीय विधानसभा भाषा में लिखा गया था:

:alias px v0
:alias py v1
:alias tx v2
:alias ty v3
:alias ax v4
:alias ay v5
:alias in v6

: main
    px := 20
    py := 4
    ax := random 0b111100
    ay := random 0b001000
    draw-board
    loop
        in := key
        draw-player
        if px != 0 begin
            if in == 7 then px += -4
        end
        if px != 0x3C begin
            if in == 9 then px +=  4
        end
        if py != 0 begin
            if in == 5 then py += -4
        end
        if py != 16 begin
            if in == 8 then py +=  4
        end
        draw-player
        if vf != 1 then
    again
    exit

: draw-board
    i := amulet
    sprite ax ay 4
    draw-player
    tx := -1
    i := ground
    : draw
    loop
        sprite tx ty 4
        tx += 4
        if tx != 63 then jump draw
        tx := -1
        ty += 4
        if ty != 20 then
    again
;

: draw-player
    i := player
    sprite px py 4  
;

: amulet  0xA0 0xA0 0x40
: ground  0x00 0x00 0x20 0x00
: player  0xF0 0x90 0x90 0xD0

ध्यान दें कि संकलित बाइट्स स्वयं CHIP-8 प्रोग्रामिंग भाषा हैं; कोडांतरक ऐसे कार्यक्रमों की रचना करने का एक अधिक सुविधाजनक साधन है।


19
नौकरी के लिए सही उपकरण।
डेनिस

6
+1 करने के लिए मुझे समय-समय पर अपने खेल को खेलने में बहुत समय बर्बाद करना चाहिए।
एलेक्स ए।

4
@AlexA। यदि आप और भी अधिक समय बर्बाद करना चाहते हैं, तो आपको गुफा एक्सप्लोरर की कोशिश करनी चाहिए । ओवरवर्ल्ड और QE में ASWD के चालन का उपयोग प्लेटफ़ॉर्मर स्तरों में ब्लॉकों को रीसेट / स्थानांतरित करने के लिए किया जाता है।
जॉन जूल

4
महान, अच्छी तरह से वहाँ मेरा सप्ताहांत जाता है।
एलेक्स ए।

1
मुझे पहली बार में संदेह हुआ, लेकिन गुफा एक्सप्लोरर मजेदार था और सीएचआईपी -8 मेरे अनुमान से बहुत अधिक लंबा हो गया है। इसलिए मुझे लगता है कि मुझे यह सीखना होगा।

10

पायथन 3, 86 बाइट्स

def d():
    import sys
    for y in range(5):
        line = []
        for x in range(16):
            line.append('@' if y*16+x == p else \
                        '"' if y*16+x == a else \
                        '.')
        print(''.join(line))
    print()
    sys.stdout.flush()

p=79;a=id(9)%p
while p-a:d();p+=[p%16<15,16*(p<64),-(p%16>0),-16*(p>15)][ord(input())%7%5]

केवल नीचे की दो पंक्तियों को गिनना, और गिराना d();


मैंने नीचे-दाएं कोने ("अंतिम" वर्ग) में खिलाड़ी को शुरू करके एक और बाइट को बचाया, फिर पहले 79 वर्गों से बेतरतीब ढंग से नमूना लिया ।
लिन

उफ़, क्षमा करें, तय! मुझे लगता है कि मैं मैन्युअल रूप से बाइट्स गिनने में अद्भुत नहीं हूं। : <
लिन

1
मुझे लगता है कि आप की जगह एक और चरित्र को बचा सकता है a=id(9)%79के साथ a=id(9)%p
kirbyfan64sos

@ kirbyfan64sos शानदार! धन्यवाद।
लिन

1
इसके अलावा, यदि आप इसे पायथन 3 के लिए बनाते हैं, तो आप raw_inputकॉल को बदल सकते हैं input
kirbyfan64sos

10

सी, 122 121 115 115 104 102 101 बाइट्स

#define o ({for(int t=0;t<80;++t)t%16||putchar(10),putchar(t^p?t^a?46:34:64);})
p;main(a){for(a=1+time(0)%79;p^a;o,p+=(int[]){-16*(p>15),16*(p<64),-!!(p%16),p%16<15}[3&getchar()/2]);}

पहली बार यहाँ पोस्टिंग! मुझे आशा है कि आप इसे पसंद करते हो :)

oमुद्रण, erm, फ़ंक्शन है। हमारे बहादुर नायक को 2, 4, 6 और 8 के साथ चारों ओर घुमाया जा सकता है, लेकिन किसी अन्य इनपुट को नहीं भेजने से सावधान रहें (कोई भी रेखांकन नहीं!)।

अद्यतन 1: लाया aऔर iमें mainकी मानकों।

अद्यतन 2: ओपी ने पुष्टि की कि इनपुट का एक स्ट्रिंग ठीक है, मुझे छुटकारा मिल गया scanf(जो मैं नई लाइन को छोड़ देता था)।

अद्यतन 3: एक यौगिक सरणी शाब्दिक का उपयोग किया और इनपुट लेआउट को संशोधित किया। यदि आप एक अमान्य दिशा में प्रवेश करते हैं तो कार्यक्रम अब हाइरवायर हो जाता है;)

अद्यतन 4: ध्यान दिया जाता है कि मुद्रण कार्य के लिए कॉल की गिनती नहीं है। नियमों को अधिक ध्यान से पढ़ने के लिए ध्यान दें।

अद्यतन 5: एक बाइट बचाया, मिकेल एलन स्टोकेबिए क्रिस्टिया के लिए धन्यवाद।


हो !!(p%16)सकता है p%16>0? मुझे ऑपरेशन का अपना आदेश याद नहीं है।
lirtosiast

@ThomasKwa यह है, लेकिन यह है कि -मदद नहीं कर सकता है लेकिन छड़ी करने के लिए p, तो कोष्ठक की जरूरत है दोनों तरह से। डबल धमाका सिर्फ मोटापा है :)
क्वेंटिन

@ क्वेंटिन 3 और गेटचार () / 2 <गेट्चर () / 2-25
मिकेल एलन स्टोकेबिए क्रिस्टीया जूल

@MikkelAlanStokkebyeChristia धन्यवाद :)
क्वेंटिन

9

CJam, 46 45 44 40 39 37 बाइट्स

{'.80*W$Gb'"t1$Gb'@tG/W%N*oNo}:P;
5,G,m*:Dmr~{P_l~4b2fm.+_aD&!$_W$=!}gP];

पहली पंक्ति (एक फ़ंक्शन को परिभाषित करती है जो वर्तमान गेम स्थिति को प्रिंट करती है) और दूसरी पंक्ति पर P 's (कॉल फ़ंक्शन) को बाइट काउंट में योगदान नहीं देता है।

प्रारंभिक स्थिति और ताबीज की स्थिति दोनों को छद्म-यादृच्छिक रूप से चुना जाता है। वितरण समान है और अंतर्निहित PRNG अनुमति देता है।

इनपुट है E, 6, 9और Bके लिए ऊपर , नीचे , बाएँ और सही , साथ Caps Lockही सक्रिय, जिसके बाद Enter

वैकल्पिक संस्करण

{'.80*W$Gb'"t1$Gb'@tG/W%N*oNo}:P;
5,G,m*:Dmr~{P_ZYm*l~(=:(.+_aD&!$_W$=!}gP];

चार और बाइट्स की लागत पर, इनपुट प्रारूप में काफी सुधार होता है:

  • इस संस्करण को स्वीकार करता है 8, 2, 4और 6के लिए ऊपर , नीचे , बाएँ और सही है, जो numpad पर इसी तीर कुंजी से मेल खाता है।
  • यह भी स्वीकार करता 7, 9, 1और 3इसी विकर्ण चाल के लिए।

परिक्षण

चूंकि I / O इंटरैक्टिव है, इसलिए आपको इस कोड को जावा दुभाषिया के साथ आज़माना चाहिए ।

नवीनतम संस्करण डाउनलोड करें और इस तरह कार्यक्रम चलाएं:

java -jar cjam-0.6.5.jar nethack.cjam

Enterप्रत्येक कुंजी के बाद, और आउटपुट के इन-प्लेस अपडेट के लिए दबाव से बचने के लिए, आप इस आवरण का उपयोग कर सकते हैं:

#!/bin/bash

lines=5
wait=0.05

coproc "$@"
pid=$!

head -$lines <&${COPROC[0]}

while true; do
    kill -0 $pid 2>&- || break
    read -n 1 -s
    echo $REPLY >&${COPROC[1]}
    printf "\e[${lines}A"
    head -$lines <&${COPROC[0]}
    sleep $wait
done

printf "\e[${lines}B"

इस तरह आमंत्रित करें:

./wrapper java -jar cjam-0.6.5.jar nethack.cjam

मुख्य संस्करण

5,G,   e# Push [0 1 2 3 4] and [0 ... 15].
m*:D   e# Take the Cartesian product and save in D.
mr~    e# Shuffle and dump the array on the stack.
       e# This pushes 80 elements. We'll consider the bottommost the amulet's
       e# position and the topmost the player's.
{      e# Do:
  P    e#   Call P.
  _    e#   Copy the player's position.
  l~   e#   Read and evaluate one line of input.
       e#      "6" -> 6, "9" -> 9, "B" -> 11, "E" -> 14 
  4b   e#   Convert to base 4.
       e#     6 -> [1 2], 9 -> [2 1], 11 -> [2 3], 14 -> [3 2]
  2f-  e#   Subtract 2 from each coordinate.
       e#     [1 2] -> [-1 0], [2 1] -> [0 -1], [2 3] -> [0 1], [3 2] -> [1 0]
  .+   e#   Add the result to the copy of player's position.
  _aD& e#   Push a copy, wrap it in an array and intersect with D.
  !    e#   Logical NOT. This pushes 1 iff the intersection was empty.
  $    e#   Copy the corresponding item from the stack.
       e#     If the intersection was empty, the new position is invalid
       e#     and 1$ copies the old position.
       e#     If the intersection was non-empty, the new position is valid
       e#     and 0$ copies the new position.
  _W$  e#   Push copies of the new position and the amulet's position.
  =!   e#   Push 1 iff the positions are different.
}g     e# While =! pushes 1.
P      e# Call P.
];     e# Clear the stack.

वैकल्पिक संस्करण

ZYm*   e# Push the Cartesian product of 3 and 2, i.e.,
       e#   [[0 0] [0 1] [0 2] [1 0] [1 1] [1 2] [2 0] [2 1] [2 2]].
l~     e#   Read and evaluate one line of input.
(=     e# Subtract 1 and fetch the corresponding element of the array.
:(     e# Subtract 1 from each coordinate.

समारोह पी

'.80*  e# Push a string of 80 dots.
W$Gb   e# Copy the amulet's position and convert from base 16 to integer.
'"t    e# Set the corresponding character of the string to '"'.
1$Gb   e# Copy the player's position and convert from base 16 to integer.
'@t    e# Set the corresponding character of the string to '@'.
G/     e# Split into chunks of length 16.
W%     e# Reverse the chunks (only needed for the alternate program).
N*     e# Join the chunks, separating by linefeeds.
oNo    e# Print the resulting string and an additional linefeed.

2
मैं TI-BASIC के साथ आपकी पूंछ पर सही हूँ! एक बार जब मैं अपना समाधान सत्यापित कर लूंगा, तब पोस्ट करूंगा।
lirtosiast

8

जावा, 231 बाइट्स (196 यदि फ़ंक्शन)

यहाँ 342 पर पूरा कार्यक्रम कोड है:

class H{public static void main(String[]a){int p=0,y=79,c;y*=Math.random();y++;p(p,y);do p((p=(c=new java.util.Scanner(System.in).next().charAt(0))<66&p%16>0?p-1:c==68&p%16<15?p+1:c>86&p>15?p-16:c==83&p<64?p+16:p),y);while(p!=y);}static void p(int p,int y){for(int i=0;i<80;i++){System.out.print((i==p?'@':i==y?'"':'.')+(i%16>14?"\n":""));}}}

प्रिंट फ़ंक्शन के बिना, 231:

class H{public static void main(String[]a){int p=0,y=79,c;y*=Math.random();y++;p(p,y);do p((p=(c=new java.util.Scanner(System.in).next().charAt(0))<66&p%16>0?p-1:c==68&p%16<15?p+1:c>86&p>15?p-16:c==83&p<64?p+16:p),y);while(p!=y);}}

यदि बस एक फ़ंक्शन ठीक है (मैं कल्पना से स्पष्ट नहीं हूं), तो मैं इसे थोड़ा आगे 196 तक काट सकता हूं:

void m(){int p=0,y=79,c;y*=Math.random();y++;p(p,y);do p((p=(c=new java.util.Scanner(System.in).next().charAt(0))<66&p%16>0?p-1:c==68&p%16<15?p+1:c>86&p>15?p-16:c==83&p<64?p+16:p),y);while(p!=y);}

और थोड़ी सी स्पष्टता के लिए कुछ लाइन टूट जाती है ...

class H{
    public static void main(String[]a){
        int p=0,y=79,c;
        y*=Math.random();
        y++;p(p,y);
        do 
            p(
                (p=(c=new java.util.Scanner(System.in).next().charAt(0))<66&p%16>0?
                    p-1:
                    c==68&p%16<15?
                        p+1:
                        c>86&p>15?
                            p-16:
                            c==83&p<64?
                                p+16:
                                p)
                ,y);
        while(p!=y);
    }

    static void p(int p,int y){
        for(int i=0;i<80;i++){
            System.out.print((i==p?'@':i==y?'"':'.')+(i%16>14?"\n":""));
        }
    }
}

ध्यान दें कि मैं प्रिंट समारोह की गिनती नहीं कर रहा हूँ p(p,y)अपने आप में है, लेकिन मैं कर रहा हूँ यह करने के लिए कॉल की गिनती, के बाद से मैं सामान कॉल बयान के अंदर बदल रहा है।

यह बड़े अक्षरों के साथ काम करता है ASDW। यह उन लोगों के लिए जाँच करने के तरीके के कारण, कुछ अन्य अक्षर भी काम कर सकते हैं, लेकिन अगर मैं अलग-अलग कुंजी दबाता हूं तो क्या होगा इस बारे में कल्पना वास्तव में कुछ नहीं कहती है।


मैं इंडेंटेशन के समान स्तर पर नेस्टेड टर्नरी ऑपरेटरों को प्रारूपित करना पसंद करता हूं, जैसे कि अगर / यदि आप की एक श्रृंखला होगी। यह अधिक पठनीय है।
lirtosiast

@ThomasKwa Yea, मैंने इसे कई बार किया है। यह और अधिक पसंद है अगर नेस्टेड की तुलना में नेस्टेड। यह मुझे बेहतर लगता है क्योंकि प्रत्येक टर्नरी के दोनों हिस्से समान स्तर पर हैं, लेकिन दूसरों से अलग हैं।
जॉयिट्स

यदि कोई अनाम फ़ंक्शन स्वीकार्य है, तो आप अपने उत्तर को 192 बाइट्स पर ट्रिम कर सकते हैं: void m()बन जाता है()->
akh-morpork

@ dohaqatar7 Yea, लेकिन मैं कोड गोल्फ के लिए जावा के एनॉन फ़ंक्शंस का उपयोग नहीं करता हूं। यह मेरे लिए सिद्धांत पर छायादार लगता है, चाहे दूसरों को वही महसूस हो या न हो।
जोबिट्स

क्या आप कर सकते हैं p+=?
lirtosiast

5

जावा, 574 बाइट्स

import java.util.*;public class N{static Random r=new Random();static int v,b,n,m;public static void main(String[] a){v=r.nextInt(16);b=r.nextInt(5);n=r.nextInt(16);m=r.nextInt(5);p();do{Scanner e=new Scanner(System.in);char m=e.next().charAt(0);if(m=='w')b=b>0?b-1:b;if(m=='s')b=b<5?b+1:b;if(m=='a')v=v>0?v-1:v;if(m=='d')v=v<16?v+1:v;p();}while(v!=n || b!=m);}static void p(){System.out.println();for(int y=0;y<5;y++){for(int x=0;x<16;x++){if(x==z && y==x)System.out.print('@');else if(x==n && y==m)System.out.print('"');else System.out.print('.');}System.out.println();}}}

मूल रूप से सी # संस्करण के समान ही, सिवाय obfuscated और न्यूनतम।


इतने सारे अनावश्यक स्थान ...;)
विल

@Will मैं ठीक कर रहा था कि: P
चरण

1
इसके अलावा, एक-अक्षर के नाम और टर्नरीज़ का उपयोग करें।
lirtosiast

@ThomasKwa तय: D
चरण

6
अभी भी बहुत सारे अनावश्यक स्थान हैं और टर्नरीज़ की कमी है;)
विल

5

जूलिया, 161 बाइट्स

उपयोग w, a, s, और dऊपर क्रमश: स्थानांतरित करने के लिए, छोड़ दिया, नीचे, और सही,।

पूर्ण कोड, मुद्रण सहित (330 बाइट्स):

B=fill('.',5,16)
a=[rand(1:5),rand(1:16)]
B[a[1],a[2]]='"'
c=[1,a==[1,1]?2:1]
B[c[1],c[2]]='@'
for i=1:5 println(join(B[i,:]))end
while c!=a
B[c[1],c[2]]='.'
m=readline()[1]
c[2]+=m=='a'&&c[2]>1?-1:m=='d'&&c[2]<16?1:0
c[1]+=m=='w'&&c[1]>1?-1:m=='s'&&c[1]<5?1:0
m∈"wasd"&&(B[c[1],c[2]]='@')
for i=1:5 println(join(B[i,:]))end
end

मुद्रित कोड, मुद्रण को छोड़कर (161 बाइट्स):

a=[rand(1:5),rand(1:16)]
c=[1,a==[1,1]?2:1]
while c!=a
m=readline()[1]
c[2]+=m=='a'&&c[2]>1?-1:m=='d'&&c[2]<16?1:0
c[1]+=m=='w'&&c[1]>1?-1:m=='s'&&c[1]<5?1:0
end

यहाँ अंतर यह है कि हम एक मैट्रिक्स के रूप में गेम स्टेट को सेव नहीं करते हैं; सभी संबंधित जानकारी सरणियों में निहित है cऔर a। और, ज़ाहिर है, कुछ भी नहीं छपा है। खिलाड़ी के ताबीज में पहुंचते ही उपयोगकर्ता को इनपुट के लिए प्रेरित नहीं किया जाएगा।


अनप्लग्ड + स्पष्टीकरण (पूर्ण कोड):

# Initialize a 5x16 matrix of dots
B = fill('.', 5, 16)

# Get a random location for the amulet
a = [rand(1:5), rand(1:16)]

# Put the amulet in B
B[a[1], a[2]] = '"'

# Start the player in the upper left unless the amulet is there
c = [1, a == [1,1] ? 2 : 1]

# Put the player in B
B[c[1], c[2]] = '@'

# Print the initial game state
for i = 1:5 println(join(B[i,:])) end

# Loop until the player gets the amulet
while c != a

    # Put a dot in the player's previous location
    B[c[1], c[2]] = '.'

    # Read a line from STDIN, take the first character
    m = readline()[1]

    # Move the player horizontally within the bounds
    if m == 'a' && c[2] > 1
        c[2] -= 1
    elseif m == 'd' && c[2] < 16
        c[2] += 1
    end

    # Move the player vertically within the bounds
    if m == 'w' && c[1] > 1
        c[1] -= 1
    elseif m == 's' && c[1] < 5
        c[1] += 1
    end

    # Set the player's new location in B
    if m ∈ "wasd"
        B[c[1], c[2]] = '@'
    end

    # Print the game state
    for i = 1:5 println(join(B[i,:])) end

end

मुझे लगता है कि यह ठीक है

3
+1 जो मैं वास्तविक नेटहॉक स्रोत कोड को याद करता हूं, उसके समान दिखने वाले संकुचित / अस्पष्ट संस्करण के लिए।
बेन जैक्सन

आप खराब यादृच्छिकरण का उपयोग करके कुछ बाइट्स बचा सकते हैं:a=[rand(1:5),1] c=a+1
lirtosiast

@ThomasKwa: क्या मज़ा है अगर यह हमेशा पहली पंक्ति में है? :)
एलेक्स ए।

3

बैच, 329 बाइट्स

@echo off
set e=goto e
set f= set/a
%f%a=0
%f%b=0
%f%c=%random%*3/32768+1
%f%d=%random%*16/32768+1
:et
call:p %a% %b% %c% %d%
if %a%%b% EQU %c%%d% exit/b
choice/C "wasd"
goto %errorlevel%
:1
%f%a-=1
%e%
:2
%f%b-=1
%e%
:3
%f%a+=1
%e%
:4
%f%b+=1
:e
if %a% GTR 4%f%a=4
if %a% LSS 0%f%a=0
if %b% GTR 15%f%b=15
if %b% LSS 0%f%b=0
%e%t

:p
setlocal enabledelayedexpansion
::creating a new line variable for multi line strings
set NL=^


:: Two empty lines are required here
cls
set "display="
for /l %%r in (0,1,4) do (
    set "line="
    for /l %%c in (0,1,15) do (
        set "char=."
        if %3 EQU %%r (
            if %4 EQU %%c (
                set char="
            )
        )
        if %1 EQU %%r (
            if %2 EQU %%c (
                set "char=@"
            )
        )
        set "line=!line!!char!"
    )
    set "display=!display!!line!!NL!"
)
echo !display!
exit /b

यह अत्यधिक प्रभावशाली है। मुझे आश्चर्य है कि ऐसा करना संभव है।
eis

यह मेरे लिए कालकोठरी प्रदर्शित नहीं करता है, केवल [डब्ल्यू, ए, एस, डी] को संकेत देने वाली लाइनों की एक श्रृंखला है। यह "काम" करने के लिए प्रकट होता है - अविवादित कालकोठरी चलना अंततः बाहर निकलता है। win7 cmd.exe
Dan Pritts

यह मेरे लिए काम करता है witn Win7 cmd.exe - जब मैं टाइप करता हूं तो मुझे मिलता हैMicrosoft Windows [Version 6.1.7601]
जैरी यिर्मयाह

@DanPritts अजीब है। यह विंडोज 8 ( Microsoft Windows [Version 6.2.9200]) पर मेरे लिए पूरी तरह से काम करता है
akh-morpork

दोह, मैंने पूरी चीज़ की नकल नहीं की और चिपकाया, मैंने खिड़की से नीचे स्क्रॉल नहीं किया। बहुत बढ़िया।
दान प्रिट्स

3

पर्ल, 228 222 वर्ण (कोड की कार्यप्रणाली के अभिन्न अंग नहीं हैं) - 207 यदि गिनती printऔर print ifकथन भागों की छपाई के लिए उपयोग नहीं किया जाता है, लेकिन गेम तर्क में न जोड़ें; 144 अगर मुद्रण के हिस्से के रूप में क्षेत्र प्रतिनिधित्व पीढ़ी कोड पर विचार कर रहे हैं, जैसा कि टिप्पणियों में याक द्वारा सुझाया गया है)

यह कोड नियंत्रण के लिए लोअरकेस wasd का उपयोग करता है; इनपुट दर्ज के साथ पुष्टि की जानी चाहिए। पर्ल 5.14.2 के साथ परीक्षण किया गया।

($a=$==rand(79))+=($a>=($==rand(80)));
print $_=("."x80)=~s/(.{$=})./\1@/r=~s/(.{$a})./\1"/r=~s/(.{16})/\1\n/gr;
%r=qw(w s/.(.{16})@/@\1./s a s/.@/@./ s s/@(.{16})./.\1@/s d s/@./.@/);
while(/"/){print if eval $r{getc STDIN}}

ध्यान दें कि इस कोड के लिए, गणना और मुद्रण को अलग करना असंभव है, क्योंकि संचालन नियमित अभिव्यक्ति का उपयोग करके मुद्रित प्रतिनिधित्व पर सीधे किया जाता है।

व्याख्या:

($a=$==rand(79))+=($a>=($==rand(80)));

यह रेखा खिलाड़ी और ताबीज की स्थिति निर्धारित करती है। खिलाड़ी की स्थिति निर्धारित होती है $==rand(80)और वास्तव में समझने में आसान होती है: 5 × 16 बोर्ड पर, 80 अलग-अलग पद हैं जहां खिलाड़ी हो सकता है। स्थिति को $=चर में संग्रहीत किया जाता है जो संग्रहीत मान को पूर्णांक में मजबूर करता है; यह कुछ बाइट्स को पूर्णांक में परिणाम को स्पष्ट रूप से डालने की आवश्यकता नहीं है के लिए randबचाता है ( एक अस्थायी बिंदु मान बचाता है)।

चूंकि खिलाड़ी में से एक स्थिति पहले से ही व्याप्त है, इसलिए ताबीज के लिए केवल 79 स्थान शेष हैं, इसलिए ताबीज की स्थिति के $a=$==rand(79)लिए उपयोग किया जाता है। फिर से, असाइनमेंट को $=पूर्णांक में बदलने के लिए बाध्य करता है, हालांकि मैं खिलाड़ी के स्थान के लिए $aपुन: उपयोग करने के लिए इसे आगे असाइन करता हूं $=

अब खिलाड़ी के रूप में एक ही स्थान पर कब्जा करने के लिए ताबीज से बचने के लिए, यह एक स्थिति से उन्नत है यदि इसकी स्थिति कम से कम खिलाड़ी के रूप में बड़ी है, तो खिलाड़ी द्वारा कब्जा नहीं किए गए स्थानों पर एक समान वितरण दे। यह उस जगह से प्राप्त होता है $a = ($a >= $=)जहां $=खिलाड़ी की स्थिति होती है। अब $a$ and the onlyइस अभिव्यक्ति में पहले $ = `के बजाय दो प्रारंभिक असाइनमेंट सम्मिलित करके पहली पंक्ति उत्पन्न की जाती है ।

print $_=("."x80)=~s/(.{$=})./\1@/r=~s/(.{$a})./\1"/r=~s/(.{16})/\1\n/gr;

यह प्रारंभिक क्षेत्र उत्पन्न करता है, और बाद में प्रिंट होता है। ("."x80)बस 80 डॉट्स की एक स्ट्रिंग उत्पन्न करता है। =~s/(.{$=})./\1@/rतो बदल देता है $=के साथ वें चरित्र @है, और साथ वें चरित्र । संशोधक के कारण वे जगह में संशोधन करने की कोशिश नहीं करते हैं, लेकिन संशोधित स्ट्रिंग लौटाते हैं, इसीलिए उन्हें पिछले अभिव्यक्तियों पर लागू किया जा सकता है। अंत में, हर 16 अक्षरों में एक नई पंक्ति सम्मिलित करता है। ध्यान दें कि फ़ील्ड को विशेष चर में संग्रहीत किया जाता है जिसे बाद के बयानों में अंतर्निहित रूप से इस्तेमाल किया जा सकता है।=~s/(.{$=})./\1@/r$a"r=~s/(.{16})/\1\n/gr$_

%r=qw(w s/.(.{16})@/@\1./s a s/.@/@./ s s/@(.{16})./.\1@/s d s/@./.@/);

यह अलग-अलग चाल के लिए प्रतिस्थापन नियमों वाले हैश बनाता है। इसका अधिक पठनीय संस्करण है

%r = ( 'w' => 's/.(.{16})@/@\1./s',
       'a' => 's/.@/@./',
       's' => 's/@(.{16})./.\1@/s',
       'd' => 's/@./.@/' );

चाल के लिए चाबियाँ वर्ण हैं, और मान संगत प्रतिस्थापन नियम वाले तार हैं।

while(/"/){print if eval"\$_=~$r{getc STDIN}"}

यह मुख्य लूप है। while(/"/)जांच करता है कि क्या अभी भी (क्षेत्र में) एक "चरित्र है $_। यदि हम ताबीज पर चलते हैं, तो इसका चरित्र खिलाड़ी के चरित्र के साथ बदल जाता है, इसलिए यह क्षेत्र से गायब हो जाता है।

eval $r{getc STDIN}मानक इनपुट से एक चरित्र को पढ़ता है, उसी से बदले जाने वाले नियम को देखता है %rऔर उस पर लागू होता $_है, अर्थात् फ़ील्ड। यह सच है कि अगर एक प्रतिस्थापन वास्तव में बनाया गया था (यह है, कुंजी हैश में पाया गया था और यह कदम संभव था; मूल्यांकन असंभव प्रतिस्थापन नियम में मेल नहीं खाएगा)। उस मामले printमें निष्पादित किया जाता है। चूंकि इसे बिना तर्क के कहा जाता है, यह प्रिंट करता है $_, अर्थात संशोधित क्षेत्र।


1
सिर्फ इसलिए कि आप पठनीयता के लिए लाइनफीड शामिल करते हैं इसका मतलब यह नहीं है कि आपको उन्हें गिनना होगा। मैं 228 बाइट्स देखता हूं। इस प्रश्न के विशिष्ट नियमों के अनुसार, आपके कोड का मुद्रण भाग बाइट की संख्या में योगदान नहीं करता है।
डेनिस

@ डेनिस: प्रिंटिंग पार्ट के लिए, अब जो स्पष्टीकरण मैंने जोड़ा है, उसे देखें: आप सार्थक रूप से मेरे कोड में प्रिंटिंग और मूल्यांकन को अलग नहीं कर सकते। जैसा कि आपने सुझाव दिया था मैंने अब गिनती बदल दी।
celtschk

क्या आपके मुद्रण कोड में कोई राज्य परिवर्तन हैं? नहीं? ठीक है, मेरी राय में, आपके तर्क के लिए आपके मुद्रण कोड के आउटपुट का पुन: उपयोग करना आपको दंडित नहीं करना चाहिए। आंदोलन कोड (जो अलग है!) को गिना जाना चाहिए, लेकिन "डिस्प्ले स्ट्रिंग" उत्पन्न करने वाले कोड को गिनना नहीं चाहिए।
याकूब

@Yakk: मेरे कोड के किस हिस्से को आप मुद्रण कोड मानते हैं? (वास्तव में मेरी राय है कि मतगणना से मुद्रण कोड का बहिष्कार एक बुरा विचार था, ठीक है क्योंकि यह हमेशा अच्छी तरह से परिभाषित नहीं किया गया है कि "मुद्रण कोड" क्या है।)
celtschk

@celtschk ("."x80)=~s/(.{$=})./\1@/r=~s/(.{$a})./\1"/r=~s/(.{16})/\1\n/grपहली नज़र में काफी करीब है, लेकिन मेरा पर्ल- फ़्यू कुछ साल जंग खाए हुए है। मैं वहाँ एक राज्य परिवर्तन को याद कर सकता था।
याकूब

2

सी #, 256 248 234 227 226 225 बाइट्स

NumLock के साथ स्थानांतरित करने के लिए NumPad तीर का उपयोग करता है।

प्रस्तुत है और स्पष्टता के लिए टिप्पणी की है:

using System;
class P{
    static void Main(){
        int a=0,b=0,c,d,e;
        var r=new Random();
        while(0<((c=r.Next(16))&(d=r.Next(5))));
        Draw(a,b,c,d); // Excluded from the score.
        while(a!=c|b!=d){
            e=Console.ReadKey().KeyChar-48;
            a+=e==4&a>0?-1:e==6&a<15?1:0;
            b+=e==8&b>0?-1:e==2&b<4?1:0;
            Draw(a,b,c,d); // Excluded from the score.
        }
    }
    // The following method is excluded from the score.
    static void Draw(int a, int b, int c, int d){
        Console.Clear();
        for (int y = 0; y < 5; y++)
        {
            for (int x = 0; x < 16; x++)
            {
                Console.Write(
                    x == a && y == b ? '@' :
                    x == c && y == d ? '"' :
                                       '.'
                );
            }
            Console.WriteLine();
        }
    }
}

1
मुझे लगता है कि सी # ints स्पष्ट रूप से शून्य के लिए init। इसके अलावा (इस समय जांच नहीं कर सकते हैं) यदि कास्टिंग कोई समस्या नहीं है तो आप चरित्र शाब्दिक को किलों में बदल सकते हैं, या कम से कम 'ए' से 97 (मुझे लगता है) हालांकि अन्य तीन अंक हैं।

केवल क्लास फ़ील्ड्स को डिफ़ॉल्ट रूप से प्रारंभ किया जाता है, और इसके लिए उन्हें इस मामले में स्थिर घोषित करने की आवश्यकता होती है। विधि चर का उपयोग पहले उपयोग से पहले किया जाना चाहिए। यह कम वर्ण लेता है: 4 बनाम 7.
हाथ-ई-फूड

धन्यवाद @ int पर स्पष्ट रूप से कास्टिंग चार पर टिप के लिए @tolos! अभी तक बेहतर है, अगर मैं int के रूप में ConsoleKey enum कास्ट का उपयोग करता हूं, तो मैं 2-अंकीय मानों का उपयोग कर सकता हूं।
हाथ-ई-फूड

तकनीकी रूप से, Mainविधि को बुलाया जाना जरूरी नहीं है Main, इसलिए आप अन्य तीन वर्णों को बंद कर सकते हैं।
लुअन

@ Luaan, मुझे लगता है कि आप गलत हैं। C # प्रलेखन: msdn.microsoft.com/en-us/library/acy3edy3.aspx
हैंड-ई-फ़ूड

2

एचटीएमएल + जावास्क्रिप्ट (ईएस ६), स्कोर शायद २१ (

बहुत कम, लेकिन नीचे स्निपेट्स में ऑनलाइन खेलने योग्य।

लाइन 6 (T.value ...) आउटपुट के लिए है और इसे गिना नहीं गया है (लेकिन सादगी के लिए मैंने टेक्सारिया ओपन और क्लोज टैग गिना, भले ही यह आउटपुट भी हो)

जैसा कि यादृच्छिकता के लिए: ताबीज हमेशा ग्रिड के दाहिने आधे भाग में होता है और खिलाड़ी हमेशा बाएं आधे भाग में शुरू होता है।

खेल शुरू करने और पुनः आरंभ करने के लिए textArea (इसे बड़ा करने के बाद) पर क्लिक करें।

<textarea id=T onclick='s()' onkeyup='m(event.keyCode)'></textarea>
<script>
R=n=>Math.random()*n|0,
s=e=>m(y=R(5),x=R(8),a=R(5)*17+R(8)+8),
m=k=>(x+=(x<15&k==39)-(x>0&k==37),y+=(y<4&k==40)-(y>0&k==38),p=y*17+x,
T.value=p-a?(t=[...('.'.repeat(16)+'\n').repeat(5)],t[a]='X',t[p]='@',t.join('')):t='Well done!'
)
</script>

EcmaScript 6 स्निपेट (केवल फ़ायरफ़ॉक्स)

R=n=>Math.random()*n|0
s=e=>m(y=R(5),x=R(8),a=R(5)*17+R(8)+8)
m=k=>(
  x+=(x<15&k==39)-(x>0&k==37),
  y+=(y<4&k==40)-(y>0&k==38),
  p=y*17+x,
  T.value=p-a?(t=[...('.'.repeat(16)+'\n').repeat(5)],t[a]='"',t[p]='@',t.join('')):t='Well done!'
)
<textarea id=T onclick='s()' onkeyup='m(event.keyCode)'></textarea>

EcmaScript 5 स्निपेट (क्रोम में परीक्षण किया गया)

function R(n) { return Math.random()*n|0 }

function s() { m(y=R(5),x=R(8),a=R(5)*17+R(8)+8) }

function m(k) {
  x+=(x<15&k==39)-(x>0&k==37)
  y+=(y<4&k==40)-(y>0&k==38)
  p=y*17+x
  T.value=p-a?(t=('.'.repeat(16)+'\n').repeat(5).split(''),t[a]='"',t[p]='@',t.join('')):t='Well done!'
}
<textarea id=T onclick='s()' onkeyup='m(event.keyCode)'></textarea>


2

क्रिया 3: 267 बाइट्स

एक कामकाजी उदाहरण ऑनलाइन है

var a:int,p:int,t;function g(){var r=Math.random;while(p==a){a=r()*80;p=r()*80}addEventListener("keyDown",function(e){if(a==p)return;if(e.keyCode==87&&p>15)p-=16if(e.keyCode==83&&p<64)p+=16if(e.keyCode==65&&p%16>0)p--if(e.keyCode==68&&(p+1)%16>0)p++print()});print()}

गेम फ़ंक्शन का उपयोग करके यहां एक पूर्ण (पठनीयता के लिए शामिल व्हाट्सएप) कार्यक्रम है:

package
{
    import flash.display.Sprite;
    import flash.text.TextField;
    import flash.text.TextFormat;

    public class MiniRogue extends Sprite
    {
        var a:int, p:int, t;

        public function MiniRogue()
        {
            g();
        }

        function g(){
            var r=Math.random;
            while(p==a){
                a=r()*80;
                p=r()*80
            }
            addEventListener("keyDown",function(e){
                if(a==p)
                    return;
                if(e.keyCode==87&&p>15)
                    p-=16
                if(e.keyCode==83&&p<64)
                    p+=16
                if(e.keyCode==65&&p%16>0)
                    p--
                if(e.keyCode==68&&(p+1)%16>0)
                p++
                print()
            });
            print()
        }

        var old:int = -1;
        private function print():void {
            if (!t) {
                t = new TextField()
                t.defaultTextFormat = new TextFormat("_typewriter", 8)
                t.width=500;
                t.height=375;
                addChild(t)
            }
            var board:String = "";
            for (var i:int=0; i<80;i++) {
                if (i == p) {
                    board += "@";
                } else if (i == a) {
                    board += '"';
                } else {
                    board += ".";
                }
                if ((i + 1) % 16 == 0) {
                    board += "\n";
                }
            }
            if (a==p) {
                board += "Win!";
            }
            if (p == old) {
                board += "Bump!";
            }
            old = p;
            t.text = board;
        }
    }
}

2

जावास्क्रिप्ट: 307 216

आप नीचे स्निपेट में खेल सकते हैं! बाईं ओर की संख्याएं केवल कंसोल हैं (कम से कम एक क्रोम) पंक्तियों को मर्ज नहीं करता है।

कोड चलाने के लिए:

  1. हिट "रन कोड स्निपेट"
  2. कंसोल को खोलने के लिए ctrl-shift-j मारा
  3. रिजल्ट सेक्शन में क्लिक करें
  4. तीर कुंजी का उपयोग करें और खेलते हैं

var x=y=2,m=Math,b=m.floor(m.random()*5),a=14,i,j,t,c=console,onload=d;function d(){c.clear();for(i=0;i<5;i++){t=i;for(j=0;j<16;j++){t+=(i==y&&j==x)?"@":(i==b&&j==a)?'"':".";if(a==x&&b==y)t=":)";}c.log(t);}}onkeydown=function(){switch(window.event.keyCode){case 37:if(x>0)x--;break;case 38:if(y>0)y--;break;case 39:if(x<15)x++;break;case 40:if(y<4)y++;break;}d();};

संयुक्त राष्ट्र के golfed:

var px=py=2,m=Math,ay=m.floor(m.random()*5),ax=14,i,j,t,c=console,onload=draw;
function draw() {
  c.clear();
  for(i=0;i<5;i++) {
    t=i;
    for(j=0;j<16;j++) {
      t+=(i==py&&j==px)?"@":
         (i==ay&&j==ax)?'"':".";
      if(ax==px&&ay==py)t=":)";
    }
    c.log(t);
  }
}
onkeydown=function() {
  switch (window.event.keyCode) {
    case 37:
      if(px>0)px--;
      break;
    case 38:
      if(py>0)py--;
      break;
    case 39:
      if(px<15)px++;
      break;
    case 40:
      if(py<4)py++;
      break;
  }
  draw();
};

संपादित करें 1: नियमों को और अधिक ध्यान से पढ़ें और तदनुसार मेरे कोड को फिर से लिखें

  • ताबीज y मान अब यादृच्छिक है
  • खिलाड़ी अब बचकर नहीं निकल सकता
  • मैं अब ड्रॉ फ़ंक्शन में वर्णों की गणना नहीं करता हूं या इसे कॉल नहीं करता हूं

1

SpecBAS - 428 402 (छपाई को छोड़कर, 466 425 जब गिना जाता है)

क्रमशः Q / A / O / P को ऊपर / नीचे / बाएँ / दाएँ स्थानांतरित करने के लिए उपयोग करता है।

लाइन 1 पर कालकोठरी को प्रिंट करने वाली लाइन एकमात्र ऐसी रेखा है जिसे नजरअंदाज किया जा सकता है, लेकिन साथ ही साथ इसे थोड़ा नीचे कर दिया है।

1 PRINT ("."*16+#13)*5
2 LET px=8: LET py=3
3 LET ax=INT(RND*16): LET ay=INT(RND*5): IF ax=px AND ay=py THEN GO TO 3
4 PRINT AT ay,ax;#34;AT py,px;"@": LET ox=px: LET oy=py: PAUSE 0: LET k$=INKEY$
5 LET px=px+(k$="p")-(k$="o")
6 IF px<0 THEN LET px=0
7 IF px>15 THEN LET px=15
8 LET py=py+(k$="a")-(k$="q")
9 IF py<0 THEN LET py=0
10 IF py>4 THEN LET py=4
11 PRINT AT oy,ox;"."
12 IF SCREEN$(px,py)<>#34 THEN GO TO 4

# 34 का संदर्भ कोड में CHR $ (34) डालने का एक छोटा-सा तरीका है।

धन्यवाद @Thomas Kwa, मैंने देखा था कि खिलाड़ी की शुरुआत यादृच्छिक नहीं थी। कुछ वर्णों को बंद करने के लिए अलग-अलग IF कथन का भी उपयोग किया जाता है।


आप कुछ पात्रों को कम अच्छी तरह से यादृच्छिक करके सहेजने में सक्षम हो सकते हैं: 2 LET px=1: LET py=1: LET ax=2: LET ay=INT(RND*5)और उपयोग भी IF instead of ELSE IF
lirtosiast

1

एक और सी #, 221 171 170

यहाँ सी # में एक और तरीका है दोनों पदों के साथ यादृच्छिक। यह दिखाना चाहते हैं, भले ही यह हिस्सा हैंड-ई-फूड के समाधान से 7 बाइट्स लंबा हो।
जैसे ही वह Console.Read () का उपयोग करेगा, हैंड-ई-फ़ूड का उत्तर निश्चित रूप से छोटा होगा।
Consol.Read का नकारात्मक पक्ष यह है कि आवश्यक Enter दबाने से फ़ील्ड 2 बार प्रिंट हो जाती है।
लेकिन मुझे नहीं लगता कि सिर्फ (वास्तविक) इनपुट पर प्रिंट करने की आवश्यकता है।

नेविगेशन हाथ-ई-फूड्स समाधान के रूप में 8426 से किया जाता है।

using System;
class P
{
static void Main()
{
Func<int> n=new Random().Next;
int x=n()%16,y=n()%5,a=n()%16,b,m;
while(y==(b=n()%5));

while(x!=a|y!=b)
{
Printer.Print(a, b, x, y);  // Excluded from the score.
m=Console.Read()-48;
y+=m==8&y>0?-1:m==2&y<4?1:0;
x+=m==4&x>0?-1:m==6&x<15?1:0;
}
}
}


संपादित करें: (नया समाधान जोड़ा गया और प्रिंटरक्लास को अंत तक ले जाया गया)
Edit2: (एक 14 को 15 में बदल दिया और बाइट को दाएं-नीचे से शुरू करके बचाया)

मॉरिस की तकनीक को अपनाना संभव है कि इसे पिघलकर 171 सेंट सी में नीचे गिरा दिया जाए। (बेशक अब दोनों पदों के बिना यादृच्छिक):

using System;
class P
{
static void Main()
{
int p=79,a=new Random().Next()%p,m;
while(p!=a){
Printer.Print(p,a);  // Excluded from the score.
m=Console.Read()-48;
p+=m==4&p/5>0?-5:m==6&p/5<15?5:m==8&p%5>0?-1:m==2&p%5<4?1:0;
}
}
}

प्रिंटर क्लास लगभग एक ही है, बस प्रिंट का एक नया अधिभार ...

class Printer
{
    public static void Print(int ax, int ay, int px, int py)
    {
        Console.Write('\n');
        for (int y = 0; y < 5; y++)
        {
            for (int x = 0; x < 16; x++)
            {
                if (x == px && y == py)
                    Console.Write('@');
                else if (x == ax && y == ay)
                    Console.Write('"');
                else
                    Console.Write('.');
            }
            Console.Write('\n');
        }
    }

    public static void Print(int p, int a)
    {
        Print(p/5,p%5,a/5,a%5);
    }
}

1

रूबी, 185

यहाँ एक रूबी उदाहरण भी है।
मैं रूबी के लिए बहुत नया हूँ, शायद किसी को पता है कि बेहतर कैसे करना है :)

मैं 1 लाइन के रूप में गिना है क्योंकि कार्यक्रम अन्यथा दुर्घटनाग्रस्त हो जाएगा ...

नेविगेशन 8462 द्वारा किया जाता है। आपको हर बार प्रवेश के साथ इनपुट भेजने की आवश्यकता होती है।

def display(ax,ay,px,py)
    puts
    for y in 0..4
        for x in 0..15
            if (x == px && y == py)
                print "@"
            elsif (x == ax && y == ay)
                print '"'
            else
                print '.'
            end
        end
        puts
    end
end


x=y=0
a=Random.rand(16) while y==(b=Random.rand(5))
while x!=a or y!=b
display(a,b,x,y)  # Excluded from the score.
m=gets.chomp.to_i
y-=m==8?1:0 if y>0
y+=m==2?1:0 if y<4
x-=m==4?1:0 if x>0
x+=m==6?1:0 if x<15
end

0

QBasic, 103 बाइट्स

चुनौती के नियमों के अनुसार, Showउपप्रोग्राम को बाइट-काउंट में शामिल नहीं किया गया है, न ही Show p, q, a, bकॉल (निम्नलिखित न्यूलाइन के साथ) है।

b=1+TIMER MOD 9
1Show p, q, a, b
INPUT m
p=p-(m=2)*(p>0)+(m=4)*(p<4)
q=q-(m=1)*(q>0)+(m=3)*(q<15)
IF(p<>a)+(q<>b)GOTO 1


SUB Show (playerRow, playerCol, amuletRow, amuletCol)
CLS
FOR row = 0 TO 4
  FOR col = 0 TO 15
    IF row = playerRow AND col = playerCol THEN
      PRINT "@";
    ELSEIF row = amuletRow AND col = amuletCol THEN
      PRINT CHR$(34);    ' Double quote mark
    ELSE
      PRINT ".";
    END IF
  NEXT
  PRINT
NEXT
END SUB

स्थानांतरित करने के लिए, एक नंबर इनपुट करें और Enter दबाएं: 1बाएं 2जाने के लिए, ऊपर जाने के लिए, 3दाएं 4जाने के लिए और नीचे जाने के लिए।

यह कोड गेम स्टेट को अंत में आउटपुट नहीं करता है, जब खिलाड़ी ने ताबीज पाया है। ऐसा करने के लिए, बयान के Show p, q, a, bबाद एक और जोड़ें IF

व्याख्या

आज्ञा देना a, bताबीज के निर्देशांक और p, qखिलाड़ी के निर्देशांक का प्रतिनिधित्व करते हैं । खिलाड़ी की शुरुआत (0, 0) से होती है, और वर्तमान समय के 1 अंक के आधार पर, 1 और 9 के बीच एक कॉलम के साथ, पंक्ति 0 पर एमुलेट शुरू होता है।

बाकी सिर्फ गणित का एक समूह है जिसमें सशर्त हैं। याद रखने वाली महत्वपूर्ण बात यह है कि QBasic में स्थितियां सही के लिए 0, झूठी के लिए लौटती हैं -1। आइए खिलाड़ी पंक्ति अद्यतन विवरण देखें:

p=p-(m=2)*(p>0)+(m=4)*(p<4)

अगर m=2, हम 1 को घटाकर ऊपर ले जाना चाहते हैं p, तब तक p>0। इसी तरह, यदि m=4, हम 1 को जोड़कर नीचे बढ़ना चाहते हैं p, तब तक p<4। हम गुणा करके वांछित व्यवहार प्राप्त कर सकते हैं। यदि दोनों कारक हैं -1, तो उनका उत्पाद होगा 1, जिसे हम जोड़ या घटा सकते हैं p। यदि कोई सशर्त है 0, तो उत्पाद 0बिना किसी प्रभाव के होगा।

इसी प्रकार, यह निर्धारित करने की शर्त कि क्या खिलाड़ी ने ताबीज पाया है:

IF(p<>a)+(q<>b)GOTO 1

तो सशर्त, दोनों में से किसी सच है, उनका योग अशून्य हो जाएगा (या तो -1या -2truthy) और इस तरह, और कार्यक्रम 1. एक बार लाइन रिटर्न pके बराबर होती है aऔर qबराबर होती है b, दोनों सशर्त, हो जाएगा 0, इसलिए उनके योग होगा, 0और नियंत्रण प्रवाह तक पहुँच सकते हैं कार्यक्रम का अंत।

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.