421 फ्रांस और कुछ अन्य यूरोपीय देशों में एक लोकप्रिय पासा खेल है। यह ज्यादातर बार और पब में खेला जाता है ताकि यह निर्धारित किया जा सके कि पेय के अगले दौर को कौन खरीदने जा रहा है। पूर्ण खेल आमतौर पर दो राउंड में खेला जाता है, जिसमें टोकन प्रत्येक खिलाड़ी से छुटकारा पाने की कोशिश करता है, लेकिन यह यहां अप्रासंगिक है। ( फ्रेंच में विकिपीडिया पृष्ठ )

खेल 3 मानक घन पासा के साथ खेला जाता है।

कार्य

आपका कार्य इस खेल के स्कोरिंग नियमों को लागू करके, अलग-अलग 3-पासा रोल [एक्स, वाई, जेड] की गैर-खाली सूची को क्रमबद्ध करना है ।

बुनियादी स्कोरिंग

4,2,1 उच्चतम संभव संयोजन है। नियमों के आधार पर, इसमें 8, 10 या 11 अंक हो सकते हैं। क्योंकि हम अंकों को गिनने के बजाय रोल को छांट रहे हैं, सटीक मान मायने नहीं रखता।
तीन इक्के: 1,1,1 दूसरा उच्चतम संयोजन और 7 अंक हैं।
दो-इक्के: एक्स, 1,1 (जहां एक्स 2 से 6 है) स्कोर एक्स अंक।
तीन में से एक: एक्स, एक्स, एक्स (जहां एक्स 2 से 6 है) स्कोर एक्स अंक।
स्ट्रेट्स: एक्स, एक्स + 1, एक्स + 2 स्कोर 2 अंक।
अन्य सभी रोल स्कोर 1 अंक हैं।

संबंध स्थापित करना

जब भी दो रोल समान अंक देते हैं, निम्नलिखित नियम लागू होते हैं:

थ्री-ए-काइंड की तुलना में टू-ऐस बेहतर है। उदाहरण: 5,1,1 बीट 5,5,5 ।
थ्री-ऑफ-ए-काइंड 2,2,2 एक स्ट्रेट से बेहतर है। उदाहरण: 2,2,2 4,5,6 धड़कता है ।
स्ट्रेट्स सबसे कम से उच्चतम तक के लिए ऑर्डर किए जाते हैं। उदाहरण: 4,5,6 बीट 2,3,4 ।
अन्य सभी रोल उच्चतम से निम्नतम तक पासा को छाँटकर तय किए जाते हैं। उदाहरण: 6,5,2 धड़क रहा है 6,4,3 । (इसलिए, खेल में सबसे कम संभव संयोजन 2,2,1 है ।)

नीचे दिए गए 56 संभावित अलग-अलग रोल उच्चतम से निम्नतम क्रम में हैं:

421 111 611 666 511 555 411 444 311 333 211 222 654 543 432 321
665 664 663 662 661 655 653 652 651 644 643 642 641 633 632 631
622 621 554 553 552 551 544 542 541 533 532 531 522 521 443 442
441 433 431 422 332 331 322 221

चुनौती के नियम

आप किसी भी उचित प्रारूप में रोल ले सकते हैं, जैसे कि सूची की सूची [[3,2,1],[4,2,1]], तार की ["321","421"]एक सूची, पूर्णांक की एक सूची [321,421], आदि। हालांकि, प्रत्येक मृत्यु को 1 से 6 के मूल्य के साथ स्पष्ट रूप से पहचाना जाना चाहिए ।
प्रत्येक रोल के लिए, आप यह मान सकते हैं कि पासा या तो उच्चतम से उच्चतम या उच्चतम से निम्नतम क्रमबद्ध है, जब तक यह सुसंगत है। कृपया अपने उत्तर में बताएं कि आपको कौन सा ऑर्डर चाहिए, यदि कोई हो।
बाइट्स जीत में सबसे छोटा जवाब!

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

सबसे कम से छांटे गए पासा के साथ तारों की सूची का उपयोग करना:

इनपुट

[ "321", "654" ]
[ "222", "321", "211" ]
[ "333", "311", "331", "111" ]
[ "111", "222", "333", "444" ]
[ "321", "421", "521", "621" ]
[ "422", "221", "442", "421", "222" ]
[ "222", "111", "421", "211", "651", "652", "543" ]

