Twoje zadanie jest proste: napisz program, który przyjmuje liczbę całkowitą jako dane wejściowe i wyprowadza go, jeśli był nieparzysty, i nie robi nic innego (nie jest dozwolone zatrzymywanie). Wyzwanie polega na tym, że można używać tylko nieparzystych bajtów.

Możesz opcjonalnie dołączyć końcowy znak nowej linii do wyniku.

To jest golfowy kod, wygrywa najkrótsza odpowiedź w (nieparzystych) bajtach.

Standardowe luki są zabronione. Ponadto nie można używać wersji językowych, które są nowsze niż publikacja tego wyzwania.

Przykładowe wejście> wyjście:

13 > 13

42 >

Japt -f , 1 bajt

u

uma wartość znaku char wynoszącą 117.

Spróbuj

Lenguage , 645529908926937253684695788965635909332404360034079 9394157991500940492270727190763049448735 1174269748937617561533841898064735499551 2293382937520069758100171520285

Jest to mniej więcej równe 2 bajtom dwuzdecylowym.

Plik tłumaczy się na następujący program typu „brainfuck”:

,[<<+>+>-]<[>>+<<-]+>>[-[->]<]<[<[<]>.<]

Pobiera dane wejściowe jako kod ASCII, z maksymalną wartością 256. Używa zawijania.

x86-64 Kod maszynowy, 8 bajtów

Zainspirowany rozwiązaniem Bruce'a Forte'a , ale nieco poniżej par. :-)

8D 07          lea      eax, [rdi]    ; put copy of input parameter in EAX
D1 EF          shr      edi, 1        ; shift LSB into CF
             InfiniteLoop:
F3 73 FD       rep jnc  InfiniteLoop  ; test CF; infinite loop back here if input was even
C3             ret                    ; return with original input in EAX if it was odd

Pojedynczy parametr liczby całkowitej jest brany do EDIrejestru, zgodnie z konwencją wywoływania AMD64 Systemu V.

Kopia tej wartości jest początkowo tworzona i umieszczana, EAXaby w razie potrzeby mogła zostać zwrócona. (LEA jest używany zamiast normalnego, MOVponieważ potrzebujemy instrukcji z nieparzystymi bajtami).

Następnie wartość w EDI jest przesuwana w prawo o 1, co umieszcza przesunięty bit w chorągiewce przenoszenia (CF). Ten bit będzie wynosił 0, jeśli liczba była parzysta, lub 1, jeśli był nieparzysty.

Następnie testujemy CF za pomocą JNCinstrukcji, która rozgałęzia się tylko wtedy, gdy CF ma wartość 0 (tzn. Liczba była parzysta). Oznacza to, że przejdziemy do nieskończonej pętli dla parzystych wartości. W przypadku wartości nieparzystych wypadamy i wartość oryginalna (wEAX ).

Jest jednak trochę sztuczki z JNCinstrukcją - ma REPprefiks! Zwykle REPprzedrostki są używane tylko z instrukcjami łańcuchowymi, ale ponieważ zarówno instrukcje Intel, jak i AMD zgadzają się, że nieistotne / zbędne / nadmiarowe REPprefiksy są ignorowane, rzucamy tutaj jedną z instrukcji rozgałęzienia, aby miała długość 3 bajtów. W ten sposób względne przesunięcie zakodowane w instrukcji skoku jest również nieparzyste. (I oczywiście,REP sam w sobie jest prefiksem nieparzystym).

Dzięki Bogu RETjest kodowany za pomocą nieparzystego bajtu!

Wypróbuj online!

W przypadku, gdy nie myślisz, że zwrócenie wartości, jeśli jest nieparzysta, lub przejście do nieskończonej pętli, jeśli jest ona parzysta (abyś nigdy nie powrócił), spełnia wymagania „wyjściowe” wyzwania, lub po prostu chcesz czegoś bardziej interesującego, oto funkcja który wypisuje wartość na port szeregowy (ale tylko jeśli jest nieparzysty, oczywiście).

x86-64 Kod maszynowy (wyjście do portu szeregowego), 17 bajtów

8D 07         lea   eax, [rdi]   ; put copy of input parameter (EDI) in EAX

