অস্ট্রেলিয়ান ফুটবলের একটি গেমের বিজয়ী নির্ধারণ করুন

Question

অস্ট্রেলিয়ান ফুটবলে, গোলগুলি 6 পয়েন্টের এবং পিছনের দিকগুলির মূল্য 1 পয়েন্টের হয়। স্কোরগুলি লক্ষ্য এবং পিছনের পাশাপাশি মোট স্কোরের সংখ্যা অন্তর্ভুক্ত করতে পারে। দুটি পৃথক দলের জন্য গোলের সংখ্যা এবং পিছনের দিক বিবেচনা করে নির্ধারণ করুন কোন দলটি খেলাটি জিতেছে।

চারটি পূর্ণসংখ্যা g1, b1, g2, b2ইনপুট হিসাবে নিন এবং প্রথম দল বা দ্বিতীয় দল ইনপুটযুক্ত জিতেছে কিনা তার জন্য দুটি স্বতন্ত্র মান আউটপুট নিন । ইনপুট ফর্ম্যাটটি নমনীয়, তবে ইনপুট অর্ডারটি অবশ্যই প্রথমে কোন দলটি তা স্পষ্ট হওয়ার অনুমতি দিতে হবে। উদাহরণস্বরূপ, g1, g2, b1, b2অনুমতি দেওয়া হবে, কিন্তু b1, g2, g1, b2হবে না।

পরীক্ষার কেস

পরীক্ষার ক্ষেত্রে trueপ্রথম দল বিজয়ী এবং falseদ্বিতীয় দল জয়ের জন্য ব্যবহার করা হবে । ইনপুট ফর্ম্যাটে রয়েছে (g1,b1),(g2,b2)।

(1,0),(0,1)        true
(2,0),(0,11)       true
(10,8),(11,1)      true
(0,0),(1,0)        false
(100,100),(117,0)  false
(7,7),(5,12)       true
(2,0),(0,13)       false

উদাহরণস্বরূপ, (10,8),(11,1)ইনপুটটির জন্য , দল 1 10 টি 10 ​​টি এবং 8 টি পিছনে, মোট $10*6+8*1=68$ পয়েন্টের জন্য, যখন দল 2 স্কোর করেছে $11*6+1*1=67$ পয়েন্ট, তাই দল 1 জিতেছে ।

কোনও ইনপুট কোনও অঙ্কন হবে না - ড্র প্রোগ্রামের ইনপুটটিতে আপনার প্রোগ্রামটির আচরণের কোনও বিষয় নেই।

Comments

আমরা কি গ্যালিকাল ফুটবল এবং হুরলিংয়ের জন্য প্রসারিত করতে পারি?

— ট্রিগ

@ টিআরআইজি আপনার নিজের প্রশ্ন করুন!

— স্টিফেন

আমি এমন কিছু চিন্তা করার চেষ্টা করব যা খুব কাছে নয়।

— ট্রিগ

@ টিআরআইজি, জিএএ সমান হবে, কেবল বেস -6 এর পরিবর্তে বেস -3 ব্যবহার করবে।

— শেগি

হ্যাঁ @ শেগি, যে কারণে আমি এই প্রশ্নটি কেবল একটি সমমানের জিএএ তৈরি করতে কপি করতে পারি না। কিছু সাদৃশ্য. হতে পারে আন্তর্জাতিক বিধি ফুটবল সহ।

— ট্রিগ

Answer 1

জেলি , 3 বাইট

ḅ6M

পূর্ণসংখ্যার তালিকার একটি তালিকা গ্রহণ করে একটি মোনাডিক লিঙ্ক [[g1,b1],[g2,b2]], যা একটি তালিকা দেয় [1]বা [2]।
_{(অঙ্কন হবে [1,2])}

... অথবা একটি সম্পূর্ণ প্রোগ্রাম মুদ্রণ 1বা 2।

এটি অনলাইন চেষ্টা করুন! অথবা পরীক্ষা-স্যুটটি দেখুন ।

কিভাবে?

ḅ6M - Link: list of lists of integers, X
 6  - literal six
ḅ   - convert (X) from base 6 (vectorises)
  M - maximal indices

Answer 2

সিপি-1610 সমাবেশ ( Intellivision ), 9 DECLEs ¹ ≈ 12 বাইট

