Ваше завдання просте: написати програму, яка отримує ціле число у вигляді введення та виводить його, якщо воно було непарним, а нічого не робить інакше (не зупиняється). Завдання полягає в тому, що ви можете використовувати лише непарні байти.

Ви можете додатково додати до виводу тривалу нову лінію.

Це кодовий гольф, найкоротша відповідь у (непарних) байтах.

Стандартні лазівки заборонені. Крім того, ви не можете використовувати версії мов, які новіші, ніж публікація цього виклику.

Приклад введення> вихід:

13 > 13

42 >

Japt -f , 1 байт

u

uмає значення char-коду 117.

Спробуй це

Lenguage , 645529908926937253684695788965635909332404360034079 9394157991500940492270727190763049448735 1174269748937617561533841898064735499551 2293382937520069758100171517157001127181301301301301301301301301301301301301301302

Це приблизно дорівнює 2 дуодециллионам байт.

Файл перекладається на таку програму "мозговий ебан":

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

Вводиться як ASCII-код з максимальним значенням 256. Використовує обгортку.

x86-64 Машинний код, 8 байт

Натхненний рішенням Брюса Форте , але трохи під номіналом. :-)

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

Один цілий параметр приймається в EDIрегістр, дотримуючись конвенції про виклик System V AMD64.

Спочатку робиться копія цього значення та вкладається, EAXщоб його можна було повернути за потреби. ( LEAвикористовується замість звичайного, MOVоскільки нам потрібна інструкція з непарними байтами.)

Потім значення in EDIзміщується вправо на 1, що розміщує зміщений біт в прапор перенесення (CF). Цей біт буде 0, якщо число парне, або 1, якщо воно було непарним.

Потім ми тестуємо CF за допомогою JNCінструкції, яка розгалужується лише у тому випадку, якщо CF дорівнює 0 (тобто число було парним). Це означає, що ми підемо у нескінченний цикл для рівних значень. Для непарних значень ми пробиваємося і EAXповертаємо початкове значення (в ).

JNCХоча є трохи хитрощів із інструкцією, хоча він має REPпрефікс! Зазвичай REPпрефікси використовуються лише зі строковими інструкціями, але оскільки посібники Intel та AMD погоджуються з тим, що ірелевантні / зайві / надлишкові REPпрефікси ігноруються, ми кидаємо один на інструкцію гілки, щоб зробити його тривалістю 3 байти. Таким чином, відносне зміщення, яке кодується в інструкції про стрибок, також є дивним. (І, звичайно, REPсам по собі є незвичайним префіксом.)

Слава доброту RETкодується за допомогою непарного байта!

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

Якщо ви не думаєте, що повернення значення, якщо воно непарне або йде в нескінченний цикл, якщо воно парне (щоб ви ніколи не поверталися) задовольняє вимогам "виходу" завдання, або ви просто хочете щось цікавіше, ось функція що виводить значення на послідовний порт (але, тільки, якщо це дивно, звичайно).

x86-64 Код машини (вихід на послідовний порт), 17 байт

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

Що робить це трохи цікавіше, це те, що код робить більше , а це означає, що зробити це все складніше, використовуючи інструкції, кодовані за допомогою лише непарних байтів. Звичайно, це також означає, що він не спрацьовує при коді гольфу, тож це свого роду компроміс - хочеш цікавого та складного, чи хочеш короткого?

У будь-якому випадку для цього використовується OUTінструкція x86 для запису на порт вводу / виводу 0x3F8, який є стандартним послідовним портом COM1 на ПК. Забавна частина, звичайно, полягає в тому, що всі стандартні порти вводу / виводу (послідовний і паралельний) мають рівні адреси, тому їх не можна просто закодувати як безпосередні для OUTінструкції або перемістити безпосередньо в реєстр. Ви повинні ініціалізувати з одним меншим, ніж фактичне значення, а потім збільшити значення в регістрі. Ви також обмежені використанням певних регістрів для маніпуляції, оскільки вам потрібні регістри, кодовані за допомогою непарних байтів в інструкції, коли вони використовуються як операнди.

Крім того, мені довелося ініціалізувати DXреєстр (через CXрегістр) у верхній частині циклу, хоча це потрібно лише у випадку, якщо значення непарне, щоб переконатися, що JNCінструкція матиме непарне зміщення. Однак, оскільки те, що ми пропускаємо, - це OUTінструкція, все це робить код циклів відходів та реєстрів подряпин клоб; це насправді не виводить нічого , тому не порушує правила.