B1 F7         mov   cl, 0xf7     ; put 0xF7 into low-order bits of CX
B5 03         mov   ch, 0x03     ; put 0x03 into high-order bits of CX
FE C1         inc   cl           ; increment low-order bits of CX to 0xF8 (so all together it's now 0x3F8)
0F B7 D1      movzx edx, cx      ; move CX to DX ("MOV DX, CX" would have a 16-bit prefix of 0x66)

D1 EF         shr   edi, 1       ; shift LSB of input parameter into CF
73 01         jnc   IsEven       ; test CF: branch if 0 (even), fall through if 1 (odd)
EF            out   dx, eax      ; output EAX (original input) to I/O port 0x3F8 (in DX)
            IsEven:
C3            ret                ; return

To, co sprawia, że ​​jest to trochę bardziej interesujące, to fakt, że kod robi więcej , co oznacza, że ​​trudniej było to wszystko zrobić za pomocą instrukcji zakodowanych przy użyciu tylko nieparzystych bajtów. Oczywiście oznacza to również, że zawodzi w golfie kodowym, więc jest to swego rodzaju kompromis - czy chcesz interesujących i wymagających, czy może krótkich?

W każdym razie używa OUTinstrukcji x86 do zapisu na porcie we / wy 0x3F8, który jest standardowym portem szeregowym COM1 na komputerze. Zabawne jest oczywiście to, że wszystkie standardowe porty I / O (szeregowe i równoległe) mają parzyste adresy, więc nie można ich po prostu zakodować jako bezpośrednich OUTinstrukcji ani przenieść bezpośrednio do rejestru. Musisz zainicjować wartość o jedną mniejszą niż wartość rzeczywista, a następnie zwiększyć wartość wartość w rejestrze. Ograniczasz się również do używania niektórych rejestrów do manipulacji, ponieważ potrzebujesz rejestrów, które są zakodowane przy użyciu nieparzystych bajtów w instrukcji, gdy są używane jako operandy.

Musiałem także zainicjować DXrejestr (za pośrednictwem CXrejestru) na górze pętli, chociaż jest to potrzebne tylko wtedy, gdy wartość jest nieparzysta, aby zapewnić, że JNCinstrukcja będzie miała nieparzyste przesunięcie. Ponieważ jednak pomijamy OUTinstrukcję, wszystko, co robi ten kod, to cykle marnotrawstwa i rejestry scratchowania clobbera; tak naprawdę nie wyprowadza nic , więc nie łamie zasad.

Wreszcie funkcja ta powróci (po wykonaniu lub nie wykonaniu danych wyjściowych do portu szeregowego) z pozostawioną wartością wejściową EAX. Ale to tak naprawdę nie łamie żadnych zasad; wszystkie funkcje w języku asemblera powrócą z wartością w EAX- pytaniem jest tylko, czy jest to wartość znacząca, czy wartość śmieciowa . Jest to określone w dokumentacji funkcji (w zasadzie, czy zwraca wartość, czy zwraca)void ), aw tym przypadku dokumentuję ją jako nie zwracającą wartości. :-)

Brak linku TIO dla tego, ponieważ nie implementuje on wyjścia do portów szeregowych. Potrzebujesz prawdziwego żelaza lub wyobraźni.

Galaretka , 2 bajty

ẋḂ

Znaki te odpowiadają bajtów 0xF7 i 0xBF w stronie kodowej Jelly .

Wypróbuj online!

05AB1E , 3 bajty

Éi=

Kod odpowiada bajtowym wartościom C9,69,3Dlub 201,105,61wszystkim nieparzystym.

Wypróbuj online!

Wyjaśnienie

É     # input % 2 == 1
 i    # if true
  =   # print without popping

MATL , 3 bajty

o?G

MATL używa znaków ASCII, więc o?Godpowiada bajtom (dziesiętnie) 111,63 , 71.

Wypróbuj online!

Wyjaśnienie

o     % Push (implicit) input modulo 2
?     % If nonzero
  G   %   Push input
      % End (implicit)
      % Display stack contents (implicit)

Haskell , 36 33 bajtów

c[1]=1;c[m]=1+1+c[m-1-1];o	m=c[m]

Wypróbuj online!

Zastosowanie: o 7yiedls 7,o 8 wchodzi w nieskończoną pętlę.

Rzeczywisty algorytm to

o 1 = 1
o m = 2 + o(m-2)