अपेक्षित आउटपुट

[ "654", "321" ]
[ "211", "222", "321" ]
[ "111", "311", "333", "331" ]
[ "111", "444", "333", "222" ]
[ "421", "321", "621", "521" ]
[ "421", "222", "442", "422", "221" ]
[ "421", "111", "211", "222", "543", "652", "651" ]

code-golf game sorting

— Arnauld
स्रोत

क्या सॉर्ट स्थिर होना चाहिए?

— आउटगॉल्फ जूल 28'18 को एरिक

@EriktheOutgolfer सभी रोल अलग-अलग हैं और दो रोल्स को हमेशा टाईल्स नियमों के अनुसार क्रमबद्ध किया जा सकता है।

— अरनुलद

क्या प्रत्येक मृत्यु को 1-6 के बजाय 0-5 के रूप में लेना ठीक होगा (जैसे 012इसके बजाय 123)?

— wastl

@wastl मैं ना कहने वाला हूं। प्रारूप लचीला है लेकिन पासा मान [1 ... 6] में होना चाहिए।

— अरनुलद

आप पासा पब में ले जाते हैं?

— बीटा डेके

6

पायथन , 93 बाइट्स

lambda a:sorted(a,key=lambda x:(x!=421,x>111,-(x%100<12)*x-(x%111<1)*x*.9,(x%111==99)*-x,-x))

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

— लिन
स्रोत

यह पायथन 2 के लिए क्या विशिष्ट बनाता है?

— सोलोमन उको जू

@SolomonUcko कुछ भी नहीं है , लेकिन मुझे लगता है कि यह पायथन 2 के रूप में चिह्नित है क्योंकि यह TIO से कोड गोल्फ सबमिशन टेम्पलेट द्वारा ऑटो-जेनरेट किया गया था ।

— श्री एक्सकोडर

1

आप इस तथ्य का उपयोग करके 2 बाइट्स बचा सकते हैं कि 111 = 37 * 3 (और सभी संभव ट्रिपल के बीच केवल xxx ट्रिपल 37 से विभाज्य हैं) इसे ऑनलाइन आज़माएं!

— १

1

आप sortविधि के साथ जगह में छँटाई करके 2 बाइट्स खो सकते हैं ।

— जैकब

4

रेटिना 0.8.2 , 67 बाइट्स

O$#^`(421|111)|(\d)((11)|\2\2)|(654|543|432|321)|\d{3}
$1$2$#4$#5$&

इसे ऑनलाइन आज़माएं! लिंक में परीक्षण के मामले शामिल हैं। स्पष्टीकरण: संख्यात्मक सॉर्ट कुंजी निम्नानुसार उत्पन्न होती है:

421     42100421
111     11100111
611-211   610611-  210211
666-222   600666-  600222
654-321    01654-   01321
653-221    00653-   00221

— नील
स्रोत

@Arnauld क्षमा करें, मुझे नहीं पता था कि मैं उन मामलों को मिलाऊंगा। सौभाग्य से मुझे लगता है कि मैं इसे उसी बाइट की गिनती के लिए ठीक करने में सक्षम हूं।

— नील

अब यह वास्तव में ठीक लग रही है।

— अरनुलद

4

जेली , 37 34 बाइट्स

;Ø1,ẋ3$)Ẏṙ-;‘r’Ɗ€;œċ3$Ṇ63¦
6RṚÇiµÞ

डाइस रोल (प्रत्येक क्रमबद्ध अवरोही) की सूचियों की एक सूची को स्वीकार करने वाला एक विवादास्पद लिंक जो अवरोही रोल की उपज देता है।

इसे ऑनलाइन आज़माएं! या एक परीक्षण-सूट देखें ... या लेक्सिकोग्राफ़िक रूप से हल किए गए सभी रोल आज़माएं

कैसे?

यह विधि जेली के पहले-इंडेक्स-एटम का उपयोग करके प्रत्येक रोल को रैंक करने के लिए, (सबसे पहले एक अमान्य इनपुट रोल) के [4,2,1]साथ , * से सबसे कम * तक सभी रोल की एक सूची बनाता है ।0i

* सूची में दोहराव और निरर्थक प्रविष्टियां भी शामिल हैं जो अभ्यस्त व्यवहार को प्रभावित करती हैं:

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

