Напишіть програму, яка перевіряє, чи є ціле число 2.

Зразок введення:

8

Вибірка зразка:

Yes

Зразок введення:

10

Вибірка зразка:

No

Правила:

• Не використовуйте +, -операції.

• Використовуйте якийсь потік введення, щоб отримати число. Вхід не повинен спочатку зберігатися у змінній.

• Виграє найкоротший код (у байтах).

Ви можете використовувати будь-яку правдиву / хибну відповідь (наприклад, true/ false). Ви можете припустити, що число введення більше, ніж 0.

GolfScript, 6 символів, без декрементів

~.3/&!

Ось рішення, яке не використовує x & (x-1)метод у будь-якій формі. Він використовує x & (x/3)замість цього. ;-) Виводить 0якщо false, 1якщо true.

Пояснення:

• ~ оцінює вхідний рядок, щоб перетворити його на число,
• .дублює його (для подальшого &),
• 3/ ділить його на три (обрізаючи вниз),
• & обчислює побітове І розділеного значення з оригіналом, яке буде нульовим тоді і тільки тоді, коли вхід дорівнює нулю або потужність два (тобто має максимум один біт), і
• ! логічно це заперечує, зіставляючи нуль до одного, а всі інші значення - до нуля.

Примітки:

• Згідно з уточненими правилами, нуль не є дійсним вводом , тому цей код є нормальним, навіть якщо він видає, 1якщо вхід дорівнює нулю.

• Якщо дозволений оператор декларації GolfScript (, то 5-символьного рішення, ~.(&! розміщеного aditsu , достатньо. Однак, схоже, це суперечить духу правил , якщо не літера.

• Я вигадав x & (x/3)трюк років тому у списку розсилки Fun With Perl. (Я впевнений, що я не перший виявив це, але я (пере) вигадав його самостійно.) Ось посилання на оригінальний пост , включаючи доказ того, що він насправді працює.

APL (7)

Так, це 7 байт . Припустимо на даний момент, що я використовую кодову сторінку IBM 907 замість Unicode, і тоді кожен символ є байтом :)

0=1|2⍟⎕

тобто 0 = mod(log(input(),2),1)

GolfScript, 11 (для 1 (вірно) та 0 (помилково))

.,{2\?}%?0>

Поставте число в стек і потім запустіть.

GolfScript, 22 (для Так / Ні)

.,{2\?}%?0>'Yes''No'if

Мені подобається, як перетворення 1/ 0на Yes/ Noприймає стільки коду, скільки й виклик: D

Попередження: НАЙКРАЙНО неефективний;) Він працює чудово для цифр до 10000, але як тільки ви досягнете такої висоти, ви починаєте помічати незначне відставання.

Пояснення:

• .,: перетворюється nна n 0..n( .дублікат, ,діапазон 0..n)
• {2\?}: до сили 2
• %: карта "потужність 2" над "0..n", так це стає n [1 2 4 8 16 ...]
• ?0>: перевіряє, чи містить масив число (0 більше, ніж індекс)

Математика 28

Numerator[Input[]~Log~2]==1

Для цілих потужностей 2 чисельник журналу основи 2 буде дорівнює 1 (означає, що журнал - це одинична частка).

