Untuk sementara waktu sekarang, saya telah mengalami masalah ketika menghitung dengan jari saya, khususnya, bahwa saya hanya bisa menghitung sampai sepuluh. Solusi saya untuk masalah itu adalah menghitung dalam biner pada jari-jari saya, mengacungkan ibu jari saya untuk satu, jari telunjuk saya untuk dua, baik ibu jari dan telunjuk untuk tiga, dll. Namun, kami mengalami sedikit masalah ketika kami sampai ke angka empat. Secara khusus, itu mengharuskan kita untuk mengangkat jari tengah kita, yang menghasilkan gerakan yang agak disayangkan, yang biasanya tidak diterima di masyarakat. Jenis angka ini adalah angka kasar . Kita sampai pada angka kasar berikutnya di 36, ketika kita mengangkat ibu jari di tangan kedua dan jari tengah tangan pertama kita. Definisi dari sejumlah kasar adalah nomor yang, di bawah sistem ini penghitungan, hasil dalam diri kita memasang hanyajari tengah tangan apa pun. Setelah kami melewati 1023 (jumlah maksimum yang dapat dicapai pada satu orang, dengan masing-masing dua tangan lima jari), anggaplah kami melanjutkan dengan tangan ketiga, dengan tambahan tangan yang ditambahkan sesuai kebutuhan.

Tugas Anda:

Tulis program atau fungsi yang menerima input dan mengeluarkan nilai kebenaran / kepalsuan berdasarkan apakah input tersebut angka yang kasar.

Memasukkan:

Integer antara 0 dan 10 ⁹ (inklusif).

Keluaran:

Nilai kebenaran / kepalsuan yang menunjukkan apakah input adalah angka kasar.

Kasus uji:

Input:    Output:
0   --->  falsy
3   --->  falsy
4   --->  truthy
25  --->  falsy
36  --->  truthy
127 --->  falsy
131 --->  truthy

Mencetak:

Ini adalah kode-golf , sehingga skor terendah dalam byte menang.

APL (dzaima / APL) , 5 byte

4∊32⊤

Cobalah online!

4∊ adalah 4 anggota dari

32⊤ ke-base-32?

Regex (ECMAScript), 37 byte

Input dalam bentuk unary, dengan panjang string xs.

^((?=(x+)(\2{31}x*))\3)*(x{32})*x{4}$

Cobalah online!

^
(
    (?=(x+)(\2{31}x*))    # \2 = floor(tail / 32); \3 = tool to make tail = \2
    \3                    # tail = \2
)*                        # Loop the above as many times as necessary to make
                          # the below match
(x{32})*x{4}$             # Assert that tail % 32 == 4

JavaScript (SpiderMonkey) , 23 byte

f=x=>x&&x%32==4|f(x>>5)

Cobalah online!

Ini adalah solusi sepele, Anda hanya ingin mengonversi ke basis 32 dan memeriksa apakah ada 4 di dalamnya.

JavaScript (SpiderMonkey) , 26 byte

x=>x.toString(32).match(4)

Cobalah online!

Sangat menarik bahwa /4/.test(...)biaya satu byte lebih banyak daripada ....match(4).

Japt , 5 byte

sH ø4

Cobalah online!

Penjelasan

      // Implicit input
sH    // To a base-H (=32) string
   ø  // Contains
    4 // 4 (JavaScript interprets this as a string)

Ruby, 36 19 byte

->n{n.to_s(32)[?4]}

Cobalah online!

Disimpan 17 byte dengan metode @tsh .

APL + WIN, 10 byte

Meminta input integer

4∊(6⍴32)⊤⎕

Memperhatikan enam tangan diperlukan untuk mewakili 10 ^ 9 konversi ke vektor 6 elemen dari representasi 32 dasar dan memeriksa apakah 4 ada di elemen apa pun.

Perl 6 , 16 byte

{.base(32)~~/4/}

Cobalah online!

Cek apakah ada 4representasi di nomor 32 di pangkalan. Mengembalikan Nil sebagai salah atau Cocok yang mengandung a 4.

Anda dapat membuktikan ini dengan fakta bahwa sehingga setiap digit adalah keadaan masing-masing tangan.$2^5 = 32$

Python 2 , 34 32 byte

f=lambda a:a%32==4or a>0<f(a/32)

Cobalah online!

2 byte berkat tsh

Kode Mesin x86, 17 byte

6A 20 59 85 C0 74 09 99 F7 F9 83 FA 04 75 F4 91 C3

Byte di atas mendefinisikan fungsi yang mengambil angka sebagai input dalam EAXregister, dan mengembalikan hasilnya sebagai nilai Boolean dalam EAXregister ( EAX== 0 jika input bukan angka kasar;! EAX= 0 jika input adalah angka kasar ).

Dalam mnemonik perakitan yang dapat dibaca manusia:

; Determines whether the specified number is a "rude" number.
; Input:    The number to check, in EAX
; Output:   The Boolean result, in EAX (non-zero if rude; zero otherwise)
; Clobbers: ECX, EDX
IsRudeNumber:
    push    32           ; \ standard golfing way to enregister a constant value
    pop     ecx          ; /  (in this case: ECX <= 32)
CheckNext:
    test    eax, eax     ; \ if EAX == 0, jump to the end and return EAX (== 0)
    jz      TheEnd       ; /  otherwise, fall through and keep executing
    cdq                  ; zero-out EDX because EAX is unsigned (shorter than XOR)
    idiv    ecx          ; EAX <= (EAX / 32)
                         ; EDX <= (EAX % 32)
    cmp     edx, 4       ; \ if EDX != 4, jump back to the start of the loop
    jne     CheckNext    ; /  otherwise, fall through and keep executing
    xchg    eax, ecx     ; store ECX (== 32, a non-zero value) in EAX
TheEnd:
    ret                  ; return, with result in EAX

Cobalah online!

Julia 1.0 , 25 byte

f(n)=n%32==4||n>0<f(n>>5)

Cobalah online!

Julia 1.0 , 26 byte

Alternatif yaitu 1 karakter lebih pendek, tetapi 1 byte lebih lama, terlalu buruk yang ∈membutuhkan 3 byte di unicode.

n->'4'∈string(n,base=32)

Cobalah online!

05AB1E , 5 byte

32B4å

Port of @ Adám 's APL (dzaima / APL) answer .

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

32B    # Convert the (implicit) input to Base-32
   4å  # And check if it contains a 4
       # (output the result implicitly)

Catholicon , 4 byte

ǔ?QǑ

Mengambil nomor sebagai string basis-256.

Cobalah online!

Suite uji

C # (Visual C # Interactive Compiler) , 31 byte

n=>{for(;n>0;n/=n%32==4?0:32);}

Keluaran dengan melemparkan pengecualian. Cara Anda mengonversi satu angka dari desimal ke basis lain adalah dengan membagi angka desimal dengan basis itu berulang kali dan mengambil sisanya sebagai digit. Itulah yang kami lakukan, dan kami memeriksa apakah ada angka yang memiliki nilai 4 di basis-32;

Cobalah online!

J , 12 byte

4 e.32#.inv]

Cobalah online!

R , 50 48 byte

any(2^(0:4)%*%matrix(scan()%/%2^(0:34)%%2,5)==4)

Cobalah online!

Menggunakan pendekatan berbasis matriks yang rapi sekarang (milik @Giueseppe). Ini menghasilkan matriks bit 5x7, mengubahnya menjadi serangkaian bilangan bulat 32, dan memeriksa 4s.

Python 3 , 43 byte

Periksa setiap potongan 5-bit untuk melihat apakah itu kasar (sama dengan 4).

lambda n:any(n>>5*i&31==4for i in range(n))

Cobalah online!

C (gcc) , 34 byte

f(i){return i?i&31^4?f(i/32):1:0;}

Cobalah online!

Arang , 6 byte

№⍘Ｎ³²4

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Keluaran -berdasarkan seberapa kasar angkanya. Penjelasan:

  Ｎ     Input as a number
 ⍘      Convert to base as a string
   ³²   Literal 32
№       Count occurrences of
     4  Literal string `4`

Saya menggunakan konversi basis string untuk menghindari keharusan memisahkan literal angka untuk 32dan 4.

Tidy , 18 byte

{x:4∈base(32,x)}

Cobalah online! Memeriksa apakah 4merupakan elemen base(32,x)(konversi basis).

Haskell , 31 byte

elem 9.(mapM(:[6..36])[0..5]!!)

Cobalah online!

Cubix , 26 byte

u!@-W14;OIS%/\;;,p;?wO@u/s

Cobalah online!

Bungkus ke sebuah kubus dengan panjang tepi 3 sebagai berikut

      u ! @
      - W 1
      4 ; O
I S % / \ ; ; , p ; ? w
O @ u / s . . . . . . .
. . . . . . . . . . . .
      . . .
      . . .
      . . .

Lihat saja

Implementasi yang cukup mendasar, tanpa semua pengalihan yang dilakukannya:

• IS memulai program dengan menekan input dan 32 ke stack
• %4-! mendapatkan sisanya dan memeriksa apakah 4 dengan pengurangan
• 1O@ Output 1 jika 4 dan berhenti
• ;;, bersihkan tumpukan dan lakukan pembagian integer
• p;? bersihkan bagian bawah tumpukan dan periksa hasil div untuk 0
• O@ jika div menghasilkan output nol dan berhenti
• s tukar bagian atas tumpukan dan mulai kembali pada langkah 2 di atas

MATL , 8 byte

32YA52=a

Cobalah online!

Batch, 77 45 byte

@cmd/cset/a"m=34636833,n=%1^m*4,(n-m)&~n&m*16

