रॉक कागज कैंची

Question

क्लासिक रॉक पेपर कैंची को लागू करें।

शर्तेँ:

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

आपको:

• गोल्फ कोड प्रदान करें।
• अघोषित कोड
• आप कार्यक्रम को कैसे लागू करते हैं
• एक नमूना चला

मैं कम वर्णों के साथ उत्तर चुनूंगा, यदि कोई टाई सबसे अधिक मतदान वाला उत्तर प्रस्तुत करता है तो उसे चुना जाएगा।

अच्छा गोल्फ और भाग्य आपके पक्ष में कभी भी हो सकता है।

मैं अपने स्वयं के उत्तर को जावा में पोस्ट करूंगा।

एक चट्टान के नीचे एक पहाड़ में रहने वालों के लिए:

आर = रॉक

पी = कागज

s = कैंची

रॉक: कैंची से जीतता है, कागज के साथ हारता है, रॉक के साथ एक टाई।

कागज: रॉक के लिए जीतता है, कैंची से हारता है, कागज के साथ एक टाई।

कैंची: कागज के लिए जीतता है, रॉक के साथ हारता है, कैंची के साथ एक टाई।

वर्तमान स्थिति:

• संयुक्त राष्ट्र: उपयोगकर्ता नाम
• PL: प्रोग्रामिंग भाषा
• CC: कैरेक्टर काउंट
• UV: वोट अप

╔══════════════════╦════════════╦══════╦════╗
║        UN        ║     PL     ║  CC  ║ UV ║
╠══════════════════╬════════════╬══════╬════╣
║ Howard           ║ GolfScript ║    6 ║ 15 ║
║ primo            ║ Perl       ║   27 ║  7 ║
║ TwiNight         ║ APL        ║   31 ║  4 ║
║ primo            ║ Perl       ║   33 ║  7 ║
║ marinus          ║ APL        ║   36 ║  5 ║
║ primo            ║ Perl       ║   38 ║  7 ║
║ primo            ║ Perl       ║   48 ║  7 ║
║ manatwork        ║ Ruby       ║   54 ║ 13 ║
║ w0lf             ║ GolfScript ║   62 ║  4 ║
║ tmartin          ║ K          ║   67 ║  2 ║
║ Abhijit          ║ Python 3   ║   74 ║  5 ║
║ beary605         ║ Python 3   ║   76 ║  4 ║
║ rlemon           ║ javascript ║   85 ║  4 ║
║ ugoren           ║ C          ║   86 ║  3 ║
║ Egor Skriptunoff ║ LUA        ║   87 ║  4 ║
║ Shmiddty         ║ javascript ║   87 ║  3 ║
║ Fors             ║ Befunge    ║  107 ║  3 ║
║ Briguy37         ║ javascript ║  117 ║  2 ║
║ Vi.              ║ Clojure    ║  129 ║  1 ║
║ Henrik           ║ C#         ║  167 ║  4 ║
║ dystroy          ║ Go         ║  169 ║  1 ║
║ Praveen          ║ javascript ║  250 ║  0 ║
║ ryan             ║ javascript ║  256 ║  1 ║
║ primo            ║ ferNANDo   ║  259 ║  5 ║
║ anakata          ║ Java       ║  259 ║  1 ║
║ epoch            ║ Java       ║  387 ║  1 ║
║ jdstankosky      ║ LOLCODE    ║ 1397 ║ 15 ║
╚══════════════════╩════════════╩══════╩════╝

मैं हावर्ड उत्तर का चयन नहीं कर सकता, क्योंकि यह नियमों को मोड़ने का एक (सफल) प्रयास था, लेकिन मैं उन्हें बदल देता हूं, उन्हें अतिरिक्त स्पष्ट करने के लिए।

प्राइमो 27 कैरेक्टर के उत्तर का चयन नहीं किया जा सकता है क्योंकि यह छद्म यादृच्छिक प्रति se नहीं है

प्राइमो -प उत्तर, मैं जा रहा हूँ "-पी को 3 बाइट्स के रूप में गिना जाएगा: एक के लिए - एक, पी के लिए, और एक और आवश्यक व्हाट्सएप।"

उन सभी को धन्यवाद जिन्होंने उत्तर दिया, मुझे आशा है कि आपके पास अच्छा समय रहा होगा!

नोट: मैं इसे हर दूसरे सप्ताह संपादित करने की कोशिश करूंगा, तालिका को समायोजित करने के लिए, और मेरे चयनित उत्तर को बदल दूंगा यदि कोई व्यक्ति वर्तमान को हरा देता है, तो यदि आप अभी यहां आए हैं, तो अपना उत्तर पोस्ट करें यदि आप चाहते हैं!

Comments

आप एक ऐसा क्लॉज जोड़ने पर विचार कर सकते हैं जिसमें सभी परिणाम - विन, लूज़, ड्रॉ - संभव हो।

— प्रिमो

चूंकि यह लोकप्रियता है, इसलिए मैंने

— jdstankosky

अपना जवाब प्रस्तुत करने से पहले मैंने नियमों को संपादित किया । लोकप्रियता केवल टाई ब्रेकर होगी।

— जेडेनानो

Pfft, यह अब लोकप्रियता नहीं है? उबाऊ।

— jdstankosky

@anakata पारंपरिक पर्लगॉल्फ नियमों द्वारा (टन हास्पेल के अलावा किसी और द्वारा संकलित) -pको 3 बाइट्स के रूप में गिना जाएगा: एक के लिए -, एक के लिए p, और एक और आवश्यक व्हाट्सएप। हालांकि, CG.SE पर कई अन्य प्रतियोगिताओं ने प्रत्येक विकल्प को एक एकल बाइट के रूप में गिना है। यह आमतौर पर सवाल के लेखक पर निर्भर करता है कि किस सिस्टम को सम्मानित किया जाए।

— प्रिमो

Answer 1

एपीएल, ३१

'TWL'[1+3|-/x⍳⎕←⍞,(?3)⌷x←'rps']

x←'rps'स्ट्रिंग 'rps'को असाइन करेंx

(?3)⌷ यादृच्छिक पूर्णांक 1 ~ 3 चुनें, उस सूचकांक को चुनें x

⍞, मशीन के विकल्प के लिए उपयोगकर्ता इनपुट को प्रीपेन्ड करें

⎕← आउटपुट परिणामस्वरूप स्ट्रिंग

x⍳ IndexOf द्वारा संख्यात्मक सरणी में कनवर्ट करें x

-/ दो संख्याओं का अंतर

1+|3 मापांक 3 और प्लस 1

'TWL'[...] से अनुक्रमण करता है 'TWL'

नमूना

r
rp
L

उपयोगकर्ता रॉक का चयन करें, प्रोग्राम पेपर चुनें: हारें

Answer 2

LOLCODE, 1397

नोट: मैंने इससे पहले कि मैं जीत की आवश्यकता को देखा था, लोकप्रियता टाई-ब्रेक के साथ गोल्फ टाई-ब्रेक से गोल्फ में बदल गया था।

वास्तव में कोई सख्त वाक्यविन्यास नहीं है, लेकिन मुझे यकीन है कि यह स्वीकार्य है।

