Ваша мета - визначити, чи число ділиться на 3 без використання умовних умов. Вхід буде непідписаним 8-бітним числом від 0 до 255. Творчість заохочується!

Вам ТОЛЬКО дозволено користуватися

• Рівність / Нерівність ( ==, !=, >, <, >=, <=)

• Арифметика ( +, -, x)

• Логічні оператори ( !не &&, || або або)

• Побітові оператори ( ~ні, &і, |або, ^що виключає, <<, >>, >>>арифметичні і логічні ліві і праві зрушення)

• Константи (було б краще, якби ви зберегли ці маленькі)

• Змінне призначення

Виведіть, 0якщо помилково, 1якщо істинно.

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

C - 2 жетони

int div3(int x) {
    return x * 0xAAAAAAAB <= x;
}

Здається, працює до 2 ³¹ -1.

Подяки на zalgo("nhahtdh")мультиплікативну зворотну ідею.

Python, 3 2 лексеми

Рішення грубої сили, але воно працює.

0x9249249249249249249249249249249249249249249249249249249249249249>>x&1

Завдяки Говарду за зменшення на 1 маркер.

C - 5 4 (?) Лексеми

int div3_m2(uint32_t n) {
    return n == 3 * (n * 0xAAAAAAABull >> 33);
}

Працює для будь-якого 32-бітного безпідписаного числа .

Цей код використовує мультиплікативний зворотний модуль 2 ³² дільника для перетворення операції поділу в операцію множення.

Редагувати

Мій розчин (опублікований через 2 хвилини після) має такий же дух, як і рішення адицу. Подяка йому за використання, ==що покращує моє рішення на 1 маркер.

Довідково

• Праця відділу - ridiculousfish.com
• Захоплення хакера - магічне число
• Вікіпедія - модульна мультиплікативна обернена

C - 15 (?) Лексем

int div3_m1(unsigned int n) {
    n = (n & 0xf) + (n >> 4);
    n = (n & 0x3) + (n >> 2);
    n = (n & 0x3) + (n >> 2);
    return n == 0 || n == 3;
}

Оскільки 4 ≡ 1 (mod 3), маємо 4 ⁿ ≡ 1 (mod 3). Правило підсумовування цифр не обмежується підбиттям цифр, але також дозволяє нам довільно розбивати число на послідовності цифр і підсумовувати всі їх, зберігаючи конгруентність.

Приклад у базі 10, дільник = 9:

1234 ≡ 12 + 34 ≡ 1 + 2 + 3 + 4 ≡ 123 + 4 ≡ 1 (мод 9)

Усі заяви в програмі використовують це властивість. Насправді його можна спростити до циклу, який запускає оператор n = (n & 0x3) + (n >> 2);до n < 4тих пір , оскільки оператор просто розбиває число в base-4 принаймні значущою цифрою і додає 2 частини вгору.

Python (2 жетони?)

1&66166908135609254527754848576393090201868562666080322308261476575950359794249L>>x

Або

1&0x9249249249249249249249249249249249249249249249249249249249249249L>>x

Або

1&0b1001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001001>>x

JavaScript - 3 лексеми

function div3(n) {
    var a = n * 0.3333333333333333;
    return (a | 0) == a;
}

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

C - 4 лексеми

int div3(int x) {
    return ((x * 43) >> 7) * 3 == x;
}

Працює до 383.

Попередня версія (більші константи):

int div3(int x) {
    return ((x * 171) >> 9) * 3 == x;
}

Працює до 1535 року

баш - ???

Не знаєте, як це забити.

seq 0 85 | awk '{print $1 * 3}' | grep -w [number] | wc -l

напр

$ seq 0 85 | awk '{print $1 * 3}' | grep -w 11 | wc -l
0

$ seq 0 85 | awk '{print $1 * 3}' | grep -w 12 | wc -l
1

$seq 0 85 | awk '{print $1 * 3}' | grep -w 254 | wc -l
0

$seq 0 85 | awk '{print $1 * 3}' | grep -w 255 | wc -l
1

Befunge 93 - 5 жетонів

Виправлено - поділ видалено.

v      @._1.@
         \   
         0   
         +   
         3   
>&>3-:0\`|   
  ^      <   

Отримує введення, продовжує віднімати 3, поки воно не буде меншим за 0, направляє вказівник вгору ('|'), а потім додає 3. Якщо значення 0, то вказівник переміщується вправо (" 1. @" виводить "1"), інакше рухається вліво ("@. " виводить "0"). '@' завершує програму.

Пакет - 7 токенів

Я думаю

@echo off
for /L %%a in (0,3,%1) do set a=%%a
if %a%==%1 echo 1

Повертає, 1якщо задане число (як stdin) ділиться на три.

Рубі, 6 (?) Лексем

Я дійсно не впевнений, як рахувати жетони. ОП, ти можеш забити мене?

Я думаю , що це 6 ... 1, 0, 0, *, 255,x

Зауважте, що *множина не є цілим числом.

def div3(x)
  ([1,0,0]*255)[x]
end

Python 0

Я розмістив вушко, але використовував умовні умови. Ось до використання умовних умов і без лексем, а лише до ключових слів

def g(x): return ([[lambda : g(sum(int(y) for y in list(str(x)))),lambda: 0][[False,True].index(x in[0,1,2,4,5,7,8])], lambda: 1][[False,True].index((lambda y: y in[3,6,9])(x))])()

використовує трюк, що у кількох 3 є цифри, які додаються до 3

Редагувати: Видалено непотрібну лямбда

def g(x):return([[lambda: g(sum(int(y) for y in list(str(x)))),lambda:0][[False,True].index(x in[0,1,2,4,5,7,8])], lambda:1][[False,True].index(x in[3,6,9])])()

Редагувати: Далі в гольфі (117 символів) все ще немає жетонів

exec"g=`x:(((`:g(sum(int(y)for y in str(x)),`:0)[x in[0,1,2,4,5,7,8]],`:1)[x in[3,6,9]])()".replace('`','lambda ')

Загинув прямий доступ для витонченого гетьтена пітона на 132 чар

exec"g={0}x:((({0}:g(sum(int(y)for y in str(x))),{0}:0{1}0,1,2,4,5,7,8]),{0}:1{1}3,6,9]))()".format('lambda ',').__getitem__(x in[')

http://www.codeskulptor.org/#user34_uUl7SwOBJb_0.py

Пітон - 25 жетонів

Щоб почати все, у мене є тривале рішення - це реалізація однієї з відповідей за посиланням у моєму першому дописі. nє вхідним.

a = (n>>7)-((n&64)>>6)+((n&32)>>5)-((n&16)>>4)+((n&8)>>3)-((n&4)>>2)+((n&2)>>1)-(n&1)
print(a==0 or a==3)

orеквівалентно ||.

JavaScript - 3 токена

Перевірте це на консолі браузера:

a = prompt().split('');
sum = 0;

do {
  sum = a.reduce(function(p, c) {
     return parseInt(p) + parseInt(c); 
  });

  a = sum.toString().split('');

} while(a.length > 1)

alert([3, 6, 9].indexOf(+sum) > -1)

JavaScript
_{не впевнений у маркері #}

function mod3 (i) { return {'undefined':'100','0':'0'}[[0][i]][i.toString (3).split('').pop ()]}

або якщо вихід для 0 дозволено дорівнювати 1;

function mod3 (i) { return '100'[i.toString (3).split('').pop ()]}

Tcl , 83 байти

proc T n {while \$n>9 {set n [expr [join [split $n ""] +]]};expr {$n in {0 3 6 9}}}

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