R0 ( $g_1$ ), R1 ( $b_1$ ), R2 ( $g_2$ ) এবং R3 ( $b_2$ ) এ ইনপুট নেওয়ার এবং ২ য় দল জিতলে সাইন ফ্ল্যাগটি সেট করা বা অন্যথায় এটি সাফ করার একটি রুটিন ।

275   PSHR  R5        ; push return address
110   SUBR  R2,   R0  ; R0 -= R2
082   MOVR  R0,   R2  ; R2 = R0
04C   SLL   R0,   2   ; R0 <<= 2
0D0   ADDR  R2,   R0  ; R0 += R2
0D0   ADDR  R2,   R0  ; R0 += R2
0C8   ADDR  R1,   R0  ; R0 += R1
118   SUBR  R3,   R0  ; R0 -= R3
2B7   PULR  R7        ; return

সিপি -1610 এর কোনও গুণগত নির্দেশ নেই এবং কেবল একবারে 1 বা 2 পজিশনে স্থানান্তরিত হতে পারে, সুতরাং এর পরিবর্তে আমরা নিম্নলিখিত এক্সপ্রেশনটি গণনা করি:

((R0 - R2) << 2) + (R0 - R2) + (R0 - R2) + R1 - R3

সম্পূর্ণ পরীক্ষার কোড

          ROMW    10              ; use 10-bit ROM width
          ORG     $4800           ; map this program at $4800

          ;; ------------------------------------------------------------- ;;
          ;;  test code                                                    ;;
          ;; ------------------------------------------------------------- ;;
main      PROC
          SDBD                    ; set up an interrupt service routine
          MVII    #isr,     R0    ; to do some minimal STIC initialization
          MVO     R0,       $100
          SWAP    R0
          MVO     R0,       $101

          EIS                     ; enable interrupts

          SDBD                    ; R4 = pointer to test cases
          MVII    #@@data,  R4
          MVII    #$200,    R5    ; R5 = backtab pointer

@@loop    PSHR    R5              ; save R5 on the stack
          MVI@    R4,       R0    ; load the next test case
          MVI@    R4,       R1    ; into R0 .. R3
          MVI@    R4,       R2
          MVI@    R4,       R3
          CALL    score           ; invoke our routine
          BMI     @@true

          MVII    #$80,     R0    ; set output to '0'
          B       @@output

@@true    MVII    #$88,     R0    ; set output to '1'

@@output  PULR    R5              ; restore R5
          MVO@    R0,       R5    ; draw the output

          SDBD                    ; was it the last test case?
          CMPI    #@@end,   R4
          BLT     @@loop          ; if not, jump to @@loop

          DECR    R7              ; loop forever

@@data    DECLE   1, 0, 0, 1      ; test cases
          DECLE   2, 0, 0, 11
          DECLE   10, 8, 11, 1
          DECLE   0, 0, 1, 0
          DECLE   100, 100, 117, 0
          DECLE   7, 7, 5, 12
          DECLE   2, 0, 0, 13
@@end     ENDP

          ;; ------------------------------------------------------------- ;;
          ;;  ISR                                                          ;;
          ;; ------------------------------------------------------------- ;;
isr       PROC
          MVO     R0,       $0020 ; enable display

          CLRR    R0
          MVO     R0,       $0030 ; no horizontal delay
          MVO     R0,       $0031 ; no vertical delay
          MVO     R0,       $0032 ; no border extension
          MVII    #$D,      R0
          MVO     R0,       $0028 ; light-blue background
          MVO     R0,       $002C ; light-blue border

          JR      R5              ; return from ISR
          ENDP

          ;; ------------------------------------------------------------- ;;
          ;;  routine                                                      ;;
          ;; ------------------------------------------------------------- ;;
score     PROC
          PSHR    R5              ; push the return address

          SUBR    R2,       R0    ; R0 -= R2
          MOVR    R0,       R2    ; R2 = R0
          SLL     R0,       2     ; R0 <<= 2
          ADDR    R2,       R0    ; R0 += R2
          ADDR    R2,       R0    ; R0 += R2
          ADDR    R1,       R0    ; R0 += R1
          SUBR    R3,       R0    ; R0 -= R3

          PULR    R7              ; return
          ENDP

আউটপুট

^{jzIntv থেকে স্ক্রিনশট}

---