HAI
    I HAS A CRAZY, LUCKY, CHALLENGE, TREAT
    I HAS YUMMY ITZ "LOL U LOZED"
    I HAS MEH ITZ "NOWAI TIED"
    I HAS GROSS ITZ "OMG U WONNED"
    I HAS BURNT ITZ "LAME"
    GIMMEH CHALLENGE
    BTW I HOPE I R TEH WINZ
    LOL CRAZY IZ BETWEEN 1 AN 3
    I HAS A SUPA ITZ A BUKKIT
    LOL SUPA'Z 1 R "ROCK"
    LOL SUPA'Z 2 R "PAPER"
    LOL SUPA'Z 3 R "SCIZZORS"
    LOL LUCKY R SUPA'Z CRAZY
    GOT CHALLENGE, WTF?
        OMG "Rock"
            GOT LUCKY, WTF?
                OMG ROCK, LOL TREAT R MEH, GTFO
                OMG PAPER, LOL TREAT R YUMMY, GTFO
                OMG SCIZZORS, LOL TREAT R GROSS, GTFO
            OIC
        OMG "Paper"
            GOT LUCKY, WTF?
                OMG ROCK, LOL TREAT R GROSS, GTFO
                OMG PAPER, LOL TREAT R MEH, GTFO
                OMG SCIZZORS, LOL TREAT R YUMMY, GTFO
            OIC
        OMG "Scissors"
            GOT LUCKY, WTF?
                OMG ROCK, LOL TREAT R YUMMY, GTFO
                OMG PAPER, LOL TREAT R GROSS, GTFO
                OMG SCIZZORS, LOL TREAT R MEH, GTFO
            OIC
        OMGWTF
            VISIBLE "WHAT U SAYZ?", LOL TREAT R BURNT
            GTFO
    OIC
        BOTH SAEM TREAT AN BURNT, O RLY?
            YARLY
                VISIBLE "YOU BURNTED MAH TREAT!"
            NOWAI
                VISIBLE SMOOSH "I GUESSED " AN LUCKY
                VISIBLE TREAT
        KTHX
KTHXBAI

यदि इसे सफलतापूर्वक निष्पादित किया जाता है RockPaperScissors.LOL, तो यहां कुछ संभावित यादृच्छिक परिणाम हो सकते हैं:

• इनपुट: Rock- आउटपुट:I GUESSED SCIZZORS U WONNED
• इनपुट: Paper- आउटपुट:I GUESSED PAPER NOWAI TIED
• इनपुट: Scissors- आउटपुट:I GUESSED ROCK LOL U LOZED
• इनपुट: Tuna- आउटपुट:WHAT U SAYZ? YOU BURNTED MAH TREAT!

Comments

+1 केवल LOLCODE होने के लिए। ऐसा लगता है कि मुझे कुछ समय के लिए सीखना चाहिए, बस लोलज के लिए।

— इस्जी नोव

Answer 3

GolfScript

n"Draw"

उपरोक्त कोड आवश्यक कार्यक्षमता को लागू करता है। इसके अतिरिक्त, यह सुनिश्चित करता है कि कंप्यूटर की रणनीति की (कथित) अनुचितता के कारण खिलाड़ी कभी भी नाराज नहीं होगा।

अनप्लग्ड संस्करण

n"Draw"

कार्यक्रम कैसे शुरू करें

इनपुट ('आर', 'पी', 'एस' का एक एकल चरित्र) एसटीडीआईएन पर प्रदान किया जाना है, संभवतः नईलाइन के साथ समाप्त किया गया है।

एक नमूना चला

> echo r | ruby golfscript.rb rockpaperscissors.gsc
r
Draw

कोड की व्याख्या

उन सभी के लिए जो गोल्फस्क्रिप्ट से परिचित नहीं हैं, मैं इस कोड के काम करने के तरीके के बारे में विस्तृत विवरण जोड़ूंगा। कोड अनिवार्य रूप से तीन भागों में मौजूद है।

### Computer's strategy ###
# The strategy used to play r/p/s. 
# The computer is so fast, it can really guess in an instance 
# what the player has played. Since the computer should 
# not play unfair, the best strategy is to always go for a 
# draw and choose the same move.
        # on the stack is player's move
        # choose to play the same -> now the computer's move is on the stack

### Fiddle with input ###
# The input may of may not be delimited by newline.
# In order to make the output readable, we'll give
# a newline here.
n       # Push a newline onto the stack

### Give the result ###
# We can skip a complicated calculation of the result
# since we chose to play draw anyways.
"Draw"  # Push the result onto the stack

# Output is printed automatically when GolfScript code terminates.

टिप्पणियाँ

चूंकि यह कोड-गोल्फ नहीं है, लेकिन लोकप्रियता की प्रतियोगिता में मैंने सबसे छोटा संस्करण नहीं चुना। हो सकता है कि टाई के मामले में एक छोटा कोड मेरे समाधान को समाप्त कर देगा। फिर भी, गोल्फ में रुचि रखने वालों के लिए, निम्नलिखित संभावनाएँ दी गई हैं:

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

Comments

ठीक है, मैंने नियमों में अधिक वाचालता जोड़ दी है! मैं मानता हूँ कि मैंने दो धोखेबाज़ गलतियाँ कीं।

— जेदानो

"जीतने का एकमात्र कदम नहीं खेलना है।" : पी

— वीज़ेविंगर्टजेस्ज

Ungolfed संस्करण के लिए +1 और वास्तव में अच्छी व्याख्या

— izlin

मेरा सुझाव है n"d", जैसा कि सवाल ने कहा कि आउटपुट किसी भी मुद्रण योग्य चरित्र का होना चाहिए, यह पूर्ण शब्दों का उपयोग करने के बारे में कुछ नहीं कहता है।

— ender_scythe

Answer 4

रूबी: 61 54 वर्ण

o="rps";p o[c=rand(3)],%w{Draw Win Lose}[c.-o.index$_]

किसी तरह समझाया:

निम्नलिखित समस्याओं की गणना करने के लिए पूरी समस्या कम हो गई है:

  ╲ machine
h  ╲| 0 1 2
u ──┼──────
m 0 │ 0 1 2 
a 1 │ 2 0 1
n 2 │ 1 2 0

जहां संख्याओं का अर्थ है:

• पसंद: 0 रॉक, 1 पेपर, 2 कैंची
• परिणाम: 0 ड्रा, 1 जीत, 2 हार

इसके लिए मैंने सूत्र का उपयोग किया: मशीन_चोय - human_choice। यह कभी-कभी नकारात्मक मूल्य देता है, लेकिन जैसा कि इसका उपयोग केवल सूचकांक के रूप में किया जाता है और नकारात्मक सूचकांक को पिछड़े में गिना जाता है, सही सरणी तत्व को ले जाएगा।

# ┌── choosable object type
# │           ┌── machine's choice numeric code
# │           │                  ┌── result type
# │           │                  │                   ┌── human's choice
# │           │          ┌───────┴───────┐           │
  o="rps";p o[c=rand(3)],%w{Draw Win Lose}[c.-o.index$_]
#           └─────┬────┘                   └─────┬────┘  
#                 └── machine's choice letter    │
#                                                └── result numeric code

प्रयुक्त विधियाँ (अन्य तो Fixnumस्पष्ट हैं):

• कर्नेल .p (obj) → obj - “प्रत्येक वस्तु के लिए, सीधे obj लिखता है । inspectकार्यक्रम के मानक आउटपुट के लिए एक नई पंक्ति के बाद। "
• कर्नेल.रंड (अधिकतम = 0) → संख्या - "यदि एक तर्क के बिना कहा जाता है, या max.to_i.abs == 0, रैंड 0.0 और 1.0 के बीच एक छद्म-यादृच्छिक फ्लोटिंग पॉइंट नंबर देता है, जिसमें 0.0 और 1.0 शामिल है।"
• String.index (सबस्ट्रिंग [, ऑफसेट]) → fixnum या नहीं के बराबर - "रिटर्न दिया की पहली आवृत्ति के सूचकांक सबस्ट्रिंग या पैटर्न में (regexp) str ।"