Нарешті, ця функція повернеться (після того, як буде зроблено або не зроблено вихід на послідовний порт) із залишеним вхідним значенням EAX. Але це фактично не порушує жодних правил; всі функції в мові збірки повертаються зі значенням у EAX- питання лише в тому, чи є це значне значення або значення сміття . Це визначається в документації функції (по суті, повертає вона значення чи повертає він)void ), і в цьому випадку я документую це як не повертає значення. :-)

Для цього немає посилання TIO, оскільки він не реалізує вихід до послідовних портів. Вам знадобиться справжнє залізо або фантазія.

Желе , 2 байти

ẋḂ

Ці символи відповідають байтам 0xF7 та 0xBF на кодовій сторінці Jelly .

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

05AB1E , 3 байти

Éi=

Код відповідає байтовим значенням C9,69,3Dабо 201,105,61які є непарними.

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

Пояснення

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

MATL , 3 байти

o?G

MATL використовує ASCII - символів, так що o?Gвідповідає байт (в десяткового системі ) 111, 63, 71.

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

Пояснення

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

Haskell , 36 33 байт

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

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

Використання: o 7виходить 7, o 8входить у нескінченну петлю.

Фактичний алгоритм є

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

Перша проблема, з якою я зіткнулася, - це брак місця і (, оскільки функція, oяка бере аргумент m, зазвичай визначається як o m=...або o(m)=.... Однак я виявив, що вбудований коментар також {- some comment -}працює як роздільник маркерів, тому визначення o{--}m=...можливо за даними правилами. Редагувати: Ørjan Johansen зазначив, що замість пробілу можна використовувати символ вкладки, економлячи три байти: o m=...

Другою проблемою був рекурсивний дзвінок o(m-2). -2просто -1-1, але тут фокус з коментарями не працює, оскільки потрібні дужки. Я виправив це, дозволивши функції функціонувати в однотонному списку, що містить число: o[m-2]однак, оскільки це не стандартний спосіб надання вводу, я передавав обчислення на помічну функцію, cяка працює на списках і виклик cз oякої має правильний формат .

Python REPL, 38 байт

Приймає введення як значення попереднього виразу за допомогою _. Виведенням буде рядок (рядкове представлення цілого числа для непарного чи порожній рядок для парного).

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

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

Щоб запустити його у фактичній оболонці, ви можете спробувати тут . Введіть вхід і натисніть клавішу Enter. Вставте код і натисніть клавішу Enter.

Пояснення:

На це знадобився певний час. Ні множення, ні розгалуження, ні нарізки, ні коми, ні періоди, ні імпорт, ні круглі дужки, ніexec , ні eval, ніprint і ніякі функції. Я отримав одне рішення, що працює на цьому виводі за допомогою stderr, але тоді я зрозумів, що нам потрібно вивести фактичне ціле число, а не лише значення truthy / falsey.

Я використовую дужки замість дужок [expression][-1] . Спрощення, що перетворює вищевказаний код '%s'%(['']+[_])[_%(1+1)].

Оскільки не може бути коми, я створив додавання до списку для створення ['',_]. За допомогою форматування рядків виходить бажаний результат.

CJam, 6 байт

q_iY%%

113 95 105 89 37 37

Ця програма приймає мод 2 на вході (називаємо це r ) і друкує кожен r- й символ у рядок введення. Якщо число введення непарне, воно друкує всю рядок, але якщо його попросять надрукувати кожен 0-й символ, програма видає помилку.

Спробуйте тут

Cubix , 23 19 17 байт

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

Спробуй це!

@, що припиняє програму Cubix, це ascii 64, тому, на жаль, це насправді просто входить у нескінченний цикл після тестування на дивацтво. Немає посилання на TIO, оскільки воно закінчиться.

= (ascii 61) - неоперативний в Кубіксі.

Це незначна модифікація попереднього алгоритму (той же # байт), який фактично працює для негативних цілих чисел.

Версія куба:

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

Алгоритм:

• I (73) : читати на вході як число
• 1 (49) : натиснути 1
• ) (41) : приріст
• % (37) : взяти мод
• / (47) : Поверніть наліво
• ! (33) : пропустити наступну інструкцію, якщо непарна
  • 1;;/; ;є (59): готує стек до виводу
  • O (79) : Виведіть як число.
  • Потім він знову вводиться в алгоритм, але Iзчитує 0кінець введення, тому ми гарантовано входимо в рівну гілку
• u (117) : правий поворот
• ;;;!I : циклічно, ефективно нічого не роблячи.

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

¿﹪Ｉθ÷χ⁵→θ

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

В основному він друкує праворуч на вхід, якщо він не кратний 10/5 ( ²символ навіть у на кодовій сторінці деревного вугілля ). Використовувані символи:

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

Насправді → найближчий кінець є зайвим, але тоді я побачив, що відповідь повинна мати непарну довжину ...

Пояснення:

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

машинний код x86_64 (Linux), 12 11 байт

На жаль, 0x80це навіть рівно, але все ж спрацювало (якщо припустити, що "нічого не робить" означає не повернутися):

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 байт, дякую @CodyGray!

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

Математика, 20 байт

Здається, це перше рішення на мові, що не займається гольфом.

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

У MacintoshChineseTraditionalкодуванні символів. \[Divides]є {161, 253}(2 байти)

Альтернативна версія (23 байти)

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

або (показано в Unicode)

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

в Symbolкодуванні символів. (використовувати лише 1-байтові символи)

Рішення визначає функцію g(або Γ), яку оцінюють для введення, коли вхід непарний, і буквально "нічого не робити" (не оцінює), коли вхід є парним.

Perl, 54 байти

Вимагає -E.

Мені дуже сподобався цей виклик, я думаю, що хотів би спробувати вдосконалити цю відповідь, але, думаю, це може бути найкоротшим, що я можу зробити зараз. Я вже кілька днів граю з цими відповідями і вимикаюсь, але відчуваю, що задоволений рішенням у 54 байти!

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

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

Пояснення

За замовчуванням працює більшість рядкових функцій Perl $_, які для запуску порожні.

По- перше, s//A_=Y[;A_=A_%O?A_W''/замінює порожній рядок в $_с A_=Y[;A_=A_%O?A_W'', тоy/#A-_/#-A/ замінює символи , засновані на наступному списку (символ вище стає напівкоксу нижче):

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

які оновлення $_містити $_=<>;$_=$_%2?$_:''. Далі s/[#-}]+/uc/eeзамінює всі символи [#-}]+наuc . Без /eeцього було б просто рядок uc, але /eeоцінюється вміст рядка двічі. Перша оцінка повертає результат uc, який є великою версією, $_але оскільки $_не містить алфавітних символів, це просто повертає всю рядку, потім друга /eоцінює рядок ще раз, який встановлюється$_ або $_(число введення), або'' залежно від того, чи не число непарне або парне.

Нарешті, оскільки $_тепер міститься те, що ми хочемо, ми дзвонимо say(що вимагає -Eзамість цього-e ), який друкує, $_а потім новий рядок.

Альтернативно Perl, 93 байти

92 байти коду + 1 для -p, що, на мою думку, зробить це неконкурентним.

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

Містить вкладку і вертикальну вкладку в y///, позначені як \x09і\x0b .

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

ЛОГО , 390 46 52 50 байт

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

Це список шаблонів, який повертає вхід, якщо вхід непарний, і викликає помилку, якщо вхід парний.

Використання:

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

вихід

5

оскільки 5 непарно, і

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

призведе до помилки, оскільки 6 є рівним.

TI-BASIC, 14 байт

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

Це призводить до помилки домену (нічого не друкується на головному екрані) на парне число.

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

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

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

Japt , 4 байти

u)çU

Japt використовує ISO / IEC 8859-1 , тому це відповідає (у десятковій кількості)117 41 231 85 .

Перевірте це в Інтернеті!

Пояснення

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

Я вперше спробував рішення, використовуючи p, що, в основному, çіз зворотними аргументами. Однак pвиконує експоненцію, якщо його лівий аргумент є числом, тому нам потрібно буде явно перетворити його в рядок. Це рішення виявляється насправді на коротший байт, крім того, що не містить непарних байтів.

постійний струм , 21 байт

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

Десяткові: 91 99 93 115 97 63 107 75 75 67 73 45 49 59 49 107 37 49 33 61 97

Згідно з цим замовчуванням IO, ця програма залишає вхід в основний стек, якщо він непарний, і вилучає стек в іншому випадку. Це можна підтвердити, додавшиf налагодження в кінець програми, як це відбувається на сторінці TIO.

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

Пояснення

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

Збережено 2 байти завдяки lirtosiast

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

у байтах (+2 нові рядки = 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

Дивіться http://tibasicdev.wikidot.com/one-byte-tokens

MathGolf , 3 байти

¥{k

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

Використовувані байти є 157, 123, 107 .

Пояснення

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

Баш , 31 байт

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

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

Пояснення:

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