Деякий час я вже стикався з проблемою, коли рахував на пальцях, зокрема, що можу рахувати лише десять. Моє рішення цієї проблеми полягало в тому, щоб підрахувати двійкові на пальцях, піднявши великий палець на один, мій вказівний палець на два, і великий, і вказівний палець на три тощо. Однак ми стикаємося з проблемою, коли дістаємось до число чотири. Зокрема, це вимагає від нас підняти середній палець, що призводить до досить невдалого жесту, який зазвичай не приймається в суспільстві. Цей тип числа - грубе число . Ми приходимо до наступного грубого числа в 36, коли піднімаємо великий палець на другій руці та середньому пальці першої руки. Визначення грубого числа - це будь-яке число, яке за цією системою підрахунку призводить до того, що ми виставляємо лише нассередній палець будь-якої руки. Як тільки ми проходимо 1023 (максимальна кількість досяжних для однієї людини з двома руками по п’ять пальців кожна), припустимо, що ми продовжуємо третю руку, додавши додаткові руки, якщо потрібно.

Ваше завдання:

Напишіть програму або функцію, яка отримує вхід і виводить значення truthy / false, залежно від того, чи є вхід грубим числом.

Вхід:

Ціле число від 0 до 10 ⁹ (включно).

Вихід:

Кореневе / хибне значення, яке вказує, чи є вхід грубим числом.

Випробування:

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

Оцінка:

Це код-гольф , тому виграє найнижчий бал у байтах.

APL (dzaima / APL) , 5 байт

4∊32⊤

Спробуйте в Інтернеті!

4∊ є 4 членом

32⊤ до бази-32?

Regex (ECMAScript), 37 байт

Введення не одиничне, як довжина рядка xs.

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

Спробуйте в Інтернеті!