;Ø1,ẋ3$)Ẏṙ-;‘r’Ɗ€;œċ3$Ṇ63¦ - Link 1, build rolls: descending pips, P  e.g. [6,5,4,3,2,1]
       )                   - for each:       e.g. X=5
 Ø1                        -   literal [1,1]
;                          -   concatenate        [5,1,1]
      $                    -   last two links as a monad (f(X)):
     3                     -     literal 3
    ẋ                      -     repeat           [5,5,5]
   ,                       -   pair               [[5,1,1],[5,5,5]]
        Ẏ                  - tighten (to a list of rolls rather than pairs of rolls)
          -                - literal -1
         ṙ                 - rotate left by (make rightmost [1,1,1] the leftmost entry)
               Ɗ€          - for €ach: last three links as a monad (f(X)):
            ‘              -   increment  -> X+1
              ’            -   decrement  -> X-1
             r             -   range      -> [X+1,X,X-1]
                           -   ...note: [7,6,5] and [2,1,0] are made but are redundant
           ;               - concatenate
                     $     - last two links as a monad (f(P)):
                    3      -   literal 3
                  œċ       -   combinations with replacement -> [[6,6,6],[6,6,5],...,[6,6,1],[6,5,5],...,[1,1,1]]
                 ;         - concatenate
                         ¦ - sparse application...
                       63  - ...to indices: 63
                      Ṇ    - ...what: NOT   -> replaces the [4,2,1] entry with a 0

6RṚÇiµÞ - Main Link: list of rolls
     µÞ - sort by the monadic link:
6       -   six
 R      -   range -> [1,2,3,4,5,6]
  Ṛ     -   reverse -> [6,5,4,3,2,1]
   Ç    -   call the last link as a monad -> [[1,1,1],[6,1,1],[6,6,6],[5,1,1],...]
    i   -   first index of (e.g.: [1,1,1]->1 or [6,1,1]->2 or [4,2,1]->0)

— जोनाथन एलन
स्रोत

3

आर , 73 बाइट्स

(x=scan())[order(x!=421,x>111,-(x%%100<12)*x-(!x%%37)*x*.9,x%%37!=25,-x)]

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

पूर्ण कार्यक्रम स्टड से पूर्णांक की एक सूची ले रहा है और उन्हें अवरोही क्रम में वापस कर रहा है (यानी 421 ... 221)
आंशिक रूप से @Lynn उत्तर से प्रेरित के रूप में शुरू किया , अब मूल रूप से इसका एक पोर्टिंग है ... इसलिए @Lynn को क्रेडिट;)
सहेजे गए 2 बाइट्स के x % 37बजाय विभाजन शेष रहे111

स्पष्टीकरण:

प्रत्येक संख्या के लिए 5 कुंजियों की गणना की जाती है और सरणी को क्रमबद्ध करने के लिए पदानुक्रम का उपयोग किया जाता है:

key1 = 0 if equal to 421, 1 otherwise
key2 = 0 if equal to 111, 1 otherwise
key3 = 0 
       - 1.0*x if number is x11 numbers (2 aces)
       - 0.9*x if number is xxx numbers (3 of a kind)
key4 = 0 if number is a straight, 1 otherwise
key5 = -x

Then the array is sorted by key1 first, then by key2 in case of tie and so on...

— digEmAll
स्रोत

2

05AB1E , 76 48 45 बाइट्स

421X3∍6LR©vy11«y3∍}®vy>y<ŸJ})D®3ãJsм)˜©IΣ®sk>

यह उम्मीद से बहुत लंबा निकला, लेकिन कम से कम इसे लागू करना आसान है। देखेंगे कि क्या मुझे कोई बेहतर समाधान मिल सकता है .. अभी हाथ से सूची बनाई है, लेकिन अभी भी थोड़ा लंबा है।

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

स्पष्टीकरण:

421             # Push 421 to the stack
X3∍             # ('1' lengthened to size 3) Push 111 to the stack
6LR             # Take the range [6, 1]
   ©            # Save this range in the register so we can re-use it
   v    }       # Loop over this range:
    y11«        #  Merge '11' with the current number `y`, and push it to the stack
    y3∍         #  Lengthen the current number `y` to size 3, and push it to the stack
   ®v      }    # Load the range [6, 1] from the register, and loop over it again:
     y>y<Ÿ      #  Take the range [`y+1`, `y-1`]
          J     #  And join them together to single 3-digit numbers
)               # Push everything that's now on the stack to a single list
 D              # Duplicate this list
  ®             # Load the range [6, 1] from the register again
   3ã           # Take the cartesian repeated three times
     R          # Reverse this list
      J         # Join every inner list to a single 3-digit number
 s              # Swap, so the duplicate list of above is at the top of the stack again
  м             # And remove all those items from the cartesian list
   )            # Combine both lists (as list of lists)
    ˜           # Flatten it
     ©          # Store this full completed list (now equal to the challenge description,
                #  with some additional values we can ignore) in the register
I               # Take the input-list
 Σ              # Sort it by:
  ®             #  The list we generated above
   sk           #  Take the 0-indexed indices
     >          #  And increase it by 1 (because apparently 0 is placed at the back,
                #  so '421' would always be at the end)

यहाँ वास्तविक सूची कोड का पहला भाग उत्पन्न करता है:

['421','111','611','666','511','555','411','444','311','333','211','222','111','111','765','654','543','432','321','210','','665','664','663','662','661','656','655','','653','652','651','646','645','644','643','642','641','636','635','634','633','632','631','626','625','624','623','622','621','616','615','614','613','612','','566','565','564','563','562','561','556','','554','553','552','551','546','545','544','','542','541','536','535','534','533','532','531','526','525','524','523','522','521','516','515','514','513','512','','466','465','464','463','462','461','456','455','454','453','452','451','446','445','','443','442','441','436','435','434','433','','431','426','425','424','423','422','','416','415','414','413','412','','366','365','364','363','362','361','356','355','354','353','352','351','346','345','344','343','342','341','336','335','334','','332','331','326','325','324','323','322','','316','315','314','313','312','','266','265','264','263','262','261','256','255','254','253','252','251','246','245','244','243','242','241','236','235','234','233','232','231','226','225','224','223','','221','216','215','214','213','212','','166','165','164','163','162','161','156','155','154','153','152','151','146','145','144','143','142','141','136','135','134','133','132','131','126','125','124','123','122','121','116','115','114','113','112','']

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

जैसा कि आप देख सकते हैं कि इसमें खाली आइटम शामिल हैं; नंबर की तरह 765या 210; और रेंज में संख्या [216, 112]। लेकिन हम सभी इन पर ध्यान नहीं दे सकते हैं, क्योंकि जिन वस्तुओं को हम वास्तव में क्रमबद्ध करना चाहते हैं, वे सही क्रम में हैं।

मूल 76 बाइट्स समाधान:

Σ•X˜„Éε´õñ€9Ú ù?ä0₅9úd5àPÎøŒccuĆYÑ,o¾eíË¿¼À8@gID=vÆOΣxjF¨O‡J₃^εR™\èv•667вsk>

इसे ऑनलाइन आज़माएं ~~या सभी परीक्षण मामलों को सत्यापित करें~~ (कोई भी परीक्षण सूट नहीं है क्योंकि अभी भी एक बग है सॉर्ट-बाय के साथ संपीड़ित संख्याओं को सॉर्ट करने के लिए क्लोजिंग ब्रैकेट नहीं दिख रहा है )।

स्पष्टीकरण:

Σ             # Sort by:
 •...•667в    #  The correctly sorted list of all possible rolls from the challenge
 sk           #  Take the 0-indexed indices
   >          #  And increase it by 1 (because apparently 0 is placed at the back,
              #  so '421' would always be at the end)

स्पष्टीकरण •X˜„Éε´õñ€9Ú ù?ä0₅9úd5àPÎøŒccuĆYÑ,o¾eíË¿¼À8@gID=vÆOΣxjF¨O‡J₃^εR™\èv•667в:

दोनों के बीच सब कुछ •एक संपीड़ित संख्या है जो निम्नलिखित कार्यक्रम के साथ उत्पन्न होती है:

Z>β 255B

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

Z>: सूची का अधिकतम ले + + ( 667इस मामले में)
β: आधार से सूची को 667एकल संख्या में परिवर्तित करें
255B: और उस एकल संख्या को आधार में परिवर्तित करें 255(05AB1E के कोड पृष्ठ का उपयोग करके), इसलिए हमारे पास हमारी संपीड़ित संख्या है ।

