Od pewnego czasu mam problem z liczeniem na palcach, a mianowicie, że mogę policzyć tylko do dziesięciu. Moim rozwiązaniem tego problemu było policzenie dwójkowe na moich palcach, odłożenie kciuka na jeden, palca wskazującego na dwa, kciuka i palca wskazującego na trzy itd. Jednak napotykamy na pewien problem, kiedy dojdziemy do numer cztery. W szczególności wymaga od nas podniesienia środkowego palca, co skutkuje raczej niefortunnym gestem, co zwykle nie jest akceptowane w społeczeństwie. Ten typ liczby jest nieuprzejmy . Dochodzimy do kolejnego nieuprzejmego numeru na 36, ​​kiedy podnosimy kciuk na drugiej dłoni i środkowym palcu pierwszej ręki. Definicja nieuprzejmej liczby to dowolna liczba, która w tym systemie liczenia powoduje, że tylko wystawiamyśrodkowy palec dowolnej dłoni. Gdy miniemy 1023 (maksymalna liczba osiągalna dla jednej osoby, dwiema pięcioma palcami każda), załóżmy, że kontynuujemy trzecią rękę, z dodatkowymi rękami dodanymi w razie potrzeby.

Twoje zadanie:

Napisz program lub funkcję, która odbiera dane wejściowe i wyświetla wartość prawda / fałsz na podstawie tego, czy dane wejściowe są liczbą nieuprzejmą.

Wejście:

Liczba całkowita od 0 do 10 ⁹ (włącznie).

Wynik:

Wartość prawda / fałsz wskazująca, czy dane wejściowe są liczbą nieuprzejmą.

Przypadki testowe:

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

Punktacja:

To jest golf golfowy , więc wygrywa najniższy wynik w bajtach.

APL (dzaima / APL) , 5 bajtów

4∊32⊤

Wypróbuj online!

4∊ jest 4 członkiem

32⊤ do-base-32?

Regex (ECMAScript), 37 bajtów

Dane wejściowe są jednostronne, podobnie jak długość ciągu xs.

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

Wypróbuj 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 bajty

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

Wypróbuj online!

To banalne rozwiązanie, wystarczy przekonwertować na bazę 32 i sprawdzić, czy jest w niej 4.

JavaScript (SpiderMonkey) , 26 bajtów

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

Wypróbuj online!

To interesujące, że /4/.test(...)kosztowało o jeden bajt więcej niż ....match(4).

Japt , 5 bajtów

sH ø4

Wypróbuj online!

Wyjaśnienie

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

Ruby, 36 19 bajtów

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

Wypróbuj online!

Zapisano 17 bajtów metodą @tsh .

APL + WIN, 10 bajtów

Monity o wprowadzenie liczby całkowitej

4∊(6⍴32)⊤⎕

Zauważmy, że sześć rąk jest wymaganych do przedstawienia 10 ^ 9 konwersji na wektor 6 elementów reprezentacji podstawowej 32 i sprawdza, czy 4 istnieje w dowolnym elemencie.

Perl 6 , 16 bajtów

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

Wypróbuj online!

Sprawdza, czy 4w bazie 32 znajduje się reprezentacja liczby. Zwraca zero jako fałsz lub dopasowanie zawierające 4.

$2^5 = 32$

Python 2 , 34 32 bajty

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

Wypróbuj online!

2 bajty dzięki tsh

Kod maszynowy x86, 17 bajtów

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

Powyższe bajty definiują funkcję, która przyjmuje liczbę jako dane wejściowe do EAXrejestru i zwraca wynik jako wartość logiczną w EAXrejestrze ( EAX== 0, jeśli dane wejściowe nie są liczbą podstawową;! EAX= 0, jeśli dane wejściowe są liczbą podstawową ).

W czytelnych dla człowieka mnemonikach zestawu:

; 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

Wypróbuj online!

Julia 1.0 , 25 bajtów

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

Wypróbuj online!

Julia 1.0 , 26 bajtów

Alternatywą jest 1 znak krótszy, ale 1 bajt dłuższy, szkoda, że ∈zajmuje 3 bajty w Unicode.

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

Wypróbuj online!

05AB1E , 5 bajtów

32B4å

Odpowiedź portu APL (dzaima / APL) na @ Adám .

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

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

Catholicon , 4 bajty

ǔ?QǑ

Pobiera liczbę jako łańcuch podstawowy-256.

Wypróbuj online!

Zestaw testowy

C # (interaktywny kompilator Visual C #) , 31 bajtów

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

Dane wyjściowe przez zgłoszenie wyjątku. Sposób, w jaki zamieniasz jedną liczbę z dziesiętnej na inną, polega na wielokrotnym dzieleniu liczby dziesiętnej przez tę bazę i przyjmowaniu reszty jako cyfry. To właśnie robimy i sprawdzamy, czy którakolwiek cyfra ma wartość 4 w bazie-32;

Wypróbuj online!

J , 12 bajtów

4 e.32#.inv]

Wypróbuj online!

R , 50 48 bajtów

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

Wypróbuj online!

Wykorzystuje teraz staranne podejście oparte na macierzy (dzięki uprzejmości @Giueseppe). Generuje matrycę 5x7 bitów, konwertuje ją na szereg liczb całkowitych bazowych 32 i sprawdza, czy są jakieś 4.

