Некоторое время я сталкивался с проблемой при подсчете пальцев, в частности, то, что я могу сосчитать только до десяти. Мое решение этой проблемы состояло в том, чтобы посчитать двоичные числа на пальцах, поднять мой большой палец на один, мой указательный палец на два, большой палец и указательный палец на три и т. Д. Однако, когда мы добираемся до нас, мы сталкиваемся с небольшой проблемой. номер четыре. В частности, это требует, чтобы мы подняли средний палец, что приводит к довольно неудачному жесту, который обычно не принимается в обществе. Этот тип номера является грубым числом . Мы подходим к следующему грубому номеру в 36, когда мы поднимаем большой палец на нашей второй руке и средний палец нашей первой руки. Определение грубого числа - это любое число, которое в соответствии с этой системой подсчета приводит к тому, что мы ставим толькосредний палец любой руки. Как только мы передадим 1023 (максимальное число, достижимое для одного человека двумя руками по пять пальцев в каждой), предположим, что мы продолжим работу с третьей рукой, добавив дополнительные руки по мере необходимости.

Твое задание:

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

Входные данные:

Целое число от 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?

Регулярное выражение (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 как false, либо Match, содержащий a 4.

$2^5 = 32$

Python 2 , 34 32 байта

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

Попробуйте онлайн!

2 байта благодаря тш

Машинный код 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 байта в юникоде.

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

Попробуйте онлайн!

05AB1E , 5 байтов

32B4å

Порт ответа @ Adám APL (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 #) , 31 байт

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

Выходы, выбрасывая исключение. Способ преобразования одного числа из десятичного в другое основание состоит в том, чтобы разделить десятичное число на это основание несколько раз и взять остаток как цифру. Это то, что мы делаем, и мы проверяем, имеет ли какая-либо из цифр значение 4 в base-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;? очистить дно стека и проверить результат div на 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, так что первая операция переключает грубые биты во входном номере. Затем остается выяснить, какая из 6 раздач сейчас равна нулю.

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

(Тот же машинный код работает в 16-битном, 32-битном и 64-битном режимах. В 16-битном режиме он использует AX и DI вместо EAX и EDI в 32- и 64-битном режиме.)

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

Вызывается из C в char isrude(unsigned n);соответствии с соглашением о вызовах System V. x86-64. 0 - правда, не-0 - ложь (это asm, а не 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,4 для получения 0 на равенстве, но SUB работает быстрее, потому что он может слиться с JZ в один и тот же ответвление в семействе Sandybridge.

Интересный факт: использование флага-результата смещения более чем на 1 будет медленным на семействе P6 (передний конец останавливается, пока смена не сойдет), но это нормально.

Сноска 1: Это функция на ассемблере, и в x86 asm есть и то, jzи другое jnz, поэтому в соответствии с мета я могу выбрать любой путь Я не собираюсь, чтобы это соответствовало C истина / ложь.

Оказалось, что удобно возвращаться в AL вместо EFLAGS, поэтому мы можем описать функцию для компилятора C без оболочки, но мой выбор истины / фальши не ограничен использованием вызывающей стороны 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")

Порт ответа @ Adám APL (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<

Попробуйте онлайн!

Wolfram Language (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

Вдохновленный ответом @ kevin-cruijssen . Работает только на 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