Определите, что натуральное число p является простым +1 от натурального числа n, если p является простым числом, и стандартное двоичное представление (т. Е. Без начальных нулей) p может быть получено путем добавления (т. Е. Добавления, добавления или вставки) один 1 к стандартному двоичному представлению n .

Например, двоичное представление 17 равно 10001 ₂ . Различными натуральными числами, которые могут быть сформированы путем добавления 1 к 10001 _2, являются 110001 ₂ или 49 , 101001 ₂ или 41 , 100101 ₂ или 37 и 100011 ₂ или 35 .

Среди них 41 и 37 являются простыми числами, поэтому 17 имеет два +1 простых числа .

задача

Написать программу или функцию , которая принимает строго натуральное число п в качестве входных данных и выводит или возвращает число различных +1 простых чисел из п .

Входные и выходные данные должны быть либо целыми числами, либо их десятичным или унарным строковым представлением.

Применяются стандартные правила игры в гольф .

Контрольные примеры

Input:  4
Output: 0

Input:  1
Output: 1

Input:  17
Output: 2

Input:  33
Output: 3

Input:  553
Output: 4

Input:  3273
Output: 5

Input:  4145
Output: 6

Input:  4109
Output: 7

Input:  196869
Output: 8

— Деннис
источник

1

Круто! Если бы у меня было время сегодня вечером, я бы ответил прямо сейчас

— anOKsquirrel

5

Pyth, 20 байтов

s/LPd{mij\1c.BQ]d2hQ

Тестирование

s/LPd{mij\1c.BQ]d2hQ
                        Q = eval(input())
      m           hQ    For insertion position in [0 ... Q]
            .BQ         Convert Q to binary string
           c   ]d       Chop at insertion position
        j\1             Join on '1'
       i         2      Convert to integer
     {                  Deduplicate
 /LPd                   Map each number to the number of times it occurs in its
                        prime factorization, e.g. whether or not it is prime.
s                       Sum and print.

— isaacg
источник

1

Да, «дедупликация» на самом деле слово.

— lirtosiast

8

JavaScript ES6, 141 байт, 143, 147, 160

Экономит 13 байт благодаря @Naouak

n=>[...t=n.toString(2)].map((l,i)=>t.slice(0,v=i+1)+1+t.slice(v)).filter((l,i,a)=>a.indexOf(l)==i&&(p=(n,c)=>n%c&&c>n-2||p(n,++c))('0b'+l,2))

Метод, аналогичный моему ответу на TeaScript, использует RegExp (вы меня правильно поняли) для проверки простых чисел.

Ungolfed

n=>
   [...t = n.toString(2)]                  // To binary
   .map((l,i)=>                            // Make cycles
               t.slice(0, v = i+1)
               + 1
               + t.slice(v)
   ).filter((l,i,a)=>  
                     a.indexOf(l) == i &&  // Remove Duplicates
                     (p=(n,c)=>            // Prime checking
                               n % c &&
                                 c > n - 2 ||
                                 p(n,++c)
                     )('0b'+l,2)
   ).length

— Downgoat
источник

Я думаю, что вы можете немного укоротить проверку простого числа так: (p=(n,c)=>n%c!=0?c>=n-1?1:p(n,++c):0)('0b'+l,2)вместо!Array(+('0b'+l)+1).join(1).match(/^1?$|^(11+?)\1+$/)

— Науак

@Naouak Удивительно, что экономит 13 байтов! :)

— Downgoat

4

Минколанг 0,11 , 54 52 байта