Ungolfed:

object_type = "rps";
result_type = %w{Draw Win Lose}

machine_choice = rand(3)
human_choice = $_

p object_type[machine_choice]

result_code = machine_choice - object_type.index(human_choice)
p result_type[result_code]

नमूना रन:

bash-4.2$ ruby -nle 'o="rps";p o[c=rand(3)],%w{Draw Win Lose}[c.-o.index$_]'
r
"p"
"Win"
p
"p"
"Draw"
s
"p"
"Lose"

Comments

मेरे जैसा ही। 7 बाइट्स [(c-o.index($_)+3)%3]द्वारा प्रतिस्थापित किया जा सकता है [c.-o.index$_]। इसके अलावा, आपको -nlबहुत कम से कम अपने स्कोर में दो जोड़ना चाहिए ।

— प्रिमो

रवींद्र! नकारात्मक सूचकांक का उपयोग करने का मेरा पहला उद्देश्य था। लगता है कि मैं एक ऑपरेंड ऑर्डर के मुद्दे को ठीक करने के बाद इस दृष्टिकोण को पुनः प्राप्त करना भूल गया। धन्यवाद, @primo। और एक और c.टिप के लिए धन्यवाद ।

— मैनेटवर्क

मेरा कहना है कि मुझे यह जवाब पसंद है !!

— जेरेडानो

@manatwork चाल वास्तव में है .-। बिंदीदार ऑपरेटरों को उनके गैर-बिंदीदार समकक्षों की तुलना में बहुत कम पूर्वता है। उदाहरण के लिए, a/(b+c)द्वारा प्रतिस्थापित किया जा सकता है a./b+c।

— प्रिमो

Answer 5

सी # (167 अक्षर)

मेरा बहुत पहले गोल्फ में प्रयास करें।

golfed

using System;class P{static void Main(string[] i){var m="rspr";var a=m[Environment.TickCount%3];Console.WriteLine(a+" "+(i[0][0]==a?"T":m.Contains(i[0]+a)?"W":"L"));}}

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

using System;

class P
{
    static void Main(string[] i)
    {
        var m = "rspr";
        var a = m[Environment.TickCount % 3];
        Console.WriteLine(a + " " + (i[0][0] == a ? "T" : m.Contains(i[0] + a) ? "W" : "L"));
    }
}

नमूना रन एप्लिकेशन को एप्लिकेशन के लिए तर्क 1 के रूप में एकल चार इनपुट की आवश्यकता है r, sया तो p।

cmd > app.exe r

सभी संभावित परिणाम

• cmd > app.exe rआउटपुट देता है r T(रॉक, टाई)
• cmd > app.exe rआउटपुट देता है p L(कागज, खोया)
• cmd > app.exe rआउटपुट देता है s W(कैंची, जीत)
• cmd > app.exe pआउटपुट देता है r W(रॉक, जीत)
• cmd > app.exe pआउटपुट देता है p T(कागज, टाई)
• cmd > app.exe pआउटपुट देता है s L(कैंची, खोया)
• cmd > app.exe sआउटपुट देता है r L(रॉक, खोया)
• cmd > app.exe sआउटपुट देता है p W(कागज, जीत)
• cmd > app.exe sआउटपुट देता है s T(कैंची, टाई)

Answer 6

पर्ल 48 बाइट्स

$%=rand 3;print"$%
"^B,(Draw,Lose,Win)[$%-=<>^B]

स्क्रिप्ट कंप्यूटर के दृष्टिकोण से परिणाम को प्रिंट करता है, उदाहरण के लिए यदि खिलाड़ी चुनता है rऔर कंप्यूटर चुनता है s, तो परिणाम होता है Lose। $%(स्वरूप पृष्ठ संख्या) का उपयोग कंप्यूटर की चाल को संग्रहीत करने के लिए किया जाता है, क्योंकि इसमें केवल पूर्णांक मान हो सकता है, जो एक इंट कास्ट बचाता है।

Ungolfed:

# choose a random move index 0, 1, or 2
$cindex = int(rand 3);
# convert this index to a move
# 0 => r, 1 => s, 2 => p
$cmove = "$cindex" ^ B;

# read the player's move
$pmove = <>;
# convert this move to its index
$pindex = $pmove ^ B;

# print computer's move
print $cmove, $/;
# compare indices, and output result
@result = (Draw, Lose, Win);
print $result[$cindex - $pindex];

नमूना उपयोग:

$ echo p | perl rps.pl
s
Win

$ echo r | perl rps.pl
r
Draw

$ echo s | perl rps.pl
p
Lose

स्क्रिप्ट को अंतःक्रियात्मक रूप से भी चलाया जा सकता है, इसके बाद अपना कदम टाइप करके Enter:

$ perl rps.pl
r
s
Lose

---

नियम टूटना

पर्ल 35 +3 बाइट्स

$_=($%=rand 3).(D,L,W)[$%-($_^B)]^B

आवश्यक -pआदेश पंक्ति स्विच (3 बाइट्स के रूप में गिना)। परिणामों में से प्रत्येक Win, Loseऔर Drawकरने के लिए मैप किया गया है W, L, D। कंप्यूटर की पसंद और परिणाम के बीच की नई रूपरेखा को बाहर रखा गया है।

नमूना उपयोग:

$ echo r | perl -p rps.pl
sL

---

पर्ल 30 +3 बाइट्स

$_=($%=rand 3).($%-($_^B))%3^B

एक बार फिर आवश्यकता है -p। यहाँ Win, Loseऔर Drawकरने के लिए मैप किया गया है 2, 1और 0क्रमशः। यह अभी भी तकनीकी रूप से अनुपालन है, क्योंकि वे मुद्रण योग्य वर्ण हैं।

नमूना उपयोग:

$ echo r | perl -p rps.pl
s1

---

पर्ल 24 +3 बाइट्स

$_=$^T%3 .($^T-($_^B))%3^B

आवश्यक है -p, WLD को मैप किया 2, 1, 0के रूप में पहले। प्रत्येक ^Tको शाब्दिक अस्की चरित्र 20 से बदल दिया जाना चाहिए। यह वास्तव में थोड़ा खिंचाव है; $^Tस्क्रिप्ट शुरू होने के बाद से युग के बाद से सेकंड की संख्या देता है। सभी परिणाम संभव हैं, लेकिन यह छद्म यादृच्छिक के रूप में योग्य नहीं है।

नमूना उपयोग:

$ echo r | perl -p rps.pl
s1

Answer 7

एपीएल ( 38 36)

c[i],(⌽↑⌽∘'TWL'¨⍳3)[⍞⍳⍨c←'rps';i←?3]

टाई, जीत और हार के लिए आउटपुट 'टी', 'डब्ल्यू' और 'एल'।

नमूना रन:

      c[i],(⌽↑⌽∘'TWL'¨⍳3)[⍞⍳⍨c←'rps';i←?3]
p    
rW

(पेपर के लिए उपयोगकर्ता प्रकार 'पी'। कंप्यूटर 'आर' (रॉक), उपयोगकर्ता जीतता है)

स्पष्टीकरण:

• ⌽↑⌽∘'TWL'¨⍳3: निम्नलिखित मैट्रिक्स उत्पन्न करता है:

TLW
WTL
LWT

