Di Sepak Bola Australia, gol bernilai 6 poin dan di belakangnya bernilai 1 poin. Skor dapat mencakup jumlah gol dan gol belakang, serta total skor. Mengingat jumlah gol dan tertinggal untuk dua tim yang berbeda, tentukan tim mana yang memenangkan pertandingan.
Ambil empat bilangan bulat g1, b1, g2, b2
sebagai input, dan hasilkan dua nilai berbeda untuk apakah tim pertama atau tim kedua yang dimasukkan menang. Format input fleksibel, tetapi urutan input harus memungkinkan tim mana yang lebih dulu jelas. Misalnya, g1, g2, b1, b2
akan diizinkan, tetapi b1, g2, g1, b2
tidak mau.
Uji Kasus
Kasus uji akan digunakan true
untuk kemenangan tim pertama dan false
untuk kemenangan tim kedua. Input dalam format (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
Sebagai contoh, untuk input (10,8),(11,1)
, tim 1 mencetak 10 gol dan 8 di belakang, dengan total poin, sementara tim 2 mencetak poin, jadi tim 1 menang .
Tidak ada input yang akan menjadi draw - perilaku program Anda pada input draw tidak masalah.
sumber
Jawaban:
Jelly , 3 byte
Tautan monadik yang menerima daftar daftar bilangan bulat
[[g1,b1],[g2,b2]]
,, yang menghasilkan daftar[1]
atau[2]
.(Undian akan menghasilkan
[1,2]
)... Atau pencetakan program lengkap
1
atau2
.Cobalah online! Atau lihat test-suite .
Bagaimana?
sumber
Perakitan CP-1610 ( Intellivision ), 9 DECLEs 1 ≈ 12 byte
Rutin mengambil input dalam R0 ( ), R1 ( ), R2 ( ) dan R3 ( ) dan mengatur bendera tanda jika tim ke-2 menang, atau membersihkannya jika tidak.g1 b 1 g 2 b 2b1 g2 b2
CP-1610 tidak memiliki instruksi multiplikasi dan hanya dapat bergeser 1 atau 2 posisi pada satu waktu, jadi kami menghitung ekspresi berikut sebagai gantinya:
Kode uji lengkap
Keluaran
tangkapan layar dari jzIntv
1. Sebuah opcode CP-1610 dikodekan dengan nilai 10-bit, yang dikenal sebagai 'DECLE'. Rutin ini panjangnya 9 DECLE.
sumber
Python 3 , 26 byte
Cobalah online!
Bukan jawaban yang sangat menarik.
sumber
C # (Visual C # Interactive Compiler) , 22 byte
Cobalah online!
sumber
=>
ke->
Bahasa Esoterik Fonetik Internasional , 12 byte (bahasa WIP)
Output
1
untuk benar dan0
salah.Belum ada juru bahasa TIO, tetapi masih bisa dijalankan dengan mengkloning repositori di atas, dan menelepon
python main.py "code here"
.TL; DR dari bahasanya adalah bahasa berbasis stack di mana setiap instruksi adalah karakter dari Alfabet Fonetik Internasional .
Dibawa dalam argumen sebagai 4 input dari STDIN, dalam urutan
g1, b1, g2, b2
. Mungkin golf turun hingga kurang dari 12 byte setelah loop diimplementasikan sepenuhnya.sumber
Perl 6 , 13 byte
Cobalah online!
Mengambil input sebagai 4 bilangan bulat, dan pada dasarnya hanya melakukan seperti yang ditanyakan pertanyaan
sumber
Cascade , 16 byte
Cobalah online!
Menggunakan kembali
6*a+b
logika yang sama untuk kedua tim kemudian mencetak apakah skor pertama lebih tinggi dari yang lainsumber
J , 12 byte
Cobalah online!
sumber
33 , 22 byte
Cobalah online!
Mengambil input sebagai 4 bilangan bulat terbatas, dan mengembalikan 0 untuk kemenangan tim pertama, 1 untuk yang kedua.
Penjelasan:
-4 byte jika hasil tidak jelas diizinkan:
Akan menampilkan perbedaan skor; hasil positif berarti kemenangan tim pertama, negatif berarti kemenangan tim kedua.
sumber
Scala , 11 byte
Cobalah online!
Membawa 4 Integer dalam urutan
g1 b1 g2 b2
.sumber
brainfuck ,
453836322928 byteCobalah online!
Terima kasih kepada @ Jo King untuk -8 byte
Input adalah b1, g1, b2, g2 (gol dan di belakang dipertukarkan) Mencetak þ, jika tim 1 menang. Mencetak null, jika tim 2 menang.
kode:
sumber
:;<=>?
dll.) Jika Anda ingin memasukkan skor yang lebih tinggi.Gores 3.0
1716 blok,160143 byteSkor berasal dari metode penilaian yang diusulkan di sini
1 blok / 17 byte disimpan berkat @A (atau Uzer_A saat awal) _
Cobalah di Awal
Sebagai Scratchblock :
Jawab Sejarah
Cukup banyak port jawaban Tong saya.
Cobalah di Awal
Masukan dalam bentuk
g1, b1, g2, b2
Dalam sintaks Scratchblock
Sekarang saya tahu apa yang Anda katakan ... mengapa golf di awal?!? Ya menyenangkan. Itu sebabnya. Selain itu, Scratch unik karena tidak sering ditampilkan di sini di CGCC.
sumber
Bersih , 34 byte
Cobalah online!
Mendefinisikan
$ :: Int Int Int Int -> Bool
dengan argumen yang diambil seperti$ g1 b1 g2 b2
sumber
Tong , 10 byte (SBCS)
Cobalah online!
Sebagai orang Australia, saya menyetujui pertanyaan ini.
Input diambil sebagai:
Dan 0 berarti tim 2 dan 1 berarti tim 1
Dijelaskan
sumber
05AB1E ,
65 byteMasukan sebagai daftar bersarang
[[g1,b1],[g2,b2]]
. Keluaran0
jika tim 1 menang dan1
jika tim 2 menang.-1 byte terima kasih kepada @Grimy untuk mengingatkan saya tentang
δ
.Cobalah secara online atau verifikasi semua kasus uji .
Penjelasan:
Konversi basis yang sewenang-wenang pada daftar bersarang tidak berfungsi tanpa produk luar
peta yangeksplisit .sumber
Zsh, 19 byte
coba online !!
Urutan input adalah
g1 b1 g2 b2
. Keluar dari kode0==true
dan1==false
sumber
C (gcc) ,
39353126 byte0 salah
1 itu benar
Input ke fungsi adalah (g1, b1, g2, b2)
Berkat Doorknob untuk -5 byte
Cobalah online!
sumber
return
, tetapi Anda juga dapat menyalahgunakan detail implementasi untuk 26 byte .Brain-Flak , 62 byte
Keluaran
1
jika tim pertama kalah, dan0
jika mereka menang (atau diikat).Cobalah online!
sumber
PowerShell , 35 byte
Cobalah online!
sumber
Puitis , 751 byte
Cobalah online!
Wah, ini yang sulit untuk ditulis.
Input dalam format berikut:
Ini memberikan kode kesalahan "IF / EIF tidak cocok" jika tim pertama menang, dan "EOF tak terduga" jika tim kedua menang. (Kebetulan, dasi dianggap sebagai kemenangan tim kedua).
sumber
Retina 0.8.2 , 34 byte
Cobalah online! Tautan termasuk kasus uji. Keluaran
1
jika tim kedua tidak menang dan0
jika itu terjadi. Penjelasan:Konversikan input ke unary.
Di setiap pasangan, gandakan angka pertama dengan enam dan tambahkan yang kedua.
Periksa apakah angka kedua lebih besar dari yang pertama. Atau, Anda bisa menggunakan
^(1*);\1
yang akan dihasilkan0
jika tim pertama menang dan1
jika tidak.sumber
PHP (7.4), 32 byte
Cobalah online!
sumber
ABC-assembler ,
11174 byteCobalah online!
Itu tidak menggunakan apa pun di atas operasi stack paling dasar:
sumber
Perl 5 , 18 byte
Cobalah online!
Input dipisahkan garis:
sumber
Bahasa Wolfram (Mathematica) , 13 byte
Cobalah online!
lugas dan membosankan
sumber
Ruang putih, 115 byte
Huruf
S
(spasi),T
(tab), danN
(baris baru) ditambahkan hanya sebagai penyorotan.[..._some_action]
ditambahkan sebagai penjelasan saja.Mencetak
0
jika tim 1 menang dan1
(bisa juga-1
untuk byte-count yang sama) jika tim 2 menang.Cobalah online (dengan spasi, tab, dan hanya baris baru).
Penjelasan dalam pseudo-code:
0
sumber
Ruby , 21 byte
Cobalah online!
Bekerja di sekitar solusi yang membosankan, menyelamatkan satu byte dan menyebutnya sehari.
sumber
SimpleTemplate , 84 byte
Hanya pendekatan sederhana "kalikan dengan 6, jumlah dan bandingkan", kecuali dukungan matematika sangat kurang.
Keluaran
0
untuk false dan01
true.Tidak Disatukan:
Semuanya harus jelas dengan komentar (
{@// ... }
) yang ditambahkan.sumber
Japt , 6 byte
Input sebagai 2D-array. Output
1
untuk tim 1,0
untuk seri atau-1
untuk tim 2.Cobalah
sumber
Pergi , 44 byte
Cobalah online!
sumber