Pierwszym problemem, z którym się spotkałem, był brak miejsca, a (ponieważ funkcja, októra przyjmuje argument, mjest zwykle definiowana jako o m=...lub o(m)=.... Jednak dowiedziałem się, że komentarz wbudowany {- some comment -}działa również jako ogranicznik tokena, więc definicja o{--}m=...jest możliwa na podstawie podanych reguł. Edycja: Ørjan Johansen wskazał, że zamiast spacji można użyć znaku tabulacji, oszczędzając trzy bajty: o m=...

Drugim problemem było połączenie rekurencyjne o(m-2). -2jest po prostu -1-1, ale tutaj sztuczka komentarza nie działa, ponieważ wymagane są nawiasy. Naprawiłem to, pozwalając na pracę funkcji na liście jednoelementowy, zawierający numer: o[m-2]jednak, jak nie jest to standardowy sposób wnoszenia wkładu, ja zlecone obliczeń do funkcji pomocnika c, który działa na listach i rozmowy cz októrego ma poprawny format .

Python REPL, 38 bajtów

Pobiera dane wejściowe jako wartość poprzedniego wyrażenia za pomocą _. Wyjściowy będzie ciąg znaków (ciąg reprezentujący liczbę całkowitą dla nieparzystego lub pusty ciąg dla parzystego).

'%s'%[['']+[_]][-1][[_%[1+1][-1]][-1]]

Wypróbuj online

Aby uruchomić go w rzeczywistej powłoce, możesz wypróbować tutaj . Wpisz dane wejściowe, naciśnij Enter. Wklej kod, naciśnij Enter.

Wyjaśnienie:

Wymyślenie tego zajęło trochę czasu. Nie ma mnożenia, rozgałęziania, krojenia, przecinków, okresów, importu, nawiasów, nie exec, nie eval, nieprint żadnych funkcji. Mam jedno rozwiązanie działające na tym wyjściu za pomocą stderr, ale potem zdałem sobie sprawę, że musimy wyprowadzić rzeczywistą liczbę całkowitą, a nie tylko wartość true / falsey.

Używam nawiasów zamiast nawiasów z [expression][-1]. Uproszczenie, które zamienia powyższy kod w'%s'%(['']+[_])[_%(1+1)] .

Ponieważ nie może być przecinków, użyłem dodawania listy do utworzenia ['',_]. Korzystając z formatowania ciągów, uzyskuje się pożądany wynik.

CJam, 6 bajtów

q_iY%%

113 95 105 89 37 37

Ten program pobiera mod 2 wejścia (nazwij go r ) i wypisuje co r- ty znak w ciągu wejściowym. Jeśli liczba wejściowa jest nieparzysta, drukuje cały ciąg, ale jeśli zostanie poproszony o wydrukowanie co 0 znaku, program zgłasza błąd.

Wypróbuj tutaj

Cubix , 23 19 17 bajtów

;;u!I1)%/;O=!;;/;

Spróbuj!

@, która kończy program Cubix, to ascii 64, więc niestety po prostu wchodzi ona w nieskończoną pętlę po przetestowaniu dziwności. Brak linku TIO, ponieważ upłynie limit czasu.

= (ascii 61) nie ma akcji w Cubix.

Jest to niewielka modyfikacja wcześniejszego algorytmu (ten sam # bajtów), który faktycznie działa dla liczb całkowitych ujemnych.

Wersja kostki:

    ; ;
    u !
I 1 ) % / ; O =
! ; ; / ; . . .
    . .
    . .

Algorytm:

• I (73) : wczytaj wpis jako liczbę
• 1 (49) : naciśnij 1
• ) (41) : przyrost
• % (37) : weź mod
• / (47) : Skręć w lewo
• ! (33) : pomiń następną instrukcję, jeśli jest nieparzysta
  • 1;;/; ;is (59): przygotowuje stos na wyjście
  • O (79) : Dane wyjściowe jako liczba.
  • Następnie ponownie wprowadza algorytm, ale Iodczytuje 0koniec danych wejściowych, więc gwarantujemy wejście do parzystej gałęzi
• u (117) : zawracanie w prawo
• ;;;!I : pętla, skutecznie nic nie robiąc.

Węgiel , 9 bajtów

¿﹪Ｉθ÷χ⁵→θ

Wypróbuj online!

Zasadniczo drukuje dane wejściowe w prawo, jeśli nie jest to wielokrotność 10/5 ( ²znak znajduje się nawet na stronie kodowej Węgiel ). Używane znaki to:

• ¿: kod BF.
• ﹪: kod A5.
• Ｉ: kod C9.
• θ: kod F1.
• ÷: kod AF.
• χ: kod E3.
• ⁵: kod B5.
• →: kod 13.

W rzeczywistości →koniec jest zbędny, ale potem zobaczyłem, że odpowiedź musiała mieć dziwną długość ...