• ⍞⍳⍨c←'rps': cस्ट्रिंग पर सेट करें 'rps', उपयोगकर्ता इनपुट पढ़ें और स्ट्रिंग में उपयोगकर्ता इनपुट का सूचकांक प्राप्त करें (यह 1 से 3 तक का मूल्य होगा)। इस इंडेक्स का उपयोग Y मैट्रिक्स में समन्वय के रूप में किया जाता है।
• i←?3: 1 से 3 तक एक यादृच्छिक संख्या प्राप्त करें और इसे स्टोर iकरें, यह कंप्यूटर की पसंद है। यह एक्स मैट्रिक्स में समन्वय के रूप में प्रयोग किया जाता है।
• c[i]: कंप्यूटर की पसंद को 'आर', 'पी' या 'एस' के iरूप में cप्रदर्शित करते हुए एक इंडेक्स के रूप में उपयोग करें ।

Answer 8

फेरनेंडो 1184 (259 गोल्फ) बाइट्स

पायथन में लिखा गया दुभाषिया लिंक किए गए पृष्ठ के निचले भाग में पाया जा सकता है।

फ़र्नान्डो एक गूढ़ भाषा है जो केवल एक चर प्रकार, बूलियन, और केवल एक ऑपरेशन, नंद का समर्थन करती है। जैसा कि आप कल्पना कर सकते हैं, यह प्रतीत होता है सरल कार्यों को पूरा करने के लिए कुछ काफी लंबे तर्क को जन्म दे सकता है। इसमें स्टडिन (एक समय में एक बाइट) से पढ़ना, स्टडआउट को लिखना (एक समय में एक बाइट), सशर्त लूप और एक यादृच्छिक बूलियन जनरेटर भी है।

कोई भी कीवर्ड नहीं है; सब कुछ एक परिवर्तनशील है। एक कथन का कार्य पूरी तरह से चर की संख्या से निर्धारित होता है। कोई टिप्पणी भी नहीं है, इसलिए मैंने कोड को आत्म-टिप्पणी करने के लिए अपनी पूरी कोशिश की है। पिछले चार लाइनें कुछ भ्रमित हो सकता है, लेकिन यह शायद कहना है कि यह प्रिंट पर्याप्त होगा Win!, Loseया Drawपरिणाम पर निर्भर करता है।

not sure, but right now i'm guessing you're_not_paper you're_scissors
you're_paper not you're_not_paper
you're_not_scissors not you're_scissors
you're_rock you're_not_paper you're_not_scissors
you're_rock you're_rock

o_shi-
i'm_not_paper right ?
i'm_scissors right ?
i'm_paper not i'm_not_paper
i'm_not_scissors not i'm_scissors
o_shi- i'm_paper i'm_scissors
o_shi- o_shi-
o_shi-
i'm_rock i'm_not_paper i'm_not_scissors
i'm_rock i'm_rock

print right now but only if i'm_not_paper i'm_scissors
print a newline here, not more, not less

i_win_if i'm_scissors you're_paper
or_if i'm_rock you're_scissors
or_even_if i'm_paper you're_rock

i_win i_win_if or_if
i_win i_win
i_win or_even_if

i_lose_if i'm_paper you're_scissors
or_if i'm_scissors you're_rock
or_even_if i'm_rock you're_paper

i_lose i_lose_if or_if
i_lose i_lose
i_lose or_even_if

i_don't_win not i_win
i_don't_lose not i_lose
we_tie i_don't_win i_don't_lose
we_tie we_tie
we_don't_tie not we_tie

print now if i_win i_lose not i_win i_win
print but not we_tie we_don't_tie i_lose i_don't_win we_don't_tie
print right now i_lose i_win i_win we_don't_tie i_don't_win
print i_don't_win but we_tie or i_don't_win we_tie now

स्क्रिप्ट को अंतःक्रियात्मक रूप से चलाया जा सकता है, इसके बाद अपना कदम टाइप करके Enter।

नमूना उपयोग (यह मानते हुए कि आपने दुभाषिया का नाम लिया है nand.py):

$ python nand.py rps.nand
p
s
Win!

$ python nand.py rps.nand
r
r
Draw

$ python nand.py rps.nand
s
p
Lose

---

संपादित करें: सिर्फ यह साबित करने के लिए कि फ़र्नान्डो जावा के साथ प्रतिस्पर्धा कर सकता है, यहाँ 259 बाइट्स में 'गोल्फ' संस्करण है । तर्क दृष्टिगत रूप से भिन्न है; यह जांचता है not winऔर not tie, जो कुछ नंद द्वारों को बचाता है (क्योंकि तब मुझे केवल notखिलाड़ी के चाल के संस्करणों की आवश्यकता होती है, और क्योंकि not loseआउटपुट के लिए आवश्यक नहीं था)। लगभग पढ़ने के लिए दिलचस्प नहीं है, हालांकि।

1 _ _ _ _ _ _ A b
B 1 b
C A B
o
P 1 ?
s 1 ?
p 1 P
S 1 s
o p s
o o
o
r P S
r r
0 1 1 1 0 0 P s
0 0 0 0 1 0 1 0
t s A
u r B
v p C
W t u
W W
W v
t p A
u s B
v r C
D t u
D D
D v
w 1 W
d 1 D
l W D
l l
0 1 0 w l 1 w w
0 1 1 d D l W D
0 1 1 l w w D W
0 W 1 d 0 W d 1

Comments

HAHAHA o_shi- o_shi- o_shi-यह प्रफुल्लित करने वाला आत्म-टिप्पणी था।

— 19st में jdstankosky

@jdstankosky एक रोल करने के लिए शायद एक अति-प्रतिक्रिया का एक सा है q, लेकिन वह समझदार काम करता है और रेरोल करता है।

— प्रिमो

Answer 9

पायथन 3.x: 74 वर्ण

import time
A,f="psr",time.gmtime()[5]%3
print(A[(A.find(input())+f)%3],f)

यह काम किस प्रकार करता है

Before Machine Proceeds it determines the outcome of the game and based 
on the outcome, it determines the choice which would result in the outcome
viz Human's choice


\     Outcome
 \    0  1  2
  \_____________
H  | 
U 0|  0  1  2
M 1|  1  2  0
A 2|  2  0  1
N  |

Where Choices are represented as 
0 --> Paper
1 --> Scissor
2 --> Rock

Outcome (From Computer's Perspective)
0 --> Draw
1 --> Win
2 --> Fail

Given the sequence of choices as a string
"psr"
So its easy to see, if computer needs to win, it needs to choose the character
next to what human chooses. 
If computer needs to loose, it needs to choose the previous character to what
human chooses


MACHINE's|      CHOICES    |  Formulation
FATE     |-----------------|  For Machine's
         |  P     S      R |  Choice
---------|-----------------|-----------------------------
WIN(1)   |        H ---> M | (CHOICE+1) % 3 = (CHOICE+WIN)%3 
---------|-----------------|-----------------------------
LOSS(2)  |  M     H -----\ | (CHOICE+2)%3   = (CHOICE+LOSS)%3 
         |  ^            | |
         |  |____________| |
---------|-----------------|------------------------------       
DRAW(0)  |        H        | (CHOICE+0)%3   = (CHOICE+DRAW)%3
         |        M        |  
---------|-----------------|         

Combining all the above we have

MACHINE's CHOICE = (HUMAN CHOICE + MACHINE's FATE) % 3

भाग्य के आधार पर, यह निर्धारित करता है कि सूत्र के आधार पर इसकी पसंद क्या होनी चाहिए

result = (User_choice + machines_fate) % no_of_choices

machine_choice = "psr"[result]

अन-गोल्फ संस्करण