^
(
    (?=(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 байти

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

Спробуйте в Інтернеті!

Це банальне рішення, ви просто хочете перетворити на базу 32 і перевірити, чи є в ньому 4.

JavaScript (SpiderMonkey) , 26 байт

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

Спробуйте в Інтернеті!

Цікаво, що /4/.test(...)коштував ще один байт, ніж ....match(4).

Japt , 5 байт

sH ø4

Спробуйте в Інтернеті!

Пояснення

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

Рубі, 36 19 байт

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

Спробуйте в Інтернеті!

Збережено 17 байт методом @tsh .

APL + WIN, 10 байт

Підказки для введення цілого числа

4∊(6⍴32)⊤⎕

Відмічаючи шість рук, потрібно представити 10 ^ 9 перетворень у вектор 6 елементів базового представлення 32 і перевіряє, чи існує 4 в будь-якому елементі.

Perl 6 , 16 байт

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

Спробуйте в Інтернеті!

Перевіряє, чи є 4в базі 32 представлення числа. Повертає або Nil як помилковий, або Match, що містить a 4.

$2^5 = 32$

Python 2 , 34 32 байти

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

Спробуйте в Інтернеті!

2 байти завдяки tsh

машинний код x86, 17 байт

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

Вищеописані байти визначають функцію, яка приймає число як вхід в EAXрегістр, і повертає результат як булеве значення в EAXрегістрі ( EAX== 0, якщо вхід не є грубим номером;! EAX= 0, якщо вхід - грубе число ).

У читабельній людині мнемоніці:

; 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

Спробуйте в Інтернеті!

Джулія 1,0 , 25 байт

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

Спробуйте в Інтернеті!

Джулія 1,0 , 26 байт

Альтернатива, яка на 1 символ коротша, але на 1 байт довша, занадто погана, що ∈займає 3 байти в unicode

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

Спробуйте в Інтернеті!

05AB1E , 5 байт

32B4å

Порт відповіді APL @ Adám (dzaima / APL) .

Спробуйте в Інтернеті або перевірте всі тестові випадки .

Пояснення:

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

Католикон , 4 байти

ǔ?QǑ

Приймає число як рядок-256.

Спробуйте в Інтернеті!

Тестовий набір

C # (Visual C # Interactive Compiler) , 31 байт

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

Виводить, кидаючи виняток. Те, як перетворити одне число з десяткового на інше, полягає в тому, щоб ділити десяткове число на це число повторно, а решту приймати як цифру. Це ми робимо, і ми перевіряємо, чи будь-яка з цифр має значення 4 в базовій-32;

Спробуйте в Інтернеті!

J , 12 байт

4 e.32#.inv]

Спробуйте в Інтернеті!

R , 50 48 байт

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

Спробуйте в Інтернеті!

Зараз використовується акуратний матричний підхід (люб’язно надано @Giueseppe). Він генерує 5x7 матрицю бітів, перетворює це в ряд базових 32 цілих чисел і перевіряє наявність будь-яких 4с.

Python 3 , 43 байти

Перевіряє кожен 5-бітний шматок, щоб побачити, чи він грубий (рівний 4).

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

Спробуйте в Інтернеті!

C (gcc) , 34 байти

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

Спробуйте в Інтернеті!

Вугілля деревне , 6 байт

№⍘Ｎ³²4

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Виводить -s відповідно до того, наскільки грубе число. Пояснення:

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

Я використовую перетворення базових рядків, щоб уникнути необхідності розділяти числові літери для 32і 4.

Охайний , 18 байт

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

Спробуйте в Інтернеті! Перевіряє, чи 4є елементом base(32,x)(перетворення бази).

Haskell , 31 байт

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

Спробуйте в Інтернеті!

Cubix , 26 байт

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

Спробуйте в Інтернеті!

Намотується на куб довжиною ребра 3 наступним чином

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

Дивіться, як це працює

Досить основна реалізація, без усіх переадресацій:

• IS ініціює програму, натискаючи на вхід та 32 на стек
• %4-! отримує залишок і перевіряє, чи дорівнює 4 відніманням
• 1O@ вихід 1, якщо він був 4, і зупинка
• ;;, очистити стек і зробити ціле ділення
• p;? очистіть нижню частину стеку та перевірте результат ділення на 0
• O@ якщо div результат нульовий вихід і зупинка
• s поміняйте верхню частину стеку і починайте знову, починаючи з кроку 2

MATL , 8 байт

32YA52=a

Спробуйте в Інтернеті!

Пакетна, 77 45 байт

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

На основі цих тріщинних хакерів . Пояснення: Тільки 6 рук потрібно перевірити через обмежений діапазон (30 біт) входу, який потрібно підтримувати. Магічне число mеквівалентно 111111базовій 32, так що перша операція перемикає грубі біти на вхідному номері. Потім залишається знайти, яка з шести рук тепер дорівнює нулю.

машинний код x86, 14 байт

(той же машинний код працює у 16-бітному, 32-бітному та 64-бітному режимі. У 16-бітному режимі він використовує AX і DI замість EAX та EDI у 32 та 64-бітному режимі.)

Алгоритм: перевірте низькі 5 біт з x & 31 == 4, потім змініть праворуч на 5 біт і повторіть, якщо результат зсуву не дорівнює нулю.

Телефонує з C char isrude(unsigned n);відповідно до конвенції про виклик системи x86-64. 0 - неправда, не-0 - хибність (це асм, а не 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

Це використовує перевагу op al, imm8кодування короткої форми для AND і SUB. Я міг би використати XOR al,40 для рівності, але SUB швидше, тому що він може макрозливатися з JZ в єдину підгалузь і гілку взагалі в сім'ї Sandybridge.

Приємний факт: використання прапорця в результаті зміни на більш ніж 1 буде повільним для P6-сімейства (передній кінець, поки зміна не вийде), але це добре.

Виноска 1: Це функція мови складання, і x86 asm має jzі те jnz, і відповідно до мета я можу вибрати будь-який спосіб. Я не маю намір це відповідати C truthy / falesy.

Було зручно повертатися в AL замість EFLAGS, тож ми можемо описати функцію до компілятора C без обгортки, але мій вибір truthy / falesy не обмежений, використовуючи для випробування його C.

ES6, 31 30 26 байт

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

Не соромтеся висловлювати ідеї, як зменшити це далі, якщо такі є.

Сітківка 0,8.2 , 31 байт

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

Спробуйте в Інтернеті! Посилання включає тестові випадки. Виводить нуль, якщо число не є грубим. Працює шляхом перетворення вхідного сигналу в одинарний, а потім в базовий 32, який закодований урятом і підраховує кількість 4s в результаті.

Java 8, 40 33 байт

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

Порт відповіді APL @ Adám (dzaima / APL) .

Спробуйте в Інтернеті.

Пояснення:

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 байт

Виходи 4 для грубих чисел викидають виняток для негрубих чисел.

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

Спробуйте в Інтернеті!

Мова Вольфрама (Mathematica) , 37 байт 36 байт 29 байт

-2 байти Джонатана Фреха

#~IntegerDigits~32~MemberQ~4&

Спробуйте в Інтернеті!

31-байтне рішення:

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

Спробуйте в Інтернеті!

Java 8, 28 22 21 байт

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

Натхненний @ Кевін-cruijssen відповіді «s . Працює лише на 2 руки.

Спробуйте в Інтернеті!

Пояснення:

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