한동안 나는 손가락으로 셀 때 특히 10까지 셀 수 없다는 문제에 부딪쳤다. 이 문제에 대한 나의 해결책은 내 손가락에 이진법으로 세어 내 엄지 손가락을 하나, 내 엄지 손가락을 두 개, 엄지 손가락과 집게 손가락을 세 개 등으로 올리는 것이 었습니다. 그러나 우리는 숫자 4 특히, 우리는 가운데 손가락을 올려야하므로 다소 불행한 몸짓이되는데 이는 일반적으로 사회에서 받아들이지 않습니다. 이 유형의 숫자는 무례한 숫자 입니다. 우리는 36 초에 다음 번 무례한 숫자에 도달합니다. 우리는 초침과 첫 손의 가운데 손가락에 엄지 손가락을 올립니다. 무례한 숫자의 정의는 계산이 시스템에서, 우리의 결과가 퍼팅, 임의의 숫자입니다 만어떤 손의 가운데 손가락. 1023을 통과하면 (한 사람이 도달 할 수있는 최대 수, 5 개의 손가락 두 손으로 각각), 세 번째 손을 계속하고 필요에 따라 추가 손을 추가한다고 가정합니다.

당신의 작업 :

입력이 무례한 지 여부에 따라 입력을 받고 참 / 거짓 값을 출력하는 프로그램 또는 함수를 작성하십시오.

입력:

0에서 10 ⁹ 사이의 정수 (포함).

산출:

입력이 무례한 지 여부를 나타내는 참 / 거짓 값입니다.

테스트 사례 :

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

채점 :

이것은 code-golf 이므로 바이트 단위의 최저 점수가 이깁니다.

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

자바 스크립트 (SpiderMonkey) , 23 바이트

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

온라인으로 사용해보십시오!

이것은 사소한 해결책입니다.베이스 32로 변환하고 4가 있는지 확인하고 싶습니다.

자바 스크립트 (SpiderMonkey) , 26 바이트

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

온라인으로 사용해보십시오!

/4/.test(...)바이트보다 1 바이트 더 비싸다는 것은 흥미 롭습니다 ....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]}

온라인으로 사용해보십시오!

@tsh 메소드로 17 바이트를 저장했습니다 .

APL + WIN, 10 바이트

정수 입력을위한 프롬프트

4∊(6⍴32)⊤⎕

10 ^ 9는 기본 32 표현의 6 개 요소로 구성된 벡터로 변환하기 위해 6 개의 손이 있어야하며 4가 어떤 요소에 있는지 확인합니다.

펄 6 , 16 바이트

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

온라인으로 사용해보십시오!

4숫자의 밑이 32 인 표현 이 있는지 확인합니다 . Nil을 false로 또는를 포함하는 Match를 반환합니다 4.

$2^5 = 32$

파이썬 2 , 34 32 바이트

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

온라인으로 사용해보십시오!

tsh 덕분에 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Ǒ

숫자를 base-256 문자열로 사용합니다.

온라인으로 사용해보십시오!

테스트 스위트

C # (Visual C # 대화식 컴파일러) , 31 바이트

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

예외를 발생시켜 출력합니다. 한 숫자를 10 진수에서 다른베이스로 변환하는 방법은 10 진수를 해당베이스로 반복해서 나누고 나머지를 숫자로 취하는 것입니다. 이것이 우리가하는 일이며, base-32에서 숫자 중 4가 있는지 확인합니다.

온라인으로 사용해보십시오!

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를 확인합니다.

파이썬 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).

하스켈 , 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@ 4 인 경우 출력 1 및 정지
• ;;, 스택을 정리하고 정수 나누기
• p;? 스택의 바닥을 정리하고 div 결과를 0으로 확인하십시오.
• O@ div 결과가 0으로 출력되지 않고 멈추는 경우
• s 스택 상단을 교체하고 위의 2 단계에서 다시 시작

MATL , 8 바이트

32YA52=a

온라인으로 사용해보십시오!

배치, 77 45 바이트

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

이 비트 트위들 링 해킹을 기반으로 합니다 . 설명 : 지원해야하는 입력의 제한된 범위 (30 비트)로 인해 6 개의 손만 확인하면됩니다. 매직 넘버 m는 111111베이스 32 와 동일 하므로 첫 번째 연산은 입력 번호에서 무례한 비트를 토글합니다. 그런 다음 6 개의 핸드 중 어느 것이 현재 0인지 찾아야합니다.

x86 기계 코드, 14 바이트

동일한 머신 코드는 16 비트, 32 비트 및 64 비트에서 작동합니다. 16 비트 모드에서는 32 및 64 비트 모드에서 EAX 및 EDI 대신 AX 및 DI를 사용합니다.

알고리즘 :로 낮은 5 비트를 확인한 x & 31 == 4다음 5 비트 씩 오른쪽 시프트하고, 시프트 결과가 0이 아닌 경우 반복하십시오.

char isrude(unsigned n);x86-64 시스템 V 호출 규칙에 따라 C에서 호출 할 수 있습니다. 0은 진실이며 0이 아닌 것은 거짓입니다 (이것은 C ^1이 아닌 asm입니다 ).

 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, imm8AND 및 SUB에 대한 짧은 형식 인코딩을 활용합니다 . XOR al,4평등에서 0을 생성하는 데 사용할 수 있었지만 SUB는 JZ를 사용하여 Sandybridge 제품군의 단일 하위 분기 지점으로 매크로 융합 할 수 있기 때문에 더 빠릅니다.

재미있는 사실 : P6 계열에서 1 이상의 교대 결과를 사용하면 P6 계열 (변속이 중단 될 때까지 프론트 엔드 마구간)이 느려 지지만 괜찮습니다.

각주 1 : 이것은 어셈블리 언어 기능이며, 86 ASM은 모두가 jz하고 jnz있으므로, 메타 따라 나도 방법을 선택할 수 있습니다. 나는 이것이 C 진실 / 거짓과 일치하지 않을 것입니다.

EFLAGS 대신 AL로 반환하는 것이 편리했기 때문에 래퍼없이 C 컴파일러에 함수를 설명 할 수 있지만 C 호출자를 사용하여 테스트 할 때 진실 / 거짓의 선택이 제한되지는 않습니다.

ES6, 31 30 26 바이트

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

더 줄일 수있는 방법에 대한 아이디어를 말씀하십시오.

레티 나 0.8.2 , 31 바이트

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

온라인으로 사용해보십시오! 링크에는 테스트 사례가 포함됩니다. 숫자가 무례하지 않으면 0을 출력합니다. 입력을 단항으로 변환 한 다음 단항 인코딩 된 기준 32로 변환 4하고 결과에서 s 수를 계산하여 작동합니다 .

자바 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 바이트

Jonathan Frech의 -2 바이트

#~IntegerDigits~32~MemberQ~4&

온라인으로 사용해보십시오!

31 바이트 솔루션 :

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

온라인으로 사용해보십시오!

자바 8, 28 22 21 바이트

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

@ kevin-cruijssen 의 답변에서 영감을 얻었습니다 . 두 손에서만 작동합니다.

온라인으로 사용해보십시오!

설명:

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