import time
choices = "psr"
#time.gmtime() returns the time structure in gmt
#time.gmtime()[5] is the current second tick
fate = time.gmtime()[5]%3
user_choice = input()
result = (choices.find(user_choice)+fate)%len(choices)
machine_choice = choices[result]
print(machine_choice, fate)

नमूना चला

D:\temp\rivalry>rps.py
r
r 0

D:\temp\rivalry>rps.py
r
p 1

D:\temp\rivalry>rps.py
p
r 2

D:\temp\rivalry>rps.py
p
r 2

D:\temp\rivalry>rps.py
p
s 1

D:\temp\rivalry>rps.py
p
s 1

D:\temp\rivalry>rps.py
p
p 0

Comments

दिलचस्प है, परिणाम का पहले से निर्णय लेना, फिर उस परिणाम को प्राप्त करने के लिए जो भी संकेत है उसे फेंकना ...

— अकोलीटे

मुझे यकीन नहीं है कि सेकंड "प्रोग्राम पसंद ('आर', 'पी' या 'एस') के तहत उत्तीर्ण होता है । छद्म यादृच्छिक होना है" । मिलिसेकंड शायद, हालांकि होगा।

— प्रिमो

Answer 10

87, लुआ

c,n=os.time()%3+1,'rps'print(n:sub(c,c),({'Draw','Win','Defeat'})[(n:find(...)-c)%3+1])

उपयोग:

$ lua rps.lua p
s   Defeat

Ungolfed:

names = 'rps'
comp_idx = os.time()%3 + 1                -- 1, 2 or 3 (depends on timer)
comp_move = names:sub(comp_idx, comp_idx) -- 'r', 'p' or 's'
user_move = ...                           -- input parameter: 'r', 'p' or 's'
user_idx = names:find(user_move)          -- 1, 2 or 3
delta_idx = (user_idx - comp_idx) % 3     -- 0, 1 or 2
all_results = {'Draw', 'Win', 'Defeat'}   -- [1]=='Draw', [2]=='Win', [3]=='Defeat'
game_result = all_results[delta_idx + 1]
print(comp_move, game_result)

Comments

आप 'ड्रा' के बजाय 'हार' और 'टाई' के बजाय 'लूज़' का उपयोग करके 3 वर्णों को बचा सकते हैं। ;)

— जमे हुए मटर के रोडी

Answer 11

गोल्फस्क्रिप्ट 62

एक वैकल्पिक गोल्फस्क्रिप्ट समाधान, हावर्ड के :) की तुलना में बहुत अधिक उबाऊ है ।

कार्यक्रम यादृच्छिक रूप से एक चाल चुनता है और उपयोगकर्ता के दृष्टिकोण से परिणाम प्रदर्शित करता है।

कोड

'rssppr'.[6rand=]''+:§@+..&,({?)§\'Lose''Win'if}{;;§'Draw'}if`

नमूना चला

> गूंज s | रूबी गोल्‍सस्क्रिप्ट.आरबी आरपीएस.जीएस

r "हार"

ऑनलाइन टेस्ट

आप प्रोग्राम को चला सकते हैं और यहां विभिन्न इनपुट्स के साथ प्रयोग कर सकते हैं: http://golfscript.apphb.com/?c=OydzJwoKJ3Jzc3BwcicuWzZyYW5kPV0nJyswwqdAKy4uJiwoweppqdcJ0xvc2Unj1p5bbp5bbp5bbp5pbb2bbp5bb=

ध्यान दें, हालांकि, आमतौर पर कमांड लाइन में पारित होने वाला पैरामीटर (उपयोगकर्ता चाल) अब कोड में ही स्टैक में जोड़ा जाता है (इस ऑनलाइन टूल में "वास्तविक" कमांड लाइन पैरामीटर प्रदान करने का कोई तरीका नहीं है)।

"अनगुल्ड" संस्करण

मुझे यह पता नहीं है कि गोल्फस्क्रिप्ट की बात आने पर इसका क्या मतलब होता है, इसलिए मैंने टिप्पणियों को जोड़ने की कोशिश की। उम्मीद है कि यह स्पष्ट करेगा कि कोड कैसे काम करता है और इसे थोड़ा अधिक पठनीय बनाता है:

# initially, the input (user's move) is on the stack

'rssppr'                # push the string 'rsspr' on the stack...
.                       # ...twice.

[
    6rand               # get a pseudo-random integer in the [0-5] range
    =                   # use the random index to get 
                        # a letter from the string above

]''+                    # workaroud to get the actual letter instead of the
                        # ASCII code

:§                      # assign the randomly chosen letter (computer's move)
                        # to a nice variable called "§"

@                       # rotates last 3 elements on the stack, bringing
                        # the user input in the uppermost position
                        # So, now we have: "rssppr" <computer_move> <user_move>
                        # on the stack

+                       # concatenate the two moves, so now we have a string
                        # that contains both (ex: "rs")

..                      # copy the move string twice
&                       # do a setwise AND to get the DISTINCT elements
,(                      # get the length of the resulting string and subtract 1
                        # (now we have 0 if the letters were equal and non-zero otherwise)

{                       # beginning of block to execute when the moves are different:

                        # now we have on the stack two strings:
                        #     - the string 'rssppr'
                        #     - the string containing the moves (ex: 'rs')

    ?                   # find the second string inside the first one,
                        # and get the index at which it occurs
                        # (or -1 if it does not)

    )                   # increment that number (we now get 0 if no occurrence, 1 otherwise)

    §                   # recall the § variable (so we display the computermove)
    \                   # rotate the uppermost two stack entries

    'Lose''Win'if       # if the move pair is found in the 'rssppr' string, 
                        # then print 'Lose', otherwise print 'Win'
}

{                       # beginning of block to execute when the moves are identical:

    ;;                  # discard the latest two stack items (not needed in this case)
    §                   # display computer's move
    'Draw'              # display the text 'Draw'
}
if                      # if computer's and user's moves were NOT equal, 
                        # execute the first block.
                        # if they were, execute the second block

`                       # put the last word in quotes to separate it from computer's move

Answer 12

सी, 92 86 चर

main(y){
    srand(time(0));
    y="rps"[rand()%3];
    printf("%c%c\n",y,"LWWTLLW"[getchar()-y+3]);
}

कंप्यूटर की पसंद को प्रिंट करता है, और उपयोगकर्ता के दृष्टिकोण से परिणाम - डब्ल्यू = आप जीतते हैं, एल = आप हार जाते हैं, टी = टाई। विकल्पों का एएससीआईआई मान दिया गया
सरल सूत्र x-y, ड्रॉ (स्पष्ट रूप से) पर 0 और एक दूसरे के मामले में एक अद्वितीय मूल्य देता है।

Answer 13

पायथन 2 ( 86 84 80 78), पायथन 3 - 76 वर्ण

0 - टाई, 1 - हार, 2 - जीत

from random import*
a=raw_input()
b=choice('psr')
print(a!=b)+(b+a in'rpsr'),b

from random import*
a=input()
b=choice('psr')
print((a!=b)+(b+a in'rpsr'),b)

Ungolfed

from random import*
moves = 'psr'
inp   = raw_input()
comp  = choice(moves)
match = comp+inp
is_not_tie = inp!=comp
wins = 'r' + moves         #rpsr; rock beats scissors, scissors beats paper, paper beats rock
print is_not_tie + (match in wins), comp

कैसे चलाएं: python file_name_here.py

समस्याएं:
कंप्यूटर एआई: 35 वर्ण

Comments