Berdasarkan hacks twiddling bit ini . Penjelasan: Hanya 6 tangan yang perlu diperiksa karena jangkauan terbatas (30 bit) dari input yang harus didukung. Angka ajaib msetara dengan 111111di basis 32, sehingga operasi pertama matikan bit kasar di nomor input. Kemudian tetap menemukan yang mana dari 6 tangan sekarang nol.

kode mesin x86, 14 byte

(kode mesin yang sama berfungsi dalam 16-bit, 32-bit, dan 64-bit. Dalam mode 16-bit, ia menggunakan AX dan DI alih-alih EAX dan EDI dalam mode 32 dan 64-bit.)

Algoritma: periksa 5 bit dengan rendah x & 31 == 4, lalu geser ke kanan sebanyak 5 bit, dan ulangi jika hasil shiftnya bukan nol.

Callable from C dengan char isrude(unsigned n);sesuai dengan konvensi pemanggilan System V x86-64. 0 adalah benar, bukan-0 adalah palsu (ini asm, bukan C ¹ ).

 line   addr    code bytes
  num
     1                             ; input:  number in EDI
     2                             ; output: integer result in AL: 0 -> rude, non-zero non-rude
     3                             ; clobbers: RDI
     4                         isrude:
     5                         .check_low_bitgroup:
     6 00000000 89F8               mov    eax, edi
     7 00000002 241F               and    al, 31          ; isolate low 5 bits
     8 00000004 2C04               sub    al, 4           ; like cmp but leaves AL 0 or non-zero
     9 00000006 7405               jz    .rude            ; if (al & 31 == 4) return 0;
    10                         
    11 00000008 C1EF05             shr    edi, 5
    12 0000000B 75F3               jnz   .check_low_bitgroup
    13                             ;; fall through to here is only possible if AL is non-zero
    14                         .rude:
    15 0000000D C3                 ret


    16          0E             size:  db $ - isrude

Ini mengambil keuntungan dari op al, imm8pengkodean formulir pendek untuk AND dan SUB. Saya bisa digunakan XOR al,4untuk menghasilkan 0 pada kesetaraan, tetapi SUB lebih cepat karena dapat makro-sekering dengan JZ menjadi satu sub-dan-cabang uop pada keluarga Sandybridge.

Fakta menyenangkan: menggunakan flag-hasil pergeseran oleh lebih dari 1 akan lambat pada keluarga P6 (kios front-end sampai shift berhenti), tapi itu bagus.

Catatan Kaki 1: Ini adalah fungsi bahasa assembly, dan x86 asm memiliki keduanya jzdan jnz, jadi sesuai meta saya dapat memilih salah satu dari keduanya. Saya tidak bermaksud ini untuk mencocokkan C kebenaran / kepalsuan.

Itu kebetulan lebih nyaman untuk kembali dalam AL daripada EFLAGS, sehingga kita dapat menggambarkan fungsi ke kompiler C tanpa pembungkus, tetapi pilihan saya benar / salah tidak dibatasi dengan menggunakan penelepon C untuk mengujinya.

ES6, 31 30 26 byte

b=>b.toString(32).match`4`

Jangan ragu untuk mengatakan ide tentang cara mengurangi ini lebih jauh, jika ada.

Retina 0.8.2 , 31 byte

.+
$*
+`(1+)\1{31}
$1;
\b1111\b

Cobalah online! Tautan termasuk kasus uji. Output nol kecuali angkanya tidak sopan. Bekerja dengan mengonversi input ke unary dan kemudian ke unary-encoded base 32 dan menghitung jumlah 4s dalam hasilnya.

Java 8, 40 33 byte

n->n.toString(n,32).contains("4")

Port of @ Adám 's APL (dzaima / APL) answer .

Cobalah online.

Penjelasan:

n->                 // Method with Integer parameter and boolean return-type
  n.toString(n,32)  //  Convert the input to a base-32 String
   .contains("4")   //  And check if it contains a "4"

> <> , 28 byte

Output 4 untuk nomor kasar melempar pengecualian untuk nomor tidak kasar.

:1(?^:" ":\
,&-v?=4:%&/
 ;n<

Cobalah online!

Bahasa Wolfram (Mathematica) , 37 byte 36 byte, 29 byte

-2 byte oleh Jonathan Frech

#~IntegerDigits~32~MemberQ~4&

Cobalah online!

Solusi 31-byte:

MemberQ[IntegerDigits[#,32],4]&

Cobalah online!

Java 8, 28 22 21 byte

n->n%32==4|n>>5%32==4

Terinspirasi oleh jawaban @ kevin-cruijssen . Hanya berfungsi untuk 2 tangan.

Cobalah online!

Penjelasan:

n->                 // Method with int parameter and boolean return-type
  n%32              // Only consider right 5 bytes (fingers)
  ==4               // Middle finger
  | ... n>>5       // Repeat with shifted bits for other hand