_{1. একটি সিপি -1610 অপকোড একটি 10-বিট মান সহ এনকোড করা হয়েছে, যা একটি 'ডিসেল' হিসাবে পরিচিত। এই রুটিনটি 9 ডেসেকল দীর্ঘ।}

Answer 3

পাইথন 3 , 26 বাইট

lambda g,b,G,B:6*g+b>6*G+B

এটি অনলাইন চেষ্টা করুন!

অবিশ্বাস্যভাবে আকর্ষণীয় উত্তর নয়।

Answer 4

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 22 বাইট

(a,b,c,d)=>a*6+b>c*6+d

এটি অনলাইন চেষ্টা করুন!

Comments

জেএস-এও কাজ করে।

— শেগি

বা জাভা পরিবর্তন করে =>থেকে->

— কেভিন Cruijssen

Answer 5

আন্তর্জাতিক ফোনেটিক এসোটেরিক ভাষা , 12 বাইট (ডাব্লুআইপি ভাষা)

6ɪθɪt6ɪθɪtʈo

1সত্য এবং 0মিথ্যা জন্য আউটপুট ।

এখনও কোনও টিআইও দোভাষী নেই, তবে উপরের সংগ্রহশালার ক্লোনিং করে এবং কল করে চালানো যায় python main.py "code here"।

ভাষার টিএল; ডিআর হ'ল এটি একটি স্ট্যাক-ভিত্তিক ভাষা যেখানে প্রতিটি নির্দেশ আন্তর্জাতিক ফোনেটিক বর্ণমালার একটি চরিত্র ।

ক্রমে STDIN থেকে 4 ইনপুট হিসাবে যুক্তি নেয় g1, b1, g2, b2। একবার লুপগুলি পুরোপুরি বাস্তবায়িত হয়ে গেলে 12 বাইটেরও কম গল্ফ হতে পারে।

6ɪθɪt6ɪθɪtʈo
6            ; Push 6
 ɪ           ; Take number input, push
  θ          ; Pop 2, multiply, push
   ɪ         ; Take number input, push
    t        ; Pop 2, add, push
     6       ; Push 6
      ɪ      ; Take number input, push
       θ     ; Pop 2, multiply, push
        ɪ    ; Take number input, push
         t   ; Pop 2, add, push 
          ʈ  ; Pop 2, if a > b push 1, otherwise 0
           o ; Pop, print

Comments

কুয়েল আলগাও, ডিজেড!

— রোব্লোগিক

aɪ əm nɑːt əˈmjuːzd baɪ ðə hʊd; bɪˈniːθ ɪt ɪz ˈsɪmpli dʒʌst əˈnʌðər stæk-beɪst ˈlæŋɡwɪdʒ। আঃ ˈস্ট্রলি ডেস্করিডিড জু টু অ্যাপ্পোয়েট এ এসএনএসআর।

Answer 6

পার্ল 6 , 13 বাইট

*×6+*>*×6+*

এটি অনলাইন চেষ্টা করুন!

4 টি পূর্ণসংখ্যা হিসাবে ইনপুট নেয় এবং মূলত প্রশ্ন জিজ্ঞাসা করে

Answer 7

ক্যাসকেড , 16 বাইট

#6&
>
 |/
 +
* &

এটি অনলাইন চেষ্টা করুন!

6*a+bউভয় দলের জন্য একই যুক্তি পুনরায় ব্যবহার করুন তারপরে প্রথম স্কোরগুলি অন্যটির চেয়ে বেশি কিনা তা মুদ্রণ করে

Answer 8

জে , 12 বাইট