अच्छा! मुझे नहीं लगता कि आपको इसकी आवश्यकता Aहै, और आप इसके साथ एक और चर बचा सकते हैं from random import*।

— grc

@grc: धन्यवाद, मैंने कोशिश नहीं की from random, क्योंकि मुझे लगा कि यह इसे नहीं बदलता ...

— beary605

आप आगे के 2 वर्णों को बदलकर (a = b) * 2 से (a! = B) कर सकते हैं और परिणाम बदलकर "0-टाई, 1-जीत, 2-हार" कर सकते हैं

— धरा

क्षमा करें, "0-टाई, 1-हार, 2-जीत" का मतलब है

— धरा

@धारा: धन्यवाद, यह पता नहीं चला है। मानव रचना: ओह! मैं ठीक कर दूँगा।

— beary605

Answer 14

पहले दूसरों की समीक्षा किए बिना प्रयास करें।

गोल्फ: 107 85 बाइट्स

i=prompt(),c="rps"[new Date%3],w={r:"s",p:"r",s:"p"};alert(c+(i==w[c]?2:w[i]==c?1:3))

उत्पादन [एनपीसी-पसंद] [1: जीत, 2: नुकसान, 3: टाई]

ungolfed:

var input = prompt(),
    choices = ["r","p","s"],
    computer_choice = choices[Math.floor(Math.random() * 3)],
    outcomes = {'r':'s','p':'r','s':'p'},
    winner;

    if( input == outcomes[computer_choice] ) {
        winner = 'NPC';
    } else if ( computer_choice == outcomes[input] ) {
        winner = 'You';
    } else {
        winner = 'No one, it was a Tie!';
    }

    alert('Computer chose: ' + computer_choice + '\n' +
          'The winner is: ' + winner);

Answer 15

पॉवरशेल: 144 133 117 111 92 73

मूल से परिवर्तन:

• डैंको डर्बिक के तीन-खिलाड़ी सम या विषम हल को देखने के बाद पूरी तरह से लिखी गई स्क्रिप्ट ।
• एक चरित्र सरणी के बजाय $ s को एक स्ट्रिंग में बदला गया।
• .NET क्लास और मेथड को स्पेलिंग के बजाय $ s पर एक प्रत्यक्ष विधि के रूप में IndexOf का उपयोग किया।
• हटाए गए निरर्थक %3एस।

सभी ने बताया, लगभग मेरे मूल उत्तर से लंबाई में कटौती की गई!

गोल्फ कोड:

$p=($s='rps').IndexOf((read-host));$s[($c=Random 3)];"TWLLTWWLT"[$p+$c*3]

कंसोल से सीधा चलाया जा सकता है।

टिप्पणियों के साथ असंगठित:

# Variable $p will store the player's selection as a ternary digit by finding its position in a string containing the possible choices.
$p=(
    # Possible choices will be stored in a variable, $s, for later reuse.
    $s='rps'
# Get the position of the player's choice from $s.
).IndexOf((read-host));

# Express the computer's choice by outputting the appropriate character from $s.
$s[(
    # Computer's choice will be stored as a ternary digit in $c.
    $c=Random 3
)];

# Outcome for the player will be chosen from a string of possible outcomes by looking up the decimal repesentation of a two-digit ternary number.
# The threes digit is represented by $c, ones digit by $p.
"TWLLTWWLT"[$p+$c*3]

# Variable cleanup - do not include in golfed code.
rv p,s,c

कुछ नमूना कंसोल पर चलता है:

Answer 16

जावा 259 :(

class c {public static void main(String[]a){char y=a[0].charAt(0);char m="rps".charAt(new java.util.Random().nextInt(3));if(y==m)a[0]="T";else if((y=='r'&& m=='s')||(y=='s'&& m=='p')||(y=='p'&& m=='r'))a[0]="1";else a[0]="0";System.out.println(m+":"+a[0]);}}

अत्यधिक असंयमित कोड:

class c {
    public static void main(String[] a) {
        char y = a[0].charAt(0);
        char m = "rps".charAt(new java.util.Random().nextInt(3));
        if (y == m) {
            a[0] = "T";
        } else if ((y == 'r' && m == 's') || (y == 's' && m == 'p') || (y == 'p' && m == 'r')) {
            a[0] = "1";
        } else {
            a[0] = "0";
        }
        System.out.println(m + ":" + a[0]);
    }
}

नमूना चलता है:

C:> जावा cr

है: 1

C:> जावा सी.पी.

पी: टी

C:> जावा सीएस

रों: टी

Answer 17

Befunge: 107 अक्षर

~v@,"w"<   <   <  <
v?v3.14159265@,"l"<
"""358979323846>3-|
rps26433832>:1+|
"""7950>:2+|
>>>:,-:|
28@,"t"<

थोडा सांवला। यह संकोचन योग्य है, प्रश्न यह है कि कितना है।

Answer 18

जावास्क्रिप्ट (87)

golfed:

o='LDW'[2*((a=prompt())+(b='prs'[new Date%3])!='ps'&a<b|a+b=='sp')+ +(a==b)];alert(b+o)

Ungolfed:

var player = prompt(), 
    computer = 'prs'[new Date%3], // Date mod 3 "pseudo-random"
    outcome = 'LDW'[2*(player+computer != 'ps' 
                    & player < computer 
                    | player + computer == 'sp') // convert boolean W/L outcome to int (0,2)
              +
              +(player == computer)]; // convert D outcome to int (0,1)
alert(computer + outcome);

आप इसे चलाने के लिए बस अपने ब्राउज़र के जावास्क्रिप्ट कंसोल में कोड पेस्ट कर सकते हैं।

अगर मुझे कंप्यूटर का चयन (83) प्रिंट करने से पहले परिणाम को प्रिंट करने की अनुमति है :

alert('LDW'[2*((a=prompt())+(b='prs'[new Date%3])!='ps'&a<b|a+b=='sp')+ +(a==b)]+b)

Answer 19

के, ६

{-1'f:x,*1?"rps";$[f in b:("pr";"rs";"sp");"W";f in|:'b;"L";"D"]}

जीत, हार / ड्रा के लिए प्रिंट डब्ल्यू, एल, डी।

Ungolfed:

rps:{[x]
    res:x,*1?"rps";        // join user input to random selection of r,p,s
    -1'f;                  // print the user input and the program selection to stdout
    wins:("pr";"rs";"sp"); // the universe of winning combinations
    losses:|:'wins;        // reverse each win to the get losses

    $[f in wins;    
        "win";
    f in losses;
        "lose";
    "draw"]
    }

या क्यू में, जो अधिक पठनीय है:

rps:{[x]
    res:x,rand["rps"];        // join user input to random selection of r,p,s
    -1 each f;                // print the user input and the program selection to stdout
    wins:("pr";"rs";"sp");    // the universe of winning combinations
    losses:reverse each wins; // reverse each win to the get losses

    $[f in wins;    
        "win";
    f in losses;
        "lose";
    "draw"]
    }

नमूना रन:

k){-1'f:x,*1?"rps";$[f in b:("pr";"rs";"sp");"W";f in|:'b;"L";"D"]}"r"
r
s
"W"
k){-1'f:x,*1?"rps";$[f in b:("pr";"rs";"sp");"W";f in|:'b;"L";"D"]}"s"
s
s
"D"
k){-1'f:x,*1?"rps";$[f in b:("pr";"rs";"sp");"W";f in|:'b;"L";"D"]}"p"
p
s
"L"

Answer 20

जावास्क्रिप्ट, 117 वर्ण