667вइसका उपयोग करके यह संकुचित संख्या को मूल सूची में वापस परिवर्तित करता है।

— केविन क्रूज़सेन
स्रोत

2

जावास्क्रिप्ट (ईएस 7), 96 बाइट्स

d=>d.sort((a,b,g=(n,[x,y,z]=n)=>n**=n-421?y*z-1?x-y|y-z?~y%x|~z%y?1:2:3:x-1?3.1:5:5)=>g(b)-g(a))

स्कोरिंग के नियमों का बारीकी से पालन करके शॉर्ट्स रोल करता है। मूल्य के अवरोही क्रम में व्यक्तिगत रोल के साथ तार की एक सरणी की अपेक्षा करता है, जैसे["654"]

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

व्याख्या

रोल की श्रेणियां निम्नलिखित घातांक तक बढ़ाई गई हैं:

421                 5
Three Aces          5
Two Aces            3.1
Three-of-a-Kind     3
Straights           2
Other               1

Ungolfed

सशर्त जांच को मानसिक रूप से उजागर करने से मुझे सिरदर्द होता है, और मुझे यकीन है कि यह किसी भी तरह आगे बढ़ सकता है ...।

var f =
d => d.sort(
    (
     a, b,
     g = (n, [x, y, z] = n) =>               // destructure rolls, e.g. "321" => ["3","2","1"]
        n **=                                // differentiate scores by raising to the exponent corresponding to its category in the table above
                                             // all conditionals check for a falsy value
            n - 421
                ? y * z - 1                  // ends with "11"
                    ? x - y | y - z          // three-of-a-kind
                        ? ~y % x | ~z % y    // straights, with operators chosen to correctly convert strings to numbers
                            ? 1
                            : 2
                        : 3
                    : x - 1                  // three aces
                        ? 3.1
                        : 5
                : 5
    ) =>
    g(b) - g(a)
)

— फालतूपन
स्रोत

1

जावास्क्रिप्ट, 101 वर्ण, 116 बाइट्स (UTF-8)

a=>(r=d=>(i="ƥoɣʚǿȫƛƼķōÓÞʎȟưŁ".indexOf(String.fromCharCode(d)),i<0?700-d:i),a.sort((a,b)=>r(a)-r(b)))

रोल की तरह संख्याओं की एक सरणी लेता है [ 321, 654 ]।

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

स्पष्टीकरण:

मैं 56 संभव अलग रोल (जो कि वास्तव में किसी भी आदेश का पालन नहीं करते) के पहले 16 में ले लिया और मैं उन्हें एक स्ट्रिंग के रूप में एन्कोड: "ƥoɣʚǿȫƛƼķōÓÞʎȟưŁ"। इस स्ट्रिंग का प्रत्येक वर्ण पहले 16 संभावित रोल ( ƥहै 421, oहै 111, ...) से मेल खाता है । अब प्रत्येक दो तत्वों aऔर bसरणी के लिए हम स्ट्रिंग से उनके इंडेक्स की जांच करते हैं, अगर उन्हें शामिल किया जाता है तो इंडेक्स का उपयोग किया जाता है, अन्यथा (इंडेक्स है -1) हम स्वयं रोल नंबर का उपयोग करते हैं (हम इसे 700ऑर्डर के व्युत्क्रम से हटाते हैं। लोगों को शामिल नहीं किया गया है, अर्थात उन्हें घटते क्रम में छाँटना है)।

— इब्राहिम माहिर
स्रोत

नायब: जब तक अन्यथा निर्दिष्ट न हो, कोड लंबाई हमेशा बाइट्स में मापी जाती है। चार की संख्या कभी-कभी प्रासंगिक हो सकती है, लेकिन मुझे नहीं लगता कि यह यहां है। प्रासंगिक मेटा उत्तर ।

— अरनुलद

@Arnauld हाँ! BTW मैं वह हूँ जिसने उस मेटा सवाल पूछा ;-)

— इब्राहिम माहिर

1

डी 'ओह! मैंने इस विवरण को पूरी तरह से याद किया ...: D

— Arnauld

1

क्लीन , 169 102 बाइट्स

सभी ऑक्टल एस्केप को एक बाइट के रूप में गिना जाता है, क्योंकि क्लीन कंपाइलर ख़ुशी से उन्हें इस तरह ले जाएगा, लेकिन टीआईओ और एसई नहीं करेंगे क्योंकि वे अच्छी तरह से गठित यूटीएफ -8 नहीं हैं।