Python 3 , 43 bajty

Sprawdza każdy 5-bitowy fragment, aby sprawdzić, czy jest niegrzeczny (równy 4).

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

Wypróbuj online!

C (gcc) , 34 bajty

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

Wypróbuj online!

Węgiel , 6 bajtów

№⍘Ｎ³²4

Wypróbuj online! Link jest do pełnej wersji kodu. Wyprowadza -s zgodnie z tym, jak niegrzeczna jest liczba. Wyjaśnienie:

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

Używam konwersji ciągów znaków, aby uniknąć konieczności oddzielania literałów liczbowych dla 32i 4.

Tidy , 18 bajtów

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

Wypróbuj online! Sprawdza, czy 4jest elementem base(32,x)(konwersja podstawowa).

Haskell , 31 bajtów

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

Wypróbuj online!

Cubix , 26 bajtów

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

Wypróbuj online!

Owija się w sześcian o długości krawędzi 3 w następujący sposób

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

Zobacz, jak biegnie

Dość podstawowa implementacja, bez wszystkich przekierowań:

• IS inicjuje program, przesuwając wejście i 32 na stos
• %4-! pobiera resztę i sprawdza, czy wynosi 4 przez odjęcie
• 1O@ wyjście 1, jeśli było 4 i zatrzymanie
• ;;, posprzątaj stos i dziel liczbę całkowitą
• p;? oczyść spód stosu i sprawdź wynik div dla 0
• O@ jeśli div spowoduje zero wyjścia i zatrzymania
• s zamień wierzch stosu i zacznij od kroku 2 powyżej

MATL , 8 bajtów

32YA52=a

Wypróbuj online!

Partia, 77 45 bajtów

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

Na podstawie tych nieco kręcących się hacków . Objaśnienie: Należy sprawdzić tylko 6 rąk z powodu ograniczonego zakresu (30 bitów) wejścia, które musi być obsługiwane. Magiczna liczba mjest równoważna z 111111bazą 32, więc pierwsza operacja przełącza nieuporządkowane bity w liczbie wejściowej. Następnie pozostaje ustalić, która z 6 rąk ma teraz zero.

kod maszynowy x86, 14 bajtów

(ten sam kod maszynowy działa w trybie 16-bitowym, 32-bitowym i 64-bitowym. W trybie 16-bitowym używa AX i DI zamiast EAX i EDI w trybie 32 i 64-bitowym).

Algorytm: sprawdź niskie 5 bitów za pomocą x & 31 == 4, następnie przesuń w prawo o 5 bitów i powtórz, jeśli wynik przesunięcia jest niezerowy.

Możliwość char isrude(unsigned n);wywołania z C zgodnie z konwencją wywoływania Systemu x86-64. 0 to prawda, nie-0 to fałsz (to jest asm, a nie 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

Wykorzystuje to krótkie op al, imm8kodowanie dla AND i SUB. Mógłbym kiedyś XOR al,4wygenerować 0 na równości, ale SUB jest szybszy, ponieważ może makro połączyć się z JZ w jeden U-sub i rozgałęzienie w rodzinie Sandybridge.

Ciekawostka: użycie wyniku zmiany o więcej niż 1 będzie powolne w rodzinie P6 (przeciągnięcia frontonu aż do wycofania się zmiany), ale to w porządku.

Przypis 1: Jest to funkcja języka asemblera, a x86 asm ma jedno jzi drugie jnz, więc zgodnie z meta mogę wybrać jeden z dwóch sposobów. Nie zamierzam tego dopasowywać do prawdy / fałszu C.

Okazało się, że wygodne jest zwracanie w AL zamiast EFLAGS, więc możemy opisać tę funkcję kompilatorowi C bez opakowania, ale mój wybór prawdy / fałszu nie jest ograniczony przez użycie wywołującego języka C do przetestowania go.

ES6, 31 30 26 bajtów

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

Nie krępuj się zgłaszać pomysły dotyczące dalszego ograniczenia, jeśli w ogóle.

Retina 0.8.2 , 31 bajtów

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

Wypróbuj online! Link zawiera przypadki testowe. Zwraca zero, chyba że liczba jest grubiańska. Działa poprzez konwersję danych wejściowych na unarną, a następnie na unarnie zakodowaną bazę 32 i zliczanie liczby 4s w wyniku.

Java 8, 40 33 bajtów

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

Odpowiedź portu APL (dzaima / APL) na @ Adám .

Wypróbuj online.

Wyjaśnienie:

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 bajtów

Dane wyjściowe 4 dla nieuprzejmych liczb generują wyjątek dla nieuprzejmych liczb.

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

Wypróbuj online!

Wolfram Language (Mathematica) , 37 bajtów 36 bajtów 29 bajtów

-2 bajty Jonathan Frech

#~IntegerDigits~32~MemberQ~4&

Wypróbuj online!

31-bajtowe rozwiązanie:

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

Wypróbuj online!

Java 8, 28 22 21 bajtów

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

Zainspirowany @ Kevin-cruijssen odpowiedź „s . Działa tylko na 2 ręce.

Wypróbuj online!

Wyjaśnienie:

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