Wyjaśnienie:

¿      if (
 ﹪      Modulo (
  Ｉθ      the input as number,
  ÷χ⁵      χ (predefined value: 10) divided by 5 = 2 ) [is 1])
 →θ      then print rightwards the input as string

kod maszynowy x86_64 (Linux), 12 11 bajtów

Niestety 0x80jest parzysty, ale i tak się udało (zakładając, że „nic nie robi” oznacza nie wracać):

0000000000000000 <odd>:
   0:   8d 07                   lea  (%rdi), %eax
   2:   83 e7 01                and    $0x1, %edi
   5:   83 ff 01                cmp    $0x1, %edi
   8:   75 fb                   jne       5  <odd+0x5>
   a:   c3                      retq

-1 bajt, dzięki @CodyGray!

Wypróbuj online!

Mathematica, 20 bajtów

Wydają się być pierwszym rozwiązaniem w języku nie golfowym.

a=1+1;g[i_/;!a\[Divides]i]=i

W MacintoshChineseTraditionalkodowaniu znaków. \[Divides]jest{161, 253} (2 bajty)

Alternatywna wersja (23 bajty)

\[CapitalAlpha]=1+1;\[CapitalGamma][\[CapitalChi]_/;\[CapitalAlpha]\[LeftFloor]\[CapitalChi]/\[CapitalAlpha]\[RightFloor]\[NotEqual]\[CapitalChi]]=\[CapitalChi]

lub (pokazany w Unicode)

Α=1+1;Γ[Χ_/;Α⌊Χ/Α⌋≠Χ]=Χ

w Symbol kodowaniu znaków. (używaj tylko znaków 1-bajtowych)

Rozwiązanie definiuje funkcję g(lub Γ), która ocenia wejście, gdy dane wejściowe są nieparzyste, i dosłownie „nic nie rób” (nie ocenia), gdy dane wejściowe są parzyste.

Perl, 54 bajty

Wymaga -E.

Naprawdę bardzo podobało mi się to wyzwanie, myślę, że chciałbym spróbować poprawić tę odpowiedź, ale myślę, że może to być najkrótszy czas, jaki mogę zrobić. Bawię się tymi odpowiedziami od kilku dni, ale czuję, że jestem zadowolony z 54-bajtowego rozwiązania!

s//A_=Y[;A_=A_%O?A_W''/;y/#A-_/#-A/;s/[#-}]+/uc/ee;say

Wypróbuj online!

Wyjaśnienie

Domyślnie działa większość funkcji łańcuchowych Perla $_, które są puste, aby rozpocząć.

Po pierwsze, s//A_=Y[;A_=A_%O?A_W''/zastępuje pusty ciąg w $_z A_=Y[;A_=A_%O?A_W'', a następnie y/#A-_/#-A/zastępuje znaki oparte na poniższej liście (powyżej char char staje poniżej):

#ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
#$%&'()*+,-./0123456789:;<=>?@A