import StdEnv
$l=[e\\c<-:"\245\157\143\232\377\53\233\274\67\115\323\336\216\37\260\101\231\230\227\226\225\217\215\214\213\204\203\202\201\171\170\167\156\155\52\51\50\47\40\36\35\25\24\23\n\11\273\272\271\261\257\246\114\113\102\335",e<-l|c==toChar e]

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

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

— Οurous
स्रोत

1

पायथ , 48 बाइट्स

oxs[]j421T]j7 2_sm+Ld,,ddjT9tS6_m_+LdS3 4.C_S6 3

एक नेस्टेड सरणी के रूप में इनपुट की अपेक्षा करता है, प्रत्येक तत्व अवरोही क्रम का आदेश देता है। इसे यहाँ ऑनलाइन आज़माएँ , या यहाँ पर सभी परीक्षण मामलों को सत्यापित करें ।

oxs[]j421T]j7 2_sm+Ld,,ddjT9tS6_m_+LdS3 4.C_S6 3)NQ   Final 3 tokens inferred from context
                                                      Implicit: Q=eval(input()), T=10
    ]j421T                                            Convert 421 to base 10, wrap in array -> [[4,2,1]]
          ]j7 2                                       Convert 7 to base 2, wrap in array -> [[1,1,1]]
                 m          tS6                       Map d in [2,3,4,5,6] using:
                      ,dd                               [d,d]
                         jT9                            Convert 10 to base 9 -> [1,1]
                  +Ld,                                  Prepend d to each of the above
               _s                                     Flatten and reverse -> [[6,1,1],[6,6,6]...[2,2,2]]
                                m       4             Map d in [0,1,2,3] using:
                                  +LdS3                 [d+1,d+2,d+3]
                                 _                      Reverse the above
                               _                      Reverse the result -> [[6,5,4]...[3,2,1]]
                                           _S6        [6,5,4,3,2,1]
                                         .C    3      All 3-element combinations of the above, respecting order
  s[                                            )     Wrap the 5 previous sections in an array, concatenate
ox                                               NQ   Order Q using each element's index in the above list

— सोक
स्रोत

1

05AB1E , 24 बाइट्स

Σ5βËyθyP‚yнÃ6βyË_y¥PΘy)(

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

समग्र एल्गोरिथ्म:

Σ          )( # sort by the following, in decreasing priority:
 5βË          # 1 for 421, 0 otherwise
 yθyP‚yнÃ6β   # 7 for 111, X for XXX and X11, 0 otherwise
 yË_          # 0 for XXX, 1 otherwise
 y¥PΘ         # 1 for sequences, 0 otherwise
 y            # the roll itself

विवरण:

5β          # parse the roll as a base-5 number
  Ë         # are all digits equal? (base-5 421 is 111)

yθ          # last die (equal to the 1st die iff we have XXX)
  yP        # product of dice (equal to the 1st die iff we have X11)
    ‚       # wrap the two in an array
     yнÃ    # keep only those that are equal to the 1st die
        6β  # parse as a base-6 number (111 -> [1, 1] -> 7)

yË          # are all dice equal?
  _         # boolean negation

y¥          # deltas ([a, b, c] -> [b - a, c - b])
  P         # product
   Θ        # 1 if it's equal to 1, 0 otherwise

— ग्रिमी
स्रोत

आइए 421 के स्कोरिंग नियमों का अभ्यास करें!

कार्य

बुनियादी स्कोरिंग

संबंध स्थापित करना

चुनौती के नियम

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

इनपुट

अपेक्षित आउटपुट

पायथन , 93 बाइट्स

रेटिना 0.8.2 , 67 बाइट्स

जेली , 37 34 बाइट्स

कैसे?

आर , 73 बाइट्स

05AB1E , 76 48 45 बाइट्स

मूल 76 बाइट्स समाधान:

जावास्क्रिप्ट (ईएस 7), 96 बाइट्स

व्याख्या

जावास्क्रिप्ट, 101 वर्ण, 116 बाइट्स (UTF-8)

क्लीन , 169 102 बाइट्स

पायथ , 48 बाइट्स

05AB1E , 24 बाइट्स