n1(2*d0c`,)(0c1c$%$r2*1c*1c++1g2:d1G)rxSI1-[0g2M+]N.

объяснение

n             Get integer from input (let's call it n)
1(       )    Get the smallest power of 2 (say, k) greater than input (starting with 1)
  2*d         Multiply by 2 and duplicate
     0c`,     Copy n and see if it's greater (while loop breaks on 0)

(0c1c$%                       Copy n, copy k, and divmod (pushes n//k, n%k)
       $r                     Swap top two elements
         2*                   Multiply by 2
           1c*                Copy k and multiply
              1c+             Copy k and add
                 +            Add
                  1g2:        Get k and divide by 2
                      d1G)    Duplicate and put one copy back in its former place

rx            Reverse and dump (dumps n and top of stack is now 0)
S             Remove duplicates
I1-[     ]    Check each element for primality
    0g        Get potential prime from bottom of stack
      2M      1 if prime, 0 otherwise
        +     Add (this is why I didn't dump the left-over 0 earlier)
N.            Output as integer and stop.

— Эльендия Старман
источник

Я всегда рад сказать еще одну версию Минколанга.

— Конор О'Брайен

4

TeaScript , 22 байта

x÷¿®x÷E(i¬,1)¤©d¡F(¥)n

TeaScript начинает выглядеть как APL ... Специальные символы преобразуются в более длинные, часто повторяющиеся последовательности

Онлайн-переводчик обязательно должен проверить «Входы - это числа».

Объяснение && Ungolfed

xT(2)s``m(#P(xT(2)E(i+1,1),2))d()F($P)n

xT(2)      // Take input, convert to binary
s``m(#     // Loop over input

  P(         // Convert to decimal...
     xT(2)     // Input to binary
     E(i+1,1)  // Inset 1 into (above) at current index in loop
  ,2)    

)d()       // Remove duplicates
F($P)      // Filter items that aren't prime
n          // Grab length.

— Downgoat
источник

Кстати, это 31 байт, используя gedit на Xubuntu

— Glen O

1

Это 31 байт с кодировкой UTF-8, но 22 байта с ISO-8859-1.

— Деннис

4

Юлия, 55 52 байта

n->sum(isprime,∪(2n+(k=2.^(0:endof(bin(n))))-n%k))

k=2.^(0:endof(bin(n)))генерирует массив, содержащий степени 2 от 1 до максимальной мощности меньше, чем n. 2n+k-n%kзатем использует операции массива, чтобы определить все возможные «+1 числа». ∪(эквивалентно union, что делает то же самое, что и uniqueв этой ситуации) удаляет повторяющиеся значения. Затем sum(isprime,)подсчитывает количество простых чисел в списке.

— Глен О
источник

4

CJam, 26 байтов

Не победитель, но он превосходит существующие ответы CJam довольно твердо, и я впервые использую команду 0.6.5 e\.

1ri2b+_,{_)e\_}%_&{2bmp},,

Проверьте это здесь.

объяснение

1       e# Push a 1 (this is the 1 we'll be inserting everywhere).
ri      e# Read input and convert to integer.
2b      e# Convert to base 2.
+       e# Prepend the 1.
_,      e# Duplicate and get the number of bits N.
{       e# Map this block over i from 0 to N-1...
  _)    e#   Create a copy and increment to i+1.
  e\    e#   Swap the bits at positions i and i+1, moving the 1 one step through the array.
  _     e#   Duplicate so we keep this version on the stack.
}%
_&      e# Remove duplicates via set intersection with itself.
{       e# Filter the remaining digit lists based on this block...
  2b    e#   Convert bits back to an integer.
  mp    e#   Test for primality.
},
,       e# Get the length of the remaining list.

Стоит отметить, что мы поменяем местами биты перед первой копией 0и 1перед ее созданием, поэтому мы потеряем исходный массив с 1добавленным вперед. Однако вход всегда положительный, поэтому первая цифра всегда будет одна. Это означает, что после добавления еще одного, список цифр всегда будет начинаться с [1 1 ...]того, что первый своп в любом случае будет запрещен.

— Мартин Эндер
источник

3

Mathematica, 87 байт

Union[#~FromDigits~2&/@StringReplaceList[#~IntegerString~2,a_:>a<>"1"]]~Count~_?PrimeQ&

— LegionMammal978
источник

3

Юлия, 110 108 104 87 байт

n->sum(i->isprime(parse(Int,i,2)),(b=bin(n);∪([b[[1:i;1;i+1:end]]for i=1:endof(b)])))

Это создает безымянную функцию, которая принимает и целое число и возвращает целое число. Чтобы назвать его, дайте ему имя, например f=n->....

Ungolfed:

function f(n::Integer)
    # Get the binary representation of n as a string
    b = bin(n)

    # Construct an array consisting of binary strings with
    # a one prepended, appended, and each insertion
    x = [b[[1:i; 1; i+1:end]] for i = 1:endof(b)]

    # Count the number of primes
    c = sum(i -> isprime(parse(Int, i, 2)), unique(x))

    return c
end

Сохранено 17 байтов благодаря Glen O!

— Алекс А.
источник

binдолжен начинаться с 1, поэтому вам не нужно отдельно обрабатывать "1"b. И когда у i=length(b)вас будет b[i+1:end]эквивалент "", поэтому нет необходимости в этой записи (просто нужно обработать b=bin(n)в какой-то момент). И sumбудет делать то же самое, что и countдля двух меньших байтов.

— Глен О

Кроме того, поскольку вы в bлюбом случае собираетесь использовать диапазон по длине , вы можете получить его с небольшим уловком - b=bin(n)[s=1:end]и затем for i=sдля понимания.

— Глен О

Вы также можете сохранить еще один байт, используя тот факт, что первый бит binдолжен быть равен 1, и вы получите следующее: n->sum(i->isprime(parse(Int,i,2)),(b=bin(n);unique([b[[1:i;1;i+1:end]]for i=1:endof(b)])))- это уменьшит счет до 90 байт.

— Глен О

Фактически, снимите еще один байт, заменив uniqueна union- он будет делать то же самое, если в качестве входных данных будет указан только один массив. Или еще лучше ∪вместо union.

— Глен О

@GlenO Ты хозяин. Спасибо, 先生!

— Алекс А.

2

CJam, 58 байт

L{:TQ\=A+Q\+TWe\-2<s:~2b}q~2b0+:Q,(%{:BLe=!{B+:L}&}%~:mp:+

Это заняло у меня один день, и это была моя четвертая итерация.

— anOKsquirrel
источник

2

Japt `-x` , 14 11 байт

Æ¤iX1Ãâ ®Íj

Попробуйте или запустите все тесты

Æ¤iX1Ãâ ®Íj     :Implicit input of integer U
Æ               :Map each X in the range [0,U)
 ¤              :  Convert U to binary string
  iX1           :  Insert "1" at 0-based index X
     Ã          :End map
      â         :Deduplicate
        ®       :Map
         Í      :  Convert to decimal
          j     :  Is prime?
                :Implicit output of array sum

— мохнатый
источник

1

PHP, 145 байт

Я добавил новую строку для удобства чтения:

function($n){for($b=base_convert;++$i<=strlen($s=$b($n,10,2));$r+=!$s[$i]&$k<=$j)
for($j=1;($k=$b(substr_replace($s,1,$i,0),2,10))%++$j;);echo$r;}

— Черная дыра
источник

1

CJam, 34 байта

li2b_,),\f{_2$<@@>1\++}_&2fb{mp},,

Попробуйте онлайн

Первая версия, будет обновляться, если я придумаю что-нибудь получше.

— Рето Коради
источник

1

APL, 55

{+/{2=+/0=⍵|⍨⍳⍵}¨∪⍵{2⊥(⍵↑X),1,⍵↓X←⍺⊤⍨N⍴2}¨-1-⍳N←1+⌊2⍟⍵}

На 2 байта короче Dyalog-специфичная версия:

{+/2=+/¨0=|⍨∘⍳⍨¨∪⍵{2⊥⍵(↑,(1∘,↓))⍺⊤⍨N⍴2}¨-1-⍳N←1+⌊2⍟⍵}

— user46915
источник

1

Матлаб (120)

n=input('');a=dec2bin(n);g=arrayfun(@(x)bin2dec(cat(2,a(1:x),49,a(x+1:end))),1:log2(n));nnz(unique(g(find(isprime(g)))))

Продолжается игра в гольф ...

— Abr001am
источник

1

Брахилог , 17 байт

{ḃ~c₂{,1}ʰc~ḃṗ}ᶜ¹

Попробуйте онлайн!

Ввод через входную переменную и вывод через выходную переменную.

{             }ᶜ¹    Count every unique
             ṗ       prime number
           ~ḃ        the binary representation of which is
 ḃ                   the binary representation of the input
  ~c₂                partitioned into two (possibly empty) lists
     {  }ʰ           with the first list
      ,1             having a 1 appended
          c          and the two lists then being concatenated back into one.

— Несвязанная строка
источник

1

Желе , 13 байт

BLṬkj1ʋ€$QḄẒS

Попробуйте онлайн!

— Эрик Outgolfer
источник

0

Python 2 , 103 байта

lambda n:sum(all(i%j for j in range(2,i))for i in{n%2**i+((n>>i)*2+1<<i)for i in range(len(bin(n))-2)})

Попробуйте онлайн!

— Эрик Outgolfer
источник

Подсчет +1 простых чисел

задача

Контрольные примеры

Pyth, 20 байтов

JavaScript ES6, 141 байт, 143, 147, 160

Ungolfed

Минколанг 0,11 , 54 52 байта

объяснение

TeaScript , 22 байта

Объяснение && Ungolfed

Юлия, 55 52 байта

CJam, 26 байтов

объяснение

Mathematica, 87 байт

Юлия, 110 108 104 87 байт

CJam, 58 байт

Japt -x , 14 11 байт

PHP, 145 байт

CJam, 34 байта

APL, 55

Матлаб (120)

Брахилог , 17 байт

Желе , 13 байт

Python 2 , 103 байта

Japt `-x` , 14 11 байт