które aktualizacje $_zawierają $_=<>;$_=$_%2?$_:''. Obok s/[#-}]+/uc/eezastępuje wszystkie znaki [#-}]+z uc. Bez /eetego byłby to tylko ciąg uc, ale /eeocenia zawartość ciągu dwa razy. Pierwsza ocena zwraca wynik uc, który jest wersją wielkiej litery, $_ale ponieważ $_nie zawiera znaków alfabetycznych, po prostu zwraca cały ciąg, a następnie drugi /eocenia ciąg ponownie, który ustawia $_się na $_(numer wejściowy) lub w ''zależności od tego, czy lub nie liczba jest nieparzysta lub parzysta.

Wreszcie, ponieważ $_teraz zawiera to, co chcemy, nazywamy say(co jest wymagane -Ezamiast -e), które odbitki $_poprzedzane są nową linią.

Alternatywny Perl, 93 bajty

Kod 92 bajty + 1 dla -p, co, jak sądzę, uczyniłoby go niekonkurencyjnym.

s//_/g;s//uc/e;y/\x09-\x0b/_/;s/____/}[/;s/___/%C]/;s/_/{''H/;y/'{}1CDGH/'-)1-3+--/;s/[#-}]+/uc/ee

Zawiera zakładkę i pionową zakładkę w y///, oznaczoną jako \x09i \x0b.

Wypróbuj online!

LOGO , 390 46 52 50 bajtów

[ask    1   se[make]iseq    1-3 cos ?/ask   1[1/sum 1   179]?]

Jest to lista szablonów, która zwraca dane wejściowe, jeśli dane wejściowe są nieparzyste i powodują błąd, jeśli dane wejściowe są parzyste.

Stosowanie:

show invoke [ask ... (paste code here) ... ] 5

wydajność

5

ponieważ 5 jest nieparzyste, i

invoke [ask ... (paste code here) ... ] 6

spowoduje błąd, ponieważ 6 jest parzyste.

TI-BASIC, 14 bajtów

Input Q
sinֿ¹(gcd(Q²,int(e
Q

Powoduje to błąd domeny (brak drukowania na ekranie głównym) na parzystej liczbie.

Input Q             Q is a variable with an odd code. We cannot use "Ans" as it's even.

            int(e   floor(e) = 2; "2" is even.
         Q²         Q may be negative, so we square it which preserves parity.
     gcd(Q²,int(e   1 if Q is odd; 2 if Q is even.
sinֿ¹(gcd(Q²,int(e   Error iff Q is even.

Q                   If there was no error, print Q.

Pyth , 14 11 10 9 bajtów

I + Q_ + K / Q + 3_1KQ 
I! SIcQ + 3_1Q
 I! U + 1_GQ1Q
? u + 1_GQ1k

Zestaw testowy .

Japt , 4 bajty

u)çU

Japt korzysta z ISO / IEC 8859-1 , więc odpowiada to (dziesiętnie) 117 41 231 85.

Przetestuj online!

Wyjaśnienie

Uu)çU   Implicit: U = input integer
Uu)     Return Python-style U % (missing argument = 2). This gives 1 if U is odd, 0 if even.
   çU   Implicitly convert U to a string and repeat it that many times.
        Implicit: output result of last expression

Najpierw wypróbowałem rozwiązania przy użyciu p, w zasadzie çz odwrotnymi argumentami. Jednak pwykonuje potęgowanie, jeśli jego lewy argument jest liczbą, więc musielibyśmy jawnie przekonwertować go na ciąg. To rozwiązanie okazuje się być bajtem krótszym, poza tym, że nie zawiera żadnych nieparzystych bajtów.

dc , 21 bajtów

[c]sa?kKKCI-1;1k%1!=a

Dziesiętny: 91 99 93 115 97 63 107 75 75 67 73 45 49 59 49 107 37 49 33 61 97

Zgodnie z tym domyślnie IO, program ten pozostawia wejście na głównym stosie jeśli jest to dziwne i opróżnia stosie inaczej. Można to potwierdzić, dodającf polecenie debugowania na końcu programu, jak ma to miejsce na stronie TIO.

Wypróbuj online!

Wyjaśnienie

[    # Begin macro definition.
 c   # Clear the main stack.
]sa  # End macro definition and push the macro into register "a".
?k   # Prompt for input and store it into precision parameter "k".
KK   # Push two copies of the input to the main stack.
CI-  # Push C-I = 12-10 = 2 to the main stack  
1;1  # Push the value stored in the first index of array "1" (0 by default) 
     # to the main stack. 
k    # Push 0 into parameter "k" to reset the precision (otherwise the modulus 
     # function will not work correctly).
%    # Push the input (mod 2) to the main stack.
1!=a # If the input (mod 2) does not equal 1, execute the macro in register "a".
f    # OPTIONAL: Output the contents of the main stack.

TI-Basic, 18 bajtów

Zaoszczędzono 2 bajty dzięki lirtosiast

:Prompt Q
:While 5Q/ᴇ1-int(5Q/ᴇ1
:Q

w bajtach (+2 nowego wiersza = 3F)

:Prompt Q
 DD     51
:While 5Q/ᴇ1-int(5Q/ᴇ1
 D1    35 3B B1  35 3B  
        51 31     51 31
         83 71     83
:Q
 51

Zobacz http://tibasicdev.wikidot.com/one-byte-tokens

MathGolf , 3 bajty

¥{k

Wypróbuj online!

Używane bajty to 157, 123, 107 .

Wyjaśnienie

¥     Input modulo 2
 {    Loop that many times
  k   Push input

Bash , 31 bajtów

read a
[ $[a%2] = 0 ] ||echo $a

Wypróbuj online!

Wyjaśnienie:

read a                   reading the input and define it on the variable a
[ $[a%2] = 0 ]      outputs exit status 0 when a/2 is 0 and exit status 1 if not.
||                           evaluates only when the exit status left of it is 1
echo $a                displays the variable a