>&(1#.6 1*])

এটি অনলাইন চেষ্টা করুন!

Answer 9

33 , 22 বাইট

6OxcOasz6OxcOaclmzh1co

এটি অনলাইন চেষ্টা করুন!

4 টি সীমিত সংখ্যার হিসাবে ইনপুট নেয় এবং প্রথম দল জয়ের জন্য 0 দেয়, দ্বিতীয়টির জন্য 1 করে।

ব্যাখ্যা:

6Oxc                   | Multiplies the first number by 6
    Oa                 | Adds the second number
        6Oxc           | Multiplies the third number by 6
            Oa         | Adds the fourth number
      sz      clmz     | Subtract this from the first team's score
                  h1co | Print 0 if the first team's score is greater, 1 otherwise

ননডিসিন্টিন্টের ফলাফল অনুমোদিত হলে -4 বাইট:

6OxcOasz6OxcOaclmo

স্কোর পার্থক্য আউটপুট হবে; ইতিবাচক ফলাফল মানে প্রথম দলের জয়, নেতিবাচক মানে দ্বিতীয় দলের জয়।

Answer 10

স্কালা , 11 বাইট

_*6+_>_*6+_

এটি অনলাইন চেষ্টা করুন!

ক্রমে 4 পূর্ণসংখ্যার নেয় g1 b1 g2 b2।

Answer 11

ব্রেনফাক , 45 38 36 32 29 28 বাইট

,[>,[<++++++>-],]-[[-<]>>]>.

এটি অনলাইন চেষ্টা করুন!

-8 বাইটের জন্য @ জো কিংকে ধন্যবাদ

ইনপুটটি বি 1, জি 1, বি 2, জি 2 (গোল এবং পিছনের অংশগুলি বিনিময় করা হয়) প্রিন্টস team, যদি দল 1 জিতে থাকে। টিম 2 জিতলে প্রিন্টগুলি শূন্য হয়।

কোড:

[tape: p1, p2, print marker]

[Get input and calculate scores]
,               input behinds of team 1
[               while input
  >,                go to next cell and input goals of team
  [<++++++>-]       add it 6 times to behinds
,]              repeat this with the second pair of values

[Determine, which one is better]
-               set print marker
[               while score of both teams is greater than zero
  [-<]              decrement and go to previous cell (team 1 or empty cell/in the first run, it will decrement the print marker a second time)
  >>                return to team 2 (or two cells to the right of the first team that became 0)
]
>               go one cell right. If team 1 won, we are at the print marker now
                If team 2 won, we are one cell right of the print marker
.           Print that

Comments

আমি মনে করি না যে এটি 10 ​​এর চেয়ে বেশি ইনপুটগুলির সাথে কাজ করে তবে তা দুর্দান্ত সমাধান। (এটি এখনও নোট করবে) পরে আউটগল্ফ করার চেষ্টা করতে পারে :)

— রোমান গ্রাফ

হ্যাঁ, 9 এর চেয়ে বেশি ইনপুটগুলি অন্তত কিছুটা জটিল, কারণ কোডটি প্রতি ইনপুটটিতে কেবল একটি অক্ষর ব্যবহার করে। আপনি :;<=>?যদি উচ্চতর স্কোর প্রবেশ করতে চান তবে আপনাকে পরবর্তী ASCII অক্ষর ( ইত্যাদি) ব্যবহার করতে হবে।

— ডোরিয়ান

"নাল বাদে অক্ষর কোড হিসাবে ইনপুট" কি একটি বিকল্প? এছাড়াও, উভয় স্কোর অবশ্যই সমান হতে হবে, যখন 256 দ্বারা ভাগ করে নেওয়া হয়, কমপক্ষে আপনি যখন টিও ব্যবহার করেন।

— ডোরিয়ান

Answer 12

স্ক্র্যাচ 3.0 17 16 ব্লক, 160 143 বাইট

স্কোর প্রস্তাবিত স্কোরিং পদ্ধতি থেকে এখানে আসে

1 ব্লক / 17 বাইটগুলি @ এ (বা স্ক্র্যাচ-তে উজার_আ) ধন্যবাদ জানায় _

স্ক্র্যাচ এ চেষ্টা করুন

স্ক্র্যাচব্লকস হিসাবে :

