Вгору йдіть шматочки!


26

Задавши ціле число N, виконайте наступні дії: (використовуючи 9 як приклад).

  1. Отримайте вхід N. ( 9)
  2. Перетворити N від base10 до base2. ( 1001)
  3. Збільшити кожен біт на 1. ( 2112)
  4. Розгляньте результат як base3 і перетворіть його назад у base10. ( 68)
  5. Повернення / виведення результату.

Вхідні дані

Може бути отриманий у будь-якому розумному форматі чисел.
Вам потрібно обробляти лише випадки, коли N> 0.


Вихідні дані

Або поверніться як число або рядок, або надрукуйте в stdout.


Правила

  • Це , найкоротший код у байтах виграє.
  • Бійниці за замовчуванням заборонені.

Випробування

1 -> 2
2 -> 7
5 -> 23
9 -> 68
10 -> 70
20 -> 211
1235 -> 150623
93825 -> 114252161

Відповіді:


15

Python 2 , 31 байт

f=lambda n:n and 3*f(n/2)+n%2+1

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


3
Чи можете ви пояснити, як це працює?

+n%2+1додає крайній правий бінарний біт плюс 1 до значення повернення, n/2правий зсув nна 1 двійковий біт, 3*f(n/2)рекурсивно додає цей обчислення в 3 рази на ті біти, що зміщуються правою n andn
мірою

11

JavaScript (Node.js) , 23 байти

f=x=>x&&x%2+1+3*f(x>>1)

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


x>>1те саме, що x/2не так?
mbomb007

@ mbomb007 Я подумав і запропонував те саме, але, мабуть, це стає Infinityв JS .. Спробуйте в Інтернеті. (Можливо, ви хочете додати TIO-посилання, щоб відповісти, I4m2 )
Kevin Cruijssen

2
@ mbomb007 №, 1>>1=0поки1/2=0.5
l4m2

4
@ mbomb007 ... Пітон?
користувач202729

2
Так. Подивіться на відповідь Python. Ось причина n/2працює в тому, і я запропонував це тут.
mbomb007

9

Java (JDK 10) , 44 байти

long n(long x){return x<1?0:x%2+1+3*n(x/2);}

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


1
Може -~, допоможе?
користувач202729

2
Ні, правила пріоритету.
користувач202729

До вас те саме питання: чому long? :) І ось я подумав, що мій послідовний підхід був розумним .. Ви вирвали його з парку менше ніж за 5 хвилин ..>.>: '(
Кевін Круїйсен

@KevinCruijssen Щоб бути чесним з тобою ...
користувач202729


6

J , 7 байт

3#.1+#:

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

Дякую Гален Іванов за -4 байти! Мені справді потрібно вдосконалити свою майстерність J у гольфі ...


1
7 байт: 3#.1+#: TIO
Гален Іванов,

Також дякую за шаблон, мені потрібно щось дізнатися : 0.
користувач202729

Шаблон не мій, я забув, хто його автор.
Гален Іванов

2
Це був би я :)
Conor O'Brien

6

R , 55 43 байт

function(n)(n%/%2^(x=0:log2(n))%%2+1)%*%3^x

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

Використовує стандартний фокус базового перетворення з кроком R, а потім використовує крапковий продукт з повноваженнями 3для перетворення назад у ціле число.

Дякуємо @ user2390246 за скидання 12 байт!


Оскільки перетворення у двійковий не є кінцевим результатом, порядок цифр не має значення. Тож замість floor (log (n)): 0 ви можете зробити 0: log (n) та зберегти кілька байтів: 43 байт
user2390246

@ user2390246 Звичайно, дякую.
Джузеппе


6

Java 10, 81 52 байт (базове перетворення)

n->n.toString(n,2).chars().reduce(0,(r,c)->r*3+c-47)

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

-29 байт завдяки @Holger .

Пояснення:

n->{                         // Method with Long as both parameter and return-type
  n.toString(n,2)            //  Convert the input to a Base-2 String
  .chars().reduce(0,(r,c)->  //  Loop over its digits as bytes
    r*3+c-47)                //  Multiply the current result by 3, and add the digit + 1
                             //  (which is equal to increasing each digit by 1,
                             //  and then converting from Base-3 to Base-10)

Java 10, 171 167 151 150 149 байт (Послідовність)

n->{int t=31-n.numberOfLeadingZeros(n);return a(t+1)+b(n-(1<<t));};int a(int n){return--n<1?n+2:3*a(n)+1;}int b(int n){return n<1?0:n+3*b(n/=2)+n*2;}

-16 байт завдяки @ musicman523 , змінившись (int)Math.pow(2,t)на (1<<t).
-1 байт завдяки @Holger , змінившись (int)(Math.log(n)/Math.log(2))на 31-n.numberOfLeadingZeros(n).

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

Пояснення:

n->{                         // Method with Integer as both parameter and return-type
  int t=31-n.numberOfLeadingZeros(n);
                             //  2_log(n)
  return a(t+1)              //  Return A060816(2_log(n)+1)
         +b(n-(1<<t));}      //   + A005836(n-2^2_log(n))

// A060816: a(n) = 3*a(n-1) + 1; a(0)=1, a(1)=2
int a(int n){return--n<1?n+2:3*a(n)+1;}

// A005836: a(n+1) = 3*a(floor(n/2)) + n - 2*floor(n/2).
int b(int n){return n<1?0:n+3*b(n/=2)+n*2;}

Коли ми дивимося на послідовність:

2,  7,8,  22,23,25,26,  67,68,70,71,76,77,79,80,  202,203,205,206,211,212,214,215,229,230,232,233,238,239,241,242, ...

Ми можемо побачити кілька підпослідок:

A053645(n):
0,  0,1,  0,1,2,3,  0,1,2,3,4,5,6,7,  0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,  ...

A060816(A053645(n)):
2,  7,7,  22,22,22,22,  67,67,67,67,67,67,67,67,  202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,  ...

A005836(A053645(n)+1)
0,  0,1,  0,1,3,4,  0,1,3,4,9,10,12,13,  0,1,3,4,9,10,12,13,27,28,30,31,36,37,39,40,  ...

Отже, послідовність запитується:

A060816(A053645(n)) + A005836(A053645(n)+1)

Я смоктав у пошуку шаблонів, тому я пишаюся тим, що я знайшов вище. Сказавши це, @ user202729 знайшов кращий і коротший підхід на Java протягом декількох хвилин ..: '(


Re n.toString(n,2).getBytes()... Я думаю, що ручне перетворення може бути коротшим.
користувач202729

1
BTW чому longі ні int?
користувач202729

1
Я думаю, що у послідовній версії ви можете змінити (int)Math.pow(2,t)на 1<<t..., а потім вбудувати цей вираз і скинути змінну i ( 152 байти )
musicman523

1
У реальному житті я б використовував 31-Integer.numberOfLeadingZeros(n)замість цього (int)(Math.log(n)/Math.log(2)), але він не коротший. Якщо ви не використовуєте import staticв заголовку, який може занадто сильно розтягнути правила.
Холгер

1
Я просто спробував перетворити цикл вашого першого варіанту в потокове рішення, з успіхом:n -> n.toString(n,2).chars().reduce(0,(r,c)->r*3+c-47)
Холгер





3

Attache , 19 байт

FromBase&3@1&`+@Bin

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

Це склад з трьох функцій:

  • FromBase&3
  • 1&`+
  • Bin

Це спочатку перетворюється у бінарний ( Bin), збільшує його ( 1&`+), потім перетворюється на потрійний ( FromBase&3).

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

Без точки зору, 21 байт: {FromBase[Bin!_+1,3]}

Без вбудованих, 57 байт: Sum@{_*3^(#_-Iota!_-1)}@{If[_>0,$[_/2|Floor]'(1+_%2),[]]}


3

Сітківка 0,8,2 , 36 байт

.+
$*
+`^(1+)\1
$1;1
^
1
+`1;
;111
1

Спробуйте в Інтернеті! Пояснення:

.+
$*

Перетворити з десяткової в одинарну.

+`^(1+)\1
$1;1

Неодноразово дівмод на 2, і додай 1 до результату модуля.

^
1

До першої цифри додайте також 1.

+`1;
;111

Перетворити з неврядованої кодованої бази 3 в одинарну.

1

Перетворити в десятковий.


3

Japt , 6 байт

¤cÄ n3
¤      // Convert the input to a base-2 string,
 c     // then map over it as charcodes.
  Ä    // For each item, add one to its charcode
       // and when that's done,
    n3 // parse the string as a base 3 number.

Приймає введення як число, виводить число.

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


Блін! Чому я не придумав цього? Чудово зроблено.
Кудлатий

3

MATL , 12 7 6 байт

BQ3_ZA

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

Збережено 5 байт завдяки Джузеппе та ще один завдяки Луїсу Мендо.

Відповідь на старий 7 байт:

YBQc3ZA

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

Пояснення:

YB        % Convert to binary string
  Q       % Increment each element
   c      % Convert ASCII values to characters
    3     % Push 3
     ZA   % Convert from base 3 to decimal.

Старий на 12 байт:

BQtz:q3w^!Y*

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

О мій, це було безладно ... Так це: `BQ3GBn: q ^! Y *.

Пояснення:

               % Implicit input
B              % Convert to binary vector
 Q             % Increment all numbers
  t            % Duplicate
   z           % Number of element in vector
    :          % Range from 1 to that number
     q         % Decrement to get the range from 0 instead of 1
      3        % Push 3
       w       % Swap order of stack
        ^      % Raise 3 to the power of 0, 1, ...
         !     % Transpose
          Y*   % Matrix multiplication
               % Implicit output

3

C # (Visual C # компілятор) , 128 байт

using System;using System.Linq;i=>{int z=0;return Convert.ToString(i,2).Reverse().Select(a=>(a-47)*(int)Math.Pow(3,z++)).Sum();}

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

Я рахую, Systemтому що я використовую Convertі Math.


Вибір дає вам індекс як необов'язковий параметр. Так ви могли позбутися своєї zзмінної. Крім того, в тілі вираження ви могли б позбутися {, }і returnзаяви. Тож щось подібнеn=>Convert.ToString(n,2).Reverse().Select((x,i)=>(x-47)*Math.Pow(3,i)).Sum();
NtFreX


2

C, 32 27 байт

n(x){x=x?x%2+1+3*n(x/2):0;}

На основі user202729 «s Java відповідь . Спробуйте його онлайн тут . Дякуємо Кевіну Крейсейну за те, що він грав у 5 байт.

Безгольова версія:

n(x) { // recursive function; both argument and return type are implicitly int
    x = // implicit return
    x ? x % 2 + 1 + 3*n(x/2) // if x != 0 return x % 2 + 1 + 3*n(x/2) (recursive call)
    : 0; // else return 0
}

Ви можете зберегти 5 байт, замінюючи returnз x=і реверсування троичной тому !більше не потрібно:n(x){x=x?x%2+1+3*n(x/2):0;}
Кевін Cruijssen

@KevinCruijssen Nice. Спасибі!
OOBalance


2

Октава з набором інструментів для зв'язку, 33 32 байти

@(x)(de2bi(x)+1)*3.^(0:log2(x))'

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

Перетворює вхід у двійковий вектор, використовуючи de2biта збільшуючи всі числа. Матричне множення з вертикальним вектором 3 піднімається на відповідні сили:, 1, 3, 9, ...отримуючи таким чином суму без явного виклику до sum.


Хоча це надзвичайно розумно, ви також можете зробити це за 32 байти: Спробуйте в Інтернеті!
Санчіз

І з MATLAB ви можете навіть @(x)base2dec(de2bi(x)+49,3)за 27 (рідкісний випадок, коли MATLAB м'якший, ніж Октава)
Sanchises

2

PHP, 84 64 байт

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

Оригінальний код

function f($n){$b=decbin($n);echo base_convert($b+str_repeat('1',strlen($b)),3,10);}

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

Завдяки Крістофу , менше байтів, якщо працює з php -R

function f($n){echo base_convert(strtr(decbin($n),10,21),3,10);}

Пояснення

function f($n){
$b=decbin($n);                    #Convert the iteger to base 2
echo base_convert(                  #base conversion PHP function
    $b+str_repeat('1',strlen($b)),  #It adds to our base 2 number
    3,                              #a number of the same digits length
    10);                            #with purely '1's
}

Ось, коли я бачу, що я маю шалений спосіб перейти до програмування .... не мав уявлення про існуванняstrtr
Франциско Хан

1
Зробимо !!, вибач<?="Will do!!"
Франсіско Хан


2

Пробіл , 117 байт

[S S S N
_Push_0][S N
S _Duplicate_0][S N
S _Duplicate_0][T   N
T   T   _Read_STDIN_as_number][T    T   T   _Retrieve][N
S S S N
_Create_Label_OUTER_LOOP][S N
S _Duplicate][S S S T   S N
_Push_2][T  S T T   _Modulo][S S S T    N
_Push_1][T  S S S _Add][S N
T   _Swap][S S S T  S N
_Push_2][T  S T S _Integer_division][S N
S _Duplicate][N
T   S N
_If_0_jump_to_Label_INNER_LOOP][N
S N
S N
_Jump_to_Label_OUTER_LOOP][N
S S N
_Create_Label_INNER_LOOP][S S S T   T   N
_Push_3][T  S S N
_Multiply][T    S S S _Add][S N
T   _Swap][S N
S _Duplicate][N
T   S T N
_If_0_jump_to_Label_PRINT_AND_EXIT][S N
T   _Swap][N
S N
N
_Jump_to_Label_INNER_LOOP][N
S S T   N
_Create_Label_PRINT_AND_EXIT][S N
T   _Swap][T    N
S T _Output_integer_to_STDOUT]

Букви S(пробіл), T(вкладка) та N(новий рядок) додаються лише як підкреслення.
[..._some_action]додано лише як пояснення.

Спробуйте його в режимі он-лайн (лише з просторами, вкладками та новими рядками).

Пояснення в псевдокоді:

Я вперше перетворив рекурсивну функцію int f(int n){return n<1?0:n%2+1+3*f(n/2);}в її ітеративну форму (у псевдокоді):

Integer n = STDIN as integer
Add starting_value 0 to the stack
function OUTER_LOOP:
  while(true){
    Add n%2+1 to the stack
    n = n/2
    if(n == 0):
      Jump to INNER_LOOP
    Else:
      Jump to next iteration OUTER_LOOP

function INNER_LOOP:
  while(true){
    n = 3*n
    n = n + Value at the top of the stack (the ones we calculated with n%2+1)
    Swap top two items
    Check if the top is now 0 (starting value):
      Jump to PRINT_AND_EXIT
    Else:
      Swap top two items back
      Jump to next iteration INNER_LOOP

function PRINT_AND_EXIT:
  Swap top two items back
  Print top to STDOUT as integer
  Exit program with error: Exit not defined

Потім я реалізував цей ітеративний підхід у мові Whitespace на основі стека, використовуючи його стек за замовчуванням.

Приклад виконання:

Вхід: 1

Command    Explanation                   Stack           Heap    STDIN   STDOUT   STDERR

SSSN       Push 0                        [0]
SNS        Duplicate top (0)             [0,0]
SNS        Duplicate top (0)             [0,0,0]
TNTT       Read STDIN as integer         [0,0]           {0:1}   1
TTT        Retrieve                      [0,1]           {0:1}
NSSSN      Create Label OUTER_LOOP       [0,1]           {0:1}
 SNS       Duplicate top (1)             [0,1,1]         {0:1}
 SSSTSN    Push 2                        [0,1,1,2]       {0:1}
 TSTT      Modulo top two (1%2)          [0,1,1]         {0:1}
 SSSTN     Push 1                        [0,1,1,1]       {0:1}
 TSSS      Add top two (1+1)             [0,1,2]         {0:1}
 SNT       Swap top two                  [0,2,1]         {0:1}
 SSSTSN    Push 2                        [0,2,1,2]       {0:1}
 TSTS      Int-divide top two (1/2)      [0,2,0]         {0:1}
 SNS       Duplicate top (0)             [0,2,0,0]       {0:1}
 NTSN      If 0: Go to Label INNER_LOOP  [0,2,0]         {0:1}
 NSSN      Create Label INNER_LOOP       [0,2,0]         {0:1}
  SSSTTN   Push 3                        [0,2,0,3]       {0:1}
  TSSN     Multiply top two (0*3)        [0,2,0]         {0:1}
  TSSS     Add top two (2+0)             [0,2]           {0:1}
  SNT      Swap top two                  [2,0]           {0:1}
  SNS      Duplicate top (0)             [2,0,0]         {0:1}
  NTSTN    If 0: Jump to Label PRINT     [2,0]           {0:1}
  NSSTN    Create Label PRINT            [2,0]           {0:1}
   SNT     Swap top two                  [0,2]           {0:1}
   TNST    Print top to STDOUT           [0]             {0:1}           2
                                                                                  error

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

Вхід: 4

Command    Explanation                   Stack           Heap    STDIN   STDOUT   STDERR

SSSN       Push 0                        [0]
SNS        Duplicate top (0)             [0,0]
SNS        Duplicate top (0)             [0,0,0]
TNTT       Read STDIN as integer         [0,0]           {0:4}   4
TTT        Retrieve                      [0,4]           {0:4}
NSSSN      Create Label OUTER_LOOP       [0,4]           {0:4}
 SNS       Duplicate top (4)             [0,4,4]         {0:4}
 SSSTSN    Push 2                        [0,4,4,2]       {0:4}
 TSTT      Modulo top two (4%2)          [0,4,0]         {0:4}
 SSSTN     Push 1                        [0,4,0,1]       {0:4}
 TSSS      Add top two (0+1)             [0,4,1]         {0:4}
 SNT       Swap top two                  [0,1,4]         {0:4}
 SSSTSN    Push 2                        [0,1,4,2]       {0:4}
 TSTS      Int-divide top two (4/2)      [0,1,2]         {0:4}
 SNS       Duplicate top (2)             [0,1,2,2]       {0:4}
 NTSN      If 0: Go to Label INNER_LOOP  [0,1,2]         {0:4}
 NSNSN     Jump to Label OUTER_LOOP      [0,1,2]         {0:4}
 SNS       Duplicate top (2)             [0,1,2,2]       {0:4}
 SSSTSN    Push 2                        [0,1,2,2,2]     {0:4}
 TSTT      Modulo top two (2%2)          [0,1,2,0]       {0:4}
 SSSTN     Push 1                        [0,1,2,0,1]     {0:4}
 TSSS      Add top two (0+1)             [0,1,2,1]       {0:4}
 SNT       Swap top two                  [0,1,1,2]       {0:4}
 SSSTSN    Push 2                        [0,1,1,2,2]     {0:4}
 TSTS      Int-divide top two (2/2)      [0,1,1,1]       {0:4}
 SNS       Duplicate top (1)             [0,1,1,1,1]     {0:4}
 NTSN      If 0: Go to Label INNER_LOOP  [0,1,1,1]       {0:4}
 NSNSN     Jump to Label OUTER_LOOP      [0,1,1,1]       {0:4}
 SNS       Duplicate top (1)             [0,1,1,1,1]     {0:4}
 SSSTSN    Push 2                        [0,1,1,1,1,2]   {0:4}
 TSTT      Modulo top two (1%2)          [0,1,1,1,1]     {0:4}
 SSSTN     Push 1                        [0,1,1,1,1,1]   {0:4}
 TSSS      Add top two (1+1)             [0,1,1,1,2]     {0:4}
 SNT       Swap top two                  [0,1,1,2,1]     {0:4}
 SSSTSN    Push 2                        [0,1,1,2,1,2]   {0:4}
 TSTS      Int-divide top two (1/2)      [0,1,1,2,0]     {0:4}
 SNS       Duplicate top (0)             [0,1,1,2,0,0]   {0:4}
 NTSN      If 0: Go to Label INNER_LOOP  [0,1,1,2,0]     {0:4}
 NSSN      Create Label INNER_LOOP       [0,1,1,2,0]     {0:4}
  SSSTTN   Push 3                        [0,1,1,2,0,3]   {0:4}
  TSSN     Multiply top two (0*3)        [0,1,1,2,0]     {0:4}
  TSSS     Add top two (2+0)             [0,1,1,2]       {0:4}
  SNT      Swap top two                  [0,1,2,1]       {0:4}
  SNS      Duplicate top (1)             [0,1,2,1,1]     {0:4}
  NTSTN    If 0: Jump to Label PRINT     [0,1,2,1]       {0:4}
  SNT      Swap top two                  [0,1,1,2]       {0:4}
  NSNN     Jump to Label INNER_LOOP      [0,1,1,2]       {0:4}
  SSSTTN   Push 3                        [0,1,1,2,3]     {0:4}
  TSSN     Multiply top two (2*3)        [0,1,1,6]       {0:4}
  TSSS     Add top two (1+6)             [0,1,7]         {0:4}
  SNT      Swap top two                  [0,7,1]         {0:4}
  SNS      Duplicate top (1)             [0,7,1,1]       {0:4}
  NTSTN    If 0: Jump to Label PRINT     [0,7,1]         {0:4}
  SNT      Swap top two                  [0,1,7]         {0:4}
  NSNN     Jump to Label INNER_LOOP      [0,1,7]         {0:4}
  SSSTTN   Push 3                        [0,1,7,3]       {0:4}
  TSSN     Multiply top two (7*3)        [0,1,21]        {0:4}
  TSSS     Add top two (1+21)            [0,22]          {0:4}
  SNT      Swap top two                  [22,0]          {0:4}
  SNS      Duplicate top (0)             [22,0,0]        {0:4}
  NTSTN    If 0: Jump to Label PRINT     [22,0]          {0:4}
  NSSTN    Create Label PRINT            [22,0]          {0:4}
   SNT     Swap top two                  [0,22]          {0:4}
   TNST    Print top to STDOUT           [0]             {0:4}           22
                                                                                  error

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


У цей момент, чому б не написати збірку? Також у мене відповідь трохи простіший ітеративний метод у моїй відповіді codegolf.stackexchange.com/a/161833/17360
qwr

Далі я спростив свій псевдокод python.
qwr

1
@qwr Ваш код Python майже такий же, як і відображений код Java. Java просто більш багатослівна і схильна до помилок. Єдина відмінність полягає в тому, що мій код Java - це вкладений цикл while, а ваш розділений. Я міг би це зробити і в Java, але оскільки він вкладений у Whitespace, я вирішив записати його як такий у псевдокоді Java. Крім того, у Whitespace немає жодного способу дізнатися кількість елементів, що залишилися в стеку, тому я натискаю 0 на початку, а в INNER_LOOP частині коду роблять: swap, перевіряємо, чи 0, поміняти назад. Хоча приємна відповідь Асамблеї. Тому я поставив це +1. :)
Кевін Кройсейсен

Я все ще думаю, що ви можете позбутися n < 1перевірки, натискаючи значення, поки n не дорівнює 0, а потім вискакуючи їх, поки не потрапите на граничне значення (0). Глибина стека не потрібно зберігати явно, і навіть не потрібно їх замінювати (якщо ви маєте на увазі
підміну

@qwr " Я все ще думаю, що ви можете позбутися перевірки n <1, натискаючи значення, поки n не дорівнює 0 " Umm .. перевіряючи, чи n < 1(або n == 0) IS натискає значення, поки nце 0 .. Або я неправильно тлумачу тут щось ..: S " Глибина стека не потрібно зберігати явно " У Java це відбувається, інакше я не можу створити масив. Я міг би використати java.util.Stackнатомість, але я просто використав масив, щоб зробити його менш багатослівним. У Whitespace стек не визначеного розміру.
Кевін Кройсейсен






Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.