Тут ми трохи модифікуємо функцію для відображення передбачуваного вводу. Ми використовуємо #замість Input[]та додаємо &для визначення чистої функції. Він повертає ту саму відповідь, яку буде повернуто, якщо користувач введе номер у вищевказаній функції.

    Numerator[#~Log~2] == 1 &[1024]
    Numerator[#~Log~2] == 1 &[17]

Справжня
хибність

Тестування декількох цифр одночасно.

    Numerator[#~Log~2] == 1 &&/@{64,8,7,0}

{Правда, правда, помилково, хибно}

Perl 6 (17 символів)

say get.log(2)%%1

Ця програма отримує рядок від getфункції STDIN , обчислює логарифм з базою 2 на ньому ( log(2)) і перевіряє, чи результат ділиться на 1 ( %%1, де %%ділиться оператором). Не таке коротке, як рішення GolfScript, але я вважаю це прийнятним (у будь-якому випадку GolfScript все виграє), але набагато швидше (навіть враховуючи, що Perl 6 зараз повільний).

~ $ perl6 -e 'say get.log(2)%%1'
256
True
~ $ perl6 -e 'say get.log(2)%%1'
255
False

Октава ( 15 23)

EDIT: оновлено через потреби введення користувача;

~mod(log2(input('')),1)

Дозволяє користувачеві вводити значення і виводить 1 для true, 0 для false.

Випробуваний в Octave, також повинен працювати в Matlab.

R, 13 11

На основі рішення Perl. Повертається FALSEабо TRUE.

!log2(i)%%1

Параметр iпредставляє вхідну змінну.

Альтернативна версія з введенням користувача:

!log2(scan())%%1

GolfScript, 5

Виходи 1 для істинного, 0 для хибного. На основі ідеї користувача3142747:

~.(&!

Примітка: (декрет, сподіваємось, він не вважається таким, як -:)
Якщо це так (а коментарі ОП припускають, що це може бути), тоді, будь ласка, зверніться до рішення Ілмарі Каронен .
Для виводу Y / N додайте 'NY'1/=в кінці (ще 7 байт).

Пітона, 31

print 3>bin(input()).rfind('1')

С, 48

main(x){scanf("%i",&x);puts(x&~(x*~0)?"F":"T");}

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

J, 14 15 символів (виходи 0 або 1)

1=##~#:".1!:1]1

JavaScript, 76 символів (виводить true або false)

alert((~~prompt()).toString(2).split("").map(Number).filter(Boolean).length)

Кліп , 9 8 7

!%lnxWO

Читає число від stdin.

Пояснення:

Для початку, Z= 0, W= 2і O= 1. Це дозволяє розміщувати Wта Oпоруч один з одним, тоді як використання 2та 1інтерпретація буде як число 21 без роздільного простору (небажаний додатковий символ). У Clip, функція modulo ( %) працює на не цілі числа, тож, щоб обробити, чи є якесь значення vцілим числом, ви перевіряєте, чи vmod 1 = 0. Використовуючи синтаксис Clip, це записується як =0%v1. Однак, оскільки булеві файли зберігаються як 1(або що-небудь інше), і 0перевірити, чи щось дорівнює, 0це просто "не робити" цього. Для цього Clip має !оператора. У моєму коді vє lnx2. xце вхід від stdin,nперетворює рядок в число і labє лог бази bз a. Тому програма перекладається (більш читається) на 0 = ((log base 2 of parseInt(readLine)) mod 1).

Приклади:

8

виходи

1

і

10

виходи

0

Edit 1: замінити 0, 1і 2з Z, Oі W.

Редагувати 2: замінено =Zна !.

Також:

Піта , 5

Ще більше стискає версію Clip, оскільки Pyth має Q для вже оціненого вводу та функцію log2 (a) замість просто загального журналу (a, b).

!%lQ1

Javascript (37)

a=prompt();while(a>1)a/=2;alert(a==1)

Простий сценарій, який просто ділиться на 2 рази і перевіряє залишок.

Математика (21)

IntegerQ@Log2@Input[]

Без введення це трохи коротше

IntegerQ@Log2[8]

Правда

IntegerQ@Log2[7]

помилковий

JavaScript, 41 40 символів

l=Math.log;alert(l(prompt())/l(2)%1==0);

Як це працює: ви берете логарифм на основі 2, використовуючи l(prompt()) / l(2) , і якщо цей результат по модулю 1 дорівнює нулю, то це сила 2.

Наприклад: взявши логарифм 8 на базі 2, ви отримаєте 3.3 modulo 1дорівнює 0, тому це повертає істину.

Після взяття логарифму 7 на основі 2 ви отримуєте 2.807354922057604. 2.807354922057604 modulo 1дорівнює 0.807354922057604, тому це повертає хибне.

JavaScript, 35

Працює за байтами.

alert((+prompt()).toString(2)%9==1)

46-символьна версія , працює для 16-бітових чисел.

x=(+prompt()).toString(2)%99;alert(x==1|x==10)

Трюк працює в більшості динамічних мов.

Пояснення: Перетворіть число в базу 2, інтерпретуйте цей рядок як базу 10, зробіть модуль 9, щоб отримати цифру суми, яка повинна бути 1.

Perl 5,10+, 13 + 1 = 14 символів

say!($_&$_/3)

Використовується той самий метод із старої нитки FWP, як і моя запис GolfScript . Друкує1 якщо вхід має потужність дві, а порожній рядок - інакше.

Потреби, з якими потрібно працювати perl -nE; n варто один додатковий символ , в цілому 14 символів. Крім того, ось версія з 18 символів , яка не потребує n:

say!(($_=<>)&$_/3)

пітон 3, 38

print(1==bin(int(input())).count('1'))

пітон, 32

Однак код працює не в кожній версії.

print 1==bin(input()).count('1')

Зауважте, що рішення також працює для 0 (друкувати помилково).

Ruby - 17 символів (четверта спроба)

p /.1/!~'%b'%gets

Моє поточне найкраще - це злиття відповіді @ steenslag з моєю власною. Нижче наведені мої попередні спроби.

Ruby - 19 символів (третя спроба)

p /10*1/!~'%b'%gets

Ruby - 22 символи (друга спроба)

p !('%b'%gets)[/10*1/]

Ruby - 24 символи (перша спроба)

p !!('%b'%gets=~/^10*$/)

К / Кона ( 24 17)

d:{(+/(2_vs x))~1

Повертає 1, якщо істинно, і 0, якщо невірно. Будь-яка потужність 2 має один біт, рівний 1:

2_vs'_(2^'(!10))
(,1
1 0
1 0 0
1 0 0 0
1 0 0 0 0
1 0 0 0 0 0
1 0 0 0 0 0 0
1 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0)

(це виводить усі сили 2 (від 0 до 9) у двійковій)

Отже, я підсумовую всі компоненти двійкового вираження xі бачу, чи дорівнює він 1; якщо так, то в x=2^nіншому випадку немає.

... знав, що можу зробити його меншим

C # (54 символи)

 Math.Log(int.Parse(Console.ReadLine()),2)%1==0?"Y":"N"

Ребму (9 годин)

z?MOl2A 1

Тест

>> rebmu/args [z?MOl2A 1] 7
== false

>> rebmu/args [z?MOl2A 1] 8 
== true

>> rebmu/args [z?MOl2A 1] 9 
== false

Ребму - звужений діалект Ребола. Код по суті:

z? mo l2 a 1  ; zero? mod log-2 input 1

Альтернатива

14 символів - у Ребму немає битового зразка AND ~

z?AND~aTIddA 3

У Реболі:

zero? a & to-integer a / 3

GTB , 46 байт

2→P`N[@N=Pg;1P^2→P@P>1E90g;2]l;2~"NO"&l;1"YES"

Пітона, 35

print bin(input()).strip('0')=='b1'

Не використовує не тільки +/- операції, але й будь-які математичні операції, окрім перетворення у бінарну форму.

Інші речі (цікаві, але не для конкуренції):

У мене також є версія regexp (61) :

import re;print re.match(r'^0b10+$',bin(input())) is not None

(Люблю ідею, але функція імпорту та відповідності робить її занадто довгою)

І приємна, але нудна бітова версія версії (31) :

x=input();print x and not x&~-x

(так, він коротший, але він використовує ~ -x для декременту, який містить - операція)

Python 2.7 ( 30 29 39 37)

EDIT: оновлено через потреби введення користувача;

a=input()
while a>1:a/=2.
print a==1

Груба сила, спробуйте розділити, поки = 1 (успіх) або <1 (невдача)

Пітон (33)

print int(bin(input())[3:]or 0)<1

Рубі, 33 , 28 , 25

p /.1/!~gets.to_i.to_s(2)

APL (12 за 0/1, 27 за так / ні)

≠/A=2*0,ιA←⍞ 

або, якщо нам потрібно вивести текст:

3↑(3x≠/A=2*0,ιA←⍞)↓'YESNO '

Прочитайте в А. Сформуйте вектор 0..A, потім вектор 2 ⁰ ..2 ^A (так, це набагато більше, ніж потрібно), потім вектор, порівнюючи A з кожним із них (в результаті чого вектор 0 і максимум один 1), потім xor, що (в APL немає оператора xor, але ≠, застосований до булевих, діятиме як один.) Зараз у нас 0 або 1.

Щоб отримати ТАК або НІ: помножте 0 або 1 на 3, видаліть цю кількість символів з 'YESNO', а потім візьміть перші 3 символи цього.

C, 65 байт

main(k){scanf("%i",&k);while(k&&!(k%2))k/=2;puts(k==1?"T":"F");}

Хаскелл ( 52 50)

k n=elem n$map(2^)[1..n]
main=interact$show.k.read