when gf clicked
repeat(2
ask[]and wait
set[m v]to((answer)*(6)
ask[]and wait
change[m v]by(answer
add(m)to[x v
end
say<(item(1) of [x v]) > (m)

উত্তর ইতিহাস

খুব সুন্দর আমার কেগ উত্তর একটি বন্দর।

স্ক্র্যাচ এ চেষ্টা করুন

ইনপুট আকারে হয় g1, b1, g2, b2

স্ক্র্যাচব্লকস সিনট্যাক্সে

when gf clicked
repeat(0
set[m v]to(0
ask[]and wait
change[m v]by((answer)*(6)
ask[]and wait
change[m v]by(answer
add(m)to[x v
end
say<(item(1) of [x v]) > (m)

এখন আমি জানি আপনি কি বলছেন ... স্ক্র্যাচে গল্ফ কেন?!? ভাল, এটা মজা। এই জন্য. এছাড়াও, স্ক্র্যাচটি স্বতন্ত্র যে এটি খুব বেশি সময় এখানে সিজিসিসিতে প্রদর্শিত হয় না।

Comments

51 বাইট?

— 27:55 এএম

Answer 13

পরিষ্কার , 34 বাইট

import StdEnv
$a b c d=a*6+b>c*6+d

এটি অনলাইন চেষ্টা করুন!

$ :: Int Int Int Int -> Boolযেমন গ্রহণযোগ্য যুক্তি দিয়ে সংজ্ঞা দেয়$ g1 b1 g2 b2

Answer 14

কেগ , 10 বাইট (এসবিসিএস)

(2|¿¿6*+)>

এটি অনলাইন চেষ্টা করুন!

অস্ট্রেলিয়ান হিসাবে আমি এই প্রশ্নের অনুমোদন দিই।

ইনপুট হিসাবে নেওয়া হয়েছে:

b1
g1
b2
g2

এবং 0 অর্থ দল 2 এবং 1 এর অর্থ দল 1

ব্যাখ্যা

(2| #twice
¿¿  #get input in the form of bn, gn where n is the team number
*6+ #multiply the goals by 6 and add the values
)>  #compare the two values to determine the winner

Answer 15

05 এ বি 1 ই , 6 5 বাইট

6δβZk

নেস্টেড তালিকা হিসাবে ইনপুট [[g1,b1],[g2,b2]]। 0দল 1 জিতলে আউটপুট এবং 1দল 2 জিতলে।

-1 বাইট @ গ্রিমিকে আমাকে স্মরণ করিয়ে দেওয়ার জন্য ধন্যবাদδ ।

এটি অনলাইনে চেষ্টা করুন বা সমস্ত পরীক্ষার কেস যাচাই করুন ।

ব্যাখ্যা:

স্পষ্টত মানচিত্রের বাহ্যিক পণ্য ব্যতীত নেস্টেড তালিকাগুলিতে স্বেচ্ছাসেবক বেস রূপান্তর কার্যকর হয় না ।

 δβ    # Apply arbitrary base-conversion double-vectorized,
6      # using the (implicit) input-list of lists and 6 as base
       # (i.e. [a,b] becomes 6a+b (or to be more precise: 6¹a + 6⁰b))
   Z   # Get the maximum of this mapped list (without popping the list itself)
    k  # And get the 0-based index of this maximum in the mapped list
       # (after which the top of the stack is output implicitly as result)

Answer 16

Zsh, 19 বাইট

অনলাইনে চেষ্টা করে দেখুন !!

((6*$1+$2>6*$3+$4))

ইনপুট অর্ডার হয় g1 b1 g2 b2। প্রস্থান কোড 0==trueএবং1==false

Answer 17

সি (জিসিসি) , 39 35 31 26 বাইট

e(a,b,c,d){a=(a-c)*6>d-b;}

0 মিথ্যা

1 সত্য

ফাংশনে ইনপুট হ'ল (জি 1, বি 1, জি 2, বি 2)

-5 বাইটের জন্য ডোরকনবকে ধন্যবাদ

এটি অনলাইন চেষ্টা করুন!

Comments

আপনি পরে স্থানটি সরিয়ে ফেলতে পারেন return, তবে আপনি 26 বাইটের জন্য প্রয়োগের বিশদটি আপত্তিজনক ব্যবহার করতে পারেন ।

— ডুরকনব

Answer 18

ব্রেন-ফ্লাক , 62 বাইট

([((({})({}){}){}{}[(({})({}){}){}{}]<(())>)(<>)]){({}())<>}{}

1প্রথম দল হেরে গেলে ফলাফলগুলি এবং 0যদি তারা জিতে থাকে (বা টাই হয়েছে)।

এটি অনলাইন চেষ্টা করুন!

# Input: G B g b

   (                                 <(())>)                   # Push 1 under...
    ({})({}){}){}{}                                            #   6G + B
                   [                ]                          #   Minus
                    (({})({}){}){}{}                           #   6g + b
                                             <>                # Switch stacks
([(                                         (  )])             # Push 0 under -(6G+B-6g+b)
                                                   ({}())<>    # Add 1 and switch stacks...
                                                  {        }   #   until one stack reaches 0
                                                            {} # Pop, leaving either 1 or 0

Answer 19

পাওয়ারশেল , 35 বাইট

param($g,$b,$h,$c)$g*6+$b-gt$h*6+$c

এটি অনলাইন চেষ্টা করুন!

Comments

বিকল্প 35 বাইট

— ভেস্কাহ

Answer 20

কবিতা , 751 বাইট

the game:a game o soccer
for a moment of my fun,i kicked my leg
o,i hurt a player
o.m.gee,o no
suddenly i then apologized a little
o.m.gee,o no
but really,i loved a good soccer battle
a game i am doing,i love it
there is a game,a twenty-to-one unwinnable match(as we called it,i mean)a match we won
a wonder of an event i saw
i played,i go in again
i am happy in a match-up of teams,i am pumped
then o,a coach i saw played soccer
i know i do admire a game o soccer
o,a match was not a bummer,and also i am making in an extra score
i think i saw a split net,a hole i ripped out a net
i am ready to win a match
o,my people and i love a sport,a bit o soccer
i am going in a game,i score,i win
o really,i am doing a game o soccer
play ball
i am gonna wi-n

এটি অনলাইন চেষ্টা করুন!

ছেলে, এটি লিখতে খুব কঠিন ছিল।

ইনপুট নিম্নলিখিত বিন্যাসে রয়েছে:

g1
b1
g2
b2

এটি প্রথম দল জিতলে "মেলে না এমন আইএফ / ইআইএফ" এবং দ্বিতীয় দল জিতলে "অপ্রত্যাশিত ইওএফ" এর ত্রুটি কোড দেয়। (ঘটনাক্রমে, একটি টাই দ্বিতীয় দলের বিজয়ী হিসাবে বিবেচিত হয়)।

Answer 21

রেটিনা 0.8.2 , 34 বাইট

\d+
$*
(1*),
$1$1$1$1$1$1
(1*);\1$

এটি অনলাইন চেষ্টা করুন! লিঙ্কে পরীক্ষার কেস অন্তর্ভুক্ত রয়েছে। আউটপুট 1যদি দ্বিতীয় দল win না এবং 0যদি এটা আছে। ব্যাখ্যা:

\d+
$*

ইনপুটটি আনারিতে রূপান্তর করুন।

(1*),
$1$1$1$1$1$1

প্রতিটি জোড়ায়, প্রথম সংখ্যাটি ছয় দ্বারা গুণিত করুন এবং দ্বিতীয়টি যুক্ত করুন।

(1*);\1$

দ্বিতীয় সংখ্যাটি প্রথমটির চেয়ে বড় কিনা তা পরীক্ষা করে দেখুন। বিকল্পভাবে, আপনি প্রথম দল জিতলে ^(1*);\1কোনটি আউটপুট দিতে পারে তা 0যদি ব্যবহার করতে পারে এবং 1যদি এটি না জানে।

Answer 22

পিএইচপি (7.4), 32 বাইট

fn($g,$b,$G,$B)=>$g+$b/6>$G+$B/6

এটি অনলাইন চেষ্টা করুন!

Answer 23

এবিসি-এসেম্বেলার , 111 74 বাইট

.o 0 4 iiii
f
	subI
	pushI 6
	mulI
	addI
	subI
	pushI 0
	ltI
.d 0 1 b
	rtn

এটি অনলাইন চেষ্টা করুন!

এটি সর্বাধিক প্রাথমিক স্ট্যাক অপারেশনগুলির উপরে কিছু ব্যবহার করে না:

subI    | B = [g1-g2,b1,b2]
pushI 6 | B = [6,g1-g2,b1,b2]
mulI    | B = [6*g1-6*g2,b1,b2]
addI    | B = [6*g1+b1-6*g2,b2]
subI    | B = [6*g1+b1-6*g2-b2]
pushI 0 | B = [0,6*g1+b1-6*g2-b2]
ltI     | B = [0<6*g1+b1-6*g2-b2]

Answer 24

পার্ল 5 , 18 বাইট

say<>*6+<>><>*6+<>

এটি অনলাইন চেষ্টা করুন!

ইনপুট লাইন পৃথক করা হয়:

g1
b1
g2
b2

Answer 25

ওল্ফ্রাম ভাষা (গণিত) , 13 বাইট by

6#+#2>6#3+#4&

এটি অনলাইন চেষ্টা করুন!

সোজা এবং বিরক্তিকর

Answer 26

হোয়াইটস্পেস, 115 বাইট

[S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   T   _STDIN_as_integer][T    T   T   _Retrieve_integer][S S S T  T   S N
_Push_6][T  S S N
_Multiply][S N
S _Duplicate][S N
S _Duplicate][T N
T   T   _STDIN_as_integer][T    T   T   _Retrieve_integer][T    S S S _Add][S N
S _Duplicate][S N
S _Duplicate][T N
T   T   _STDIN_as_integer][T    T   T   _Retrieve_input][S S S T    T   S N
_Push_6][T  S S N
_Multiply][S N
S _Duplicate][S N
S _Duplicate][T N
T   T   _STDIN_as_integer][T    T   T   _Retrieve_input][T  S S S _Add][T   S S T   _Subtract][N
T   T   N
_If_negative_jump_to_Label_NEGATIVE][S S S N
_Push_0][T  N
S T _Print_as_integer][N
N
N
_Exit_Program][N
S S N
_Label_NEGATIVE][S S S T    N
_Push_1][T  N
S T _Print_as_integer]

বর্ণ S(স্থান), T(ট্যাব) এবং N(নতুন-লাইন) কেবল হাইলাইট হিসাবে যুক্ত করা হয়েছে।
[..._some_action]শুধুমাত্র ব্যাখ্যা হিসাবে যুক্ত।

0দল 1 জিতলে প্রিন্ট করে এবং দল 2 জিতলে 1( -1একই বাইট-কাউন্টের জন্যও হতে পারে )।

এটি অনলাইনে চেষ্টা করুন (কেবলমাত্র কাঁচা জায়গা, ট্যাব এবং নতুন লাইন সহ)।

সিউডো-কোডে ব্যাখ্যা:

Integer g1 = STDIN as integer
Integer t1 = g1*6
Integer b1 = STDIN as integer
t1 = t1 + b1
Integer g2 = STDIN as integer
Integer t2 = g2*6
Integer b2 = STDIN as integer
t2 = t2 + b2
If(t1 - t2 < 0):
  Goto NEGATIVE
Print 0
Exit program

Label NEGATIVE:
  Print 1
  (implicitly exit with an error)

$\geq0$0

Answer 27

রুবি , 21 বাইট

->a,b,x,y{b-y>6*x-=a}

এটি অনলাইন চেষ্টা করুন!

বিরক্তিকর সমাধানের চারপাশে কাজ করেছেন, একটি বাইট সংরক্ষণ করেছেন এবং এটিকে একটি দিন বলেছেন।

Answer 28

সিম্পিপেম্পলেট , 84 বাইট

গণিত সমর্থনটি অতিমাত্রায় অভাবজনিত বাদে কেবল সহজ "6 দ্বারা গুণ, সমষ্টি এবং তুলনা করুন" এপ্রোচ।

{@set*A argv.0,6}{@incbyargv.1 A}{@set*B argv.2,6}{@incbyargv.3 B}0{@ifB is lowerA}1

0মিথ্যা এবং 01সত্যের আউটপুট ।

---

Ungolfed:

{@// multiply the first argument by 6}
{@set* teamA argv.0, 6}

{@// add the 2nd argument to the previous result}
{@inc by argv.1 teamA}

{@// same as before, for argument 3 and 4}
{@set* teamB argv.2, 6}
{@inc by argv.3 teamB}

{@echo 0}
{@// alternative: teamA is greater than teamB}
{@if teamB is lower than teamA}
    {@echo 1}
{@/}

{@// ... }যুক্ত করা মন্তব্য ( ) দিয়ে সবকিছু পরিষ্কার হওয়া উচিত ।

Answer 29

জাপট , 6 বাইট

2D-অ্যারে হিসাবে ইনপুট। 1দলের জন্য আউটপুট 1, 0একটি ড্র বা -1দল 2 জন্য।

mì6 rg

চেষ্টা করে দেখুন

mì6 rg     :Implicit input of array
m          :Map
 ì6        :  Convert from base-6 digit array
    r      :Reduce by
     g     :  Sign of difference

Answer 30

যান , 44 বাইট

func f(a,b,x,y int)bool{return a*6+b>=x*6+y}

এটি অনলাইন চেষ্টা করুন!