Це прем'єр ... майже


30

Якщо ви коли-небудь довідалися про примочки в класі математики, вам, мабуть, довелося, в один момент, визначити, чи є число простим. Ви, напевно, заплуталися, поки ви ще їх навчали, наприклад, помиляючи 39 за прем'єр. Ну, не хвилюйтеся, оскільки 39 - це напівпринцип, тобто, що це продукт двох прайменів.

Точно так само ми можемо визначити k -більш простий простір як добуток k простих чисел. Наприклад, 40 - це 4-й майже майже простий; 40 = 5 * 2 * 2 * 2, добуток 4 факторів.

Ваше завдання - написати програму / функцію, яка приймає два цілих числа n і k як вхід і вихід / повернення n- го k -найбільше простого числа. Це кодовий гольф, тому виграє найкоротша програма в байтах.

Тестові справи

n, k => output
n, 1 => the nth prime number
1, 1 => 2
3, 1 => 5
1, 2 => 4
3, 2 => 9
5, 3 => 27

Різне

Ви повинні створити праймери самостійно будь-якими способами, крім простої закритої форми, якщо така закрита форма існує.


Перевірте математику у своєму першому прикладі: 40 не дорівнює 5 * 2 * 2 * 2 * 2.
GamrCorps

@GamrCorps Ага, так, дякую.
Conor O'Brien

Як ви визначаєте n -й майже прайм? Що визначає, у якому порядку знаходяться k-майже праймери?
GamrCorps

3
Я не вважаю, що ваше вираження з fточки зору " f[n,1]є правильним", оскільки списки майже простих чисел містять непарні числа (наприклад, два останні приклади, які не можна виразити як добуток сили двох і простих). (І це також говорить f[n,1] == 2*f[n,1].)
2012р.

1
Чому проста закрита форма заборонена?
CalculatorFeline

Відповіді:




4

Pyke (виконувати 29), 8 байт (неконкурентоспроможний)

.fPlQq)e

Пояснення:

         - autoassign Q = eval_or_not(input())
.f    )  - First eval_or_not(input) of (^ for i in range(inf))
  P      -    prime_factors(i)
   l     -   len(^)
     q   -  ^==V
    Q    -   Q
       e - ^[-1]

4

Джулія, 84 78 59 57 байт

f(n,k,i=1)=n>0?f(n-(sum(values(factor(i)))==k),k,i+1):i-1

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

Безголовки:

function f(n, k, i=1)
    # We initialize a counter i as a function argument.

    # Recurse while we've encountered fewer than n k-almost primes
    if n > 0
        # If the sum of the exponents in the prime factorization of i is
        # equal to k, there are k prime factors of i. We subtract a boolean
        # from n, which is implicitly cast to an integer, which will
        # decrement n if i is k-almost prime and leave it as is otherwise.
        return f(n - (sum(values(factor(i))) == k), k, i + 1)
    else
        # Otherwise we return i-1 (i will have been incremented one too
        # many times, hence the -1)
        return i - 1
    end
end

4

Желе, 9 байт

ÆfL=³
ç#Ṫ

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

Як це працює

Ç#Ṫ    Main link. Left input: k. Right input: n.

Ç      Apply the helper link to k, k + 1, k + 2, ... until...
 #       n matches are found.
  Ṫ    Retrieve the last match.


ÆfL=³  Helper link. Left argument: k (iterator)

Æf     Yield the prime factors of k.
  L    Compute the length of the list, i.e., the number of prime factors.
   =³  Compare the result with k (left input).

1
Мені не відомо жодне кодування, яке може зберегти ці 9 символів як 9 байт.
Олег Припін

1
Jelly використовує користувацьке кодування, яке представляє 256 символів, які він розуміє, одиничними байтами.
Денніс

3

Брахілог , 18 байт

,1{hH&t<NḋlH;N}ⁱ⁽t

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

                      Implicit input, say [5, 3]
,1                    Append 1 to the input list. [5, 3, 1]
  {           }ⁱ⁽     Repeat this predicate the number of times given by
                        the first element of the list (5),
                        on the rest of the list [3, 1]
   hH&                Let's call the first element H
      t<N             There is a number N greater than the second element
         ḋ            Whose prime factorization's
          l           length
           H          is equal to H
            ;N        Then, pair that N with H and let that be input for
                      the next iteration
                 t    At the end of iterations, take the last N
                      This is implicitly the output

1

Математика, 56 51 байт

Last@Select[Range[2^##],PrimeOmega@#==n&/.n->#2,#]&

Попередження: Це теоретично. Не запускайте жодні значення> 4. Замініть 2 ^ ## більш ефективним виразом.


Це не працює для n=1.
IPoiler

Крім того, оскільки PrimeOmega[1]оцінює 0, &&#>1є зайвим.
IPoiler

1

Математика, 53 49 байт

Cases[Range[2^(#2+#)],x_/;PrimeOmega@x==#2][[#]]&

Створює список цілих чисел на основі вільної верхньої межі. PrimeOmegaпідраховує прості множники з кратністю, k -найбільше простих Casesбереться зі списку, і n- й член цього підмножини повертається.


2 ^ (0 + ##), або просто 2 ^ ## працює.
CalculatorFeline

@CatsAreFluffy Спробуйте 2^Sequence[1,2]зрозуміти, чому останній не вдається.
IPoiler

1

Haskell, 88 байт

Напевно, можна пограти в гольф набагато більше, оскільки я все ще новачок Haskell. Функція qповертає кількість факторів свого аргументу і fвикористовує це для отримання nthелемента списку, зробленого з усіх чисел, що мають kфактори.

q n|n<2=0|1>0=1+q(div n ([x|x<-[2..],mod n x<1]!!0))
f n k=filter(\m->q m==k)[1..]!!n-1

1

MATL, 14 байт

:YqiZ^!XpSu1G)

Спробуйте це на MATL Online

:               % Take first input n implicitly, make range 1 to n
 Yq             % Get corresponding prime numbers (1st prime to nth prime)
   i            % Take the second input k
    Z^          % Take the k-th cartesian power of the primes list 
                % (Getting all combinations of k primes)
      !Xp       % Multiply each combination (2*2*2, 2*2*3, 2*2*5, ...)
         Su     % Sort and unique
           1G)  % Take the n-th element of the result

0

Python 3, 100 байт

Це дуже проста функція грубої сили. Він перевіряє кожне число, починаючи з 2 з sympy's factorintфункцією, поки не знайде n k-більш простих простих чисел, і в цей момент функція повертає nth-е з них.

import sympy
def a(n,k):
 z=1;c=0
 while c<n:z+=1;c+=(sum(sympy.factorint(z).values())==k)
 return z

Безголовки:

Я використовую, sum(factorint(a).values())тому що factorintповертає словник factor: exponentпар. Захоплення значень словника (експонентів) та підсумовування їх підказує мені, скільки існує простих факторів, і, отже, що kтаке kнайвищий простий.

from sympy import factorint
def almost(n, k):
    z = 1
    count = 0
    while count < n: 
        z += 1
        if sum(factorint(a).values()) == k:
            count += 1
    return z

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