यहां समस्या के लिए डेटा-संचालित दृष्टिकोण है। यह संभवतः मैन्युअल रूप से मैप करने के बजाय जीत / हार / ड्रा डेटा उत्पन्न करके अनुकूलित किया जा सकता है, लेकिन यह एक शुरुआत है :)

golfed:

alert((r=[{v:"r",r:d="D",p:w="W",s:l="L"},{v:"p",r:l,p:d,s:w},{v:"s",r:w,p:l,s:d}][Math.random()*3|0]).v+r[prompt()])

Ungolfed:

//Output the result to the user
alert(
    (
        //Store the random computer outcome data
        randomRPSData =
            //Create the data for if the computer chooses r, p, or s
            [
                {
                    value: "r",
                    r: (d = "Draw"),
                    p: (w = "Win"),
                    s: (l = "Lose")},
                {
                    value: "p",
                    r: l,
                    p: d,
                    s: w},
                {
                    value: "s",
                    r: w,
                    p: l,
                    s: d}
            ]
            //Have the computer pick a random variable
            [Math.random() * 3 | 0]

    //Output the value the computer chose
    ).value

    //Output whether the user won or not
    + r[prompt()]
);

अंत में, यहाँ दोनों के साथ एक बेला है ।

Answer 21

जावास्क्रिप्ट: 256

golfed:

i=prompt(),a=['p','r','s'];a=a[Math.floor(Math.random()*(3-1+1))+1];if(i==a){alert('d');}else if(i=='p'){if(a=='s'){alert('l');}else{alert('w');}}else if(i=='r'){if(a=='s'){alert('w');}else{alert('l');}}else if(i=='s'){if(a=='r'){alert('l');}else{alert('w')}}

ungolfed:

i=prompt(),a=['p','r','s'];
a=a[Math.floor(Math.random()*(3-1+1))+1];
if(i==a){
    alert('d');
}
else if(i=='p'){
    if(a=='s'){
        alert('l');
    }else{alert('w');}
}else if(i=='r'){
    if(a=='s'){
        alert('w');
    }else{alert('l');}
}else if(i=='s'){
    if(a=='r'){
        alert('l');
    }else{alert('w')}
} 

Answer 22

Clojure:

(def r 0) (def s 1) (def p 2)
(def object-name #(get {'p "Paper", 's "Scissors", 'r "Rock"} %))
(def result-name #(get {\d "Draw", \w "Win", \l "Lose"} %))
(defn computer-choice [] (nth ['r 's 'p] (int (rand 3))))
(defn game [a b] (get "dwlldwwld" (+ (* 3 a) b) ))
(defn print-game [user comp result] (print (format
  "User: %s\nComputer: %s\nResult: %s\n" 
  (object-name user) (object-name comp) (result-name result))))
(println "Enter 'p', 's' or 'r' and press return")
(let [comp (computer-choice),  user (read)]  (print-game user comp (game (eval user) (eval comp))))

लघु संस्करण (129 कोड वर्ण):

java -jar clojure.jar -e \
"(def r 0)(def s 1)(def p 2)(let[u(read),c(nth['r 's 'p](int(rand 3)))](print c)(print (get \"dwlldwwld\"(+(* 3(eval u))(eval c)))))"

Answer 23

JAVA (387) पहला कोड गोल्फ!

import java.util.HashMap;public class _ {public static void main(String i[]){HashMap l = new HashMap(){{put('r',0);put('p',1);put('s',2);put(0,'T');put(1,'L');put(2,'W');}};char u =i[0].charAt(0);char c ="rps".charAt((int)(Math.random()*3)%3);int[][] m =new int[][]{{0,1,2},{2,0,1},{1,2,0}};System.out.println("U"+u+"C"+c+"R"+(Character)l.get(m[(Integer)l.get(u)][(Integer)l.get(c)]));}}

---

Ungolfed

import java.util.HashMap;
public class _ {
    public static void main(String[] input) {
       input = new String[] {"s"};
       HashMap lookup = new HashMap(){{
           put('r', 0);
           put('p', 1);
           put('s', 2);
           put(0, 'T');
           put(1, 'L');
           put(2, 'W');
       }};
       char user = input[0].charAt(0);
       char computer = new char[] {'r', 'p', 's'}[(int)(Math.random()*3)%3];
       int[][] matrix = new int[][] {{0,1,2}, {2,0,1}, {1,2,0}};

       Integer userChoice = (Integer) lookup.get(user);
       Integer computerChoice = (Integer) lookup.get(computer);
       Character result = (Character) lookup.get(matrix[userChoice][computerChoice]);

       System.out.println("u:" + user + ",c:" + computer + ",r:" + result);
    }
    /*
     t = 0, l = 1, w = 2
     *
        +---------------+
        | * | r | p | s |
        +---------------+
        | r | 0 | 1 | 2 |
        +---------------+
        | p | 2 | 0 | 1 |
        +---------------+
        | s | 1 | 2 | 0 |
        +---------------+
     */
}

---

गोल्फ (स्पेसिंग / इंडेंटेशन)

import java.util.HashMap;
public class _ {
public static void main(String i[]) {
    HashMap l = new HashMap(){{
        put('r',0);put('p',1);put('s',2);put(0,'T');put(1,'L');put(2,'W');
    }};

    char u =i[0].charAt(0);char c = "rps".charAt((int)(Math.random()*3)%3);
    int[][] m =new int[][]{{0,1,2},{2,0,1},{1,2,0}};

    System.out.println("U"+u+"C"+c+"R:"+(Character)l.get(m[(Integer)l.get(u)][(Integer)l.get(c)]));
}}

---

_{सबसे छोटा कोड नहीं, लेकिन मेरी पहली कोशिश}

Comments

आपके द्वारा लागू किए जाने वाले कुछ सुधार: 1) import java.util.*2) HashMap l-> Map l3) 4 के (int)बजाय कास्ट (Integer)) new Random().nextInt(3)5) omit new int[][]6) कास्ट को (Character)7 से हटाएं ) चार्ट के बजाय इनट्स का उपयोग करें।

— हावर्ड

Answer 24

गो (169)

गोल्फ:

package main
import("fmt";"os")
func main(){v:=map[uint8]int{114:0,112:1,115:2}
u:=os.Args[1][0]
c:="rps"[os.Getpid()%3]
fmt.Printf("%c\n%c\n",c,"TWL"[(3+v[c]-v[u])%3])}

अघोषित (जैसे स्वरूपित go fmt):

package main

import (
    "fmt"
    "os"
)

func main() {
    v := map[uint8]int{114: 0, 112: 1, 115: 2}
    u := os.Args[1][0]
    c := "rps"[os.Getpid()%3]
    fmt.Printf("%c\n%c\n", c, "TWL"[(3+v[c]-v[u])%3])
}

रन:

go run main.go p

रों

डब्ल्यू

Answer 25

अजगर , २३

J"rps"K+wOJK%-XJ'KXJtK3

आउटपुट फॉर्म में है:

टाई: 0 जीत: 1 नुकसान: 2

स्पष्टीकरण:

J"rps"             J="rps"
K+wOJ              K=input()+random_choice(J)
K                  print K
  XJ'K             index of K[0] in J
      XJtK         index of K[1] in J
 -XJ'KXJtK         difference of above indexes
%-XJ'KXJtK3        above difference mod 3

निम्नानुसार चलाएं:

$ cat rps
J"rps"K+wOJK%-XJ'KXJtK3
s
$ cat rps | python3 pyth.py
< Extraneous debug output removed>
sp
1

---

केवल 4 और पात्रों के लिए, हम टाई के लिए T, W जीत के लिए और L नुकसान के लिए उपयोग कर सकते हैं:

J"rps"K+wOJKr@"TWL"-XJ'KXJtK

इंडेक्स के अंतर तक सब कुछ समान है, जिस बिंदु पर हम स्ट्रिंग में इंडेक्स के रूप में अंतर का उपयोग करते हैं "TWL"।

---

नोट: जबकि मैंने इस भाषा को चुनौती पोस्ट किए जाने के बाद विकसित किया था, मैंने आज तक चुनौती नहीं देखी थी। चुनौती ने भाषा के किसी भी पहलू को प्रभावित नहीं किया।

Answer 26

ग्रूवी, 89

v='rps'
r=new Random().nextInt(3)
print"${v[r]}${'TLW'[((r-v.indexOf(this.args[0]))%3)]}"

तर्क के रूप में उपयोगकर्ता की पसंद लेता है। उदाहरण:

groovy rps.groovy p
sL

Answer 27

सी # और LinqPad 133

golfed:

char i,c,r;i=Console.ReadLine()[0];var a="prsp";c="prs"[new Random().Next(3)];r=i==c?'T':a.Contains(""+i+c)?'W':'L';(c+">"+r).Dump();

ungolfed:

        char i, c, r; // i for input / c for choosen by computer / r for result
        i = Console.ReadLine()[0]; //getting input in LinqPad
        var a = "prsp"; 
        c = "prs"[new Random().Next(3)]; // Computer choose a random string
        r = i == c ? 'T' : a.Contains("" + i + c) ? 'W' : 'L'; (c + ">" + r).Dump(); //check for win - dump for output in LinqPad

नमूना आउटपुट (इनपुट s था): r> L // कंप्यूटर चुनता है रॉक (r) -> तो हम हार गए

Answer 28

जावास्क्रिप्ट (79)

एक पुराने को टक्कर दे रहा है, लेकिन यहाँ हम जाते हैं ...

जोड़ा बोनस के साथ कि आप किसी भी चट्टान का उपयोग कर सकते हैं जैसे कि पेग्नैनाइट, पाइरोक्सेनाइट, स्कोरिया, सोविएट, किम्बर्लाइट, ट्रॉन्डेमाइट, टफ या कोई अन्य। केवल सीमा यह है कि आप का उपयोग नहीं कर सकता है pया s ;-)

---

इनपुट:

r = rock      (Or , ...)
p = paper
s = scissors

आउटपुट:

[computers choice][0=Loss, 1=Win, 2=Draw]

उदाहरण:

User  Computer  Result
r     r         r2
r     p         p0
r     s         s1

---

गोल्फ कोड:

u=~~{p:1,s:2}[prompt()],c=new Date%3;alert('rps'[c]+(u==c?2:!u&c>1|u&!c|u>1&c))

उपयोग की जाने वाली मुख्य चालें हैं:

1. u = ~~{}[prompt()]

       ऑब्जेक्ट का उपयोग करना {}और उपयोगकर्ता इनपुट से मूल्य प्राप्त करना prompt()। अब तक सब ठीक है। तब होने के बजाय r : 0हम इसे नहीं ऑपरेटर के 0उपयोग से परिवर्तित करने के लिए बाध्य कर सकते हैं ~~। इसका उपयोग अक्सर फर्श संख्याओं के लिए किया जाता है, लेकिन अन्य ऑपरेटरों के उदाहरण के लिए, वापस न आने का भी (लाभ) है ।NaN+{a:1, b:2}['c']

2. c = new Date%3

       तिथि को अक्सर उदाहरण के साथ +new Dateछल किया जाता है, इसे सीधे टाइमस्टैम्प में बदलने के लिए, अन्यथा किसी को स्ट्रिंग प्रतिनिधित्व मिलेगा। यहाँ mod एक का उपयोग करके समान प्रभाव को प्राप्त करते हैं।

3. 'rps'[c]

       कंप्यूटर का विकल्प देते हुए स्ट्रिंग पर अनुक्रमित पहुंच 0 = r, 1 = pया 2 = s।

4. (u==c ? 2 : !u&c>1 | u&!c | u>1&c )

   IF  u == c
       Draw                    (aka 2)
   ELSE IF !u&c>1|u&!c|u>1&c 
       Win                     (aka 1)
   ELSE
       Loss                    (aka 0)
   ENDIF


...

---

अनलॉक्ड कोड कुछ इस तरह हो सकता है:

function rock_paper_scissors() {
    var choices = {
            r : 0,
            p : 1,
            s : 2,
        },
        tr_table = ['Rock','Paper','Scissors'],
        user, pc, result
    ;

    function get_input() {
        var input = prompt("Enter your choice `r', `p' or `s':")
                    .toLowerCase();

        if (!/^[rps]/.test(input)) {
            console.warn("Bad input. Please choose `r', `p' or `s'.");
            // return get_input();
            return null;
        }
        return input[0];
    }
    function report(c1, c2) {
        if (c1 === pc) {
            return 'Draw';
        } else if (
            (c1 === 0 && c2  >  1) ||
            (c2 === 0 && c1 === 1) ||
            (c1  >  1 && c2  >  0)
        ) {
            return 'Win';
        } else {
            return 'Loss';
        }
    }

    if ((user = get_input())) {
        user = choices[user];
        pc = Math.floor(Math.random() * 3);
        result  = 
            'Computers choice: ' + tr_table[pc] + ', ' +
            'Your choice: ' + tr_table[user] + ', ' +
            'Result=' +  report(user, pc);
        console.log(result);
    }
    return result;
}

rock_paper_scissors();

Answer 29

गोल्फस्क्रिप्ट - 29

यह इस बार एक वास्तविक उत्तर है (आपकी ओर देखते हुए n"Draw": पी)।

'rps'.@\?3rand.@- 3%@@[=]''+\

Ungolfed:

'rps'3rand[=]''+.2$={\;'
T'}{.@'rspr'.@?@@(;\?='
L''
W'if=}if

आप इसके साथ चला सकते हैं ruby golfscript.rb MyCode.txt, जहां MyCode.txtप्रोग्राम कोड है।

नमूना चलता है (सभी इनपुट "आर" के साथ, लेकिन यह सब कुछ के साथ काम करता है) (टाई 0 है, जीत 2 है, नुकसान 1 है)

ruby golfscript.rb MyCode.txt
r0
ruby golfscript.rb MyCode.txt
p2
ruby golfscript.rb MyCode.txt
s1

यदि आप या तो संस्करण की व्याख्या चाहते हैं और / या एक संभावित सुधार देखते हैं, तो मुझे बताएं।

Answer 30

जावास्क्रिप्ट, 65 71 70

कंप्यूटर के बिना choise output: 65

alert('-+0+0+0'['rppssrr'.indexOf('rps'[new Date%3]+prompt())+1])

बस उस समाधान का परीक्षण करने के लिए सही है:

for(x in {r:0,p:0,s:0})
  for(y in {r:0,p:0,s:0})
    console.log("%s %s %s", x, y, '-+0+0+0'['rppssrr'.indexOf(x+y)+1])

कंप्यूटर choise आउटपुट के साथ: 71

alert((c='rps'[new Date%3])+'-+0+0+0'['rppssrr'.indexOf(c+prompt())+1])

70

alert((g='rps'[new Date%3]+prompt())+-('srps'.match(g)?-1:g[0]!=g[1]))

और परीक्षण:

for(x in {r:0,p:0,s:0})
  for(y in {r:0,p:0,s:0})
    console.log((g=x+y)+-('srps'.match(g)?-1:g[0]!=g[1]))