Recupera la prima del primer poder

13

Definición : una potencia prima es un número natural que se puede expresar en la forma p n donde p es un número primo yn es un número natural.

Tarea : Dada una potencia principal p n > 1, devuelve la potencia principal p.

Casos de prueba :

input output
9     3
16    2
343   7
2687  2687
59049 3

Puntuación : Este es el código de golf . La respuesta más corta en bytes gana.

code-golf arithmetic primes king-of-the-hill python board-game code-golf number subsequence code-golf ascii-art code-golf array-manipulation decision-problem grid fastest-algorithm logic-gates logic code-golf cards code-golf rational-numbers code-golf math number sequence code-golf array-manipulation integer code-golf number array-manipulation code-golf number sequence decision-problem code-golf ascii-art number code-challenge sequence arithmetic sorting code-golf date fastest-algorithm code-golf string number random combinatorics code-golf combinatorics code-golf ascii-art base-conversion code-golf array-manipulation code-golf string code-golf string number arithmetic code-golf kolmogorov-complexity code-golf string array-manipulation json code-golf puzzle-solver code-golf binary graph-theory code-golf arithmetic haskell code-golf string cipher code-golf code-golf string parsing alphabet code-golf string code-golf ascii-art code-golf string number code-golf string balanced-string Monja permeable
fuente
1
Puede nser 1?
user202729
@ user202729: en el cuarto caso de prueba n = 1.
Emigna
15
Tal vez hubiera sido más difícil obtener la parte de poder en lugar de la parte principal. Tal como están las cosas, esto es solo "Obtenga el factor más bajo que no sea 1"
Jo King

Respuestas:

13

Lenguaje de programación Shakespeare , 209 207 bytes

T.Ajax,.Page,.Act I:.Scene I:.[Enter Ajax and Page]Ajax:Listen tothy!Page:You cat!Scene V:.Page:You be the sum ofyou a cat!Be the product ofthe quotient betweenI you you worse I?If soLet usScene V.Open heart

Pruébalo en línea!

(I/you)*you<Ies más corto que I%you>0en SPL.

usuario202729
fuente
1
La herramienta adecuada para el trabajo.
Jeremy Weirich
7

Java 8, 46 39 37 bytes

n->{int r=1;for(;n%++r>0;);return r;}

-7 bytes indirectamente gracias a @Tsathoggua .
-2 bytes gracias a JoKing

Pruébalo en línea.

Explicación:

n->{               // Method with integer as both parameter and return-type
  int r=1;         //  Start the result-integer `r` at 1
  for(;n%++r>0;);  //  Increase `r` by 1 before every iteration with `++r`
                   //  and loop until `n` is divisible by `r`
  return r;}       //  After the loop, return `r` as result
Kevin Cruijssen
fuente
Siguiendo la respuesta de Luis Mendo en python3 , ¿sería posible escribir n->{for(int i=1;++i<=n;)if(n%i<1)return i;}para obtener 43 caracteres? (No hablo Java.)
Tsathoggua
@Tsathoggua Como lo tienes ahora, no, ya que los métodos Java siempre deben tener un retorno. n->{for(int i=1;++i<=n;)if(n%i<1)return i;return n;}funcionaría, pero desafortunadamente es más largo. Sin embargo, Java puede tener un solo retorno en bucles infinitos, lo que de hecho ahorra bytes, así que ¡gracias! n->{for(int i=1;;)if(n%++i<1)return i;}. Dado ique neventualmente se convertirá (como con el caso de prueba 2687) y n%n==0, i<=nno se requiere en este caso.
Kevin Cruijssen
1
¿Qué tal 37 bytes ? No estoy lo suficientemente familiarizado con Java para ver si se puede jugar más al golf
Jo King
@JoKing No veo nada más para jugar al golf, así que gracias por el -2.
Kevin Cruijssen
5

Python 3 , 36 35 bytes

-1 byte gracias a Mathmandan

f=lambda n,x=2:n%x and f(n,x+1)or x

Pruébalo en línea!

Función recursiva que encuentra el primer factor mayor que 1

Jo King
fuente
1
Agradable. Puede (generalmente) guardar un byte si lo reemplaza if/elsecon and/or. Al igual, f=lambda n,x=2:n%x and f(n,x+1)or x.
Mathmandan
4

MATL , 4 3 bytes

Yfu

Pruébalo en línea!

Explicación:

       % Implicit input:      [59049]
Yf     % Prime factorization: [3 3 3 3 3 3 3 3 3 3]
  u    % Unique elements:     [3]
       % Implicit output
Stewie Griffin
fuente
1
Muy buena mejora! Volvería a votar :-)
Luis Mendo
4

Espacio en blanco , 80 61 60 bytes

[S S T  T   N
_Push_-1][S S S N
_Push_0][T  N
T   T   _Read_STDIN_as_number][N
S S N
_Create_Label_LOOP][S S S T N
_Push_1][T  S S T   _Subtract][S N
S _Duplicate][S S S N
_Push_0][T  T   T   _Retrieve][S N
T   _Swap][T    S T T   _Modulo][N
T   T   N
_If_0_Jump_to_Label_LOOP][S S T T   N
_Push_-1][T S S N
_Multiply][T    N
S T _Print_as_number]

-20 bytes gracias a @JoKing .

Se agregaron letras S(espacio), T(tabulación) y N(nueva línea) solo como resaltado.
[..._some_action]agregado solo como explicación.

Pruébelo en línea (solo con espacios en bruto, pestañas y nuevas líneas).

Explicación en pseudocódigo:

Integer n = STDIN as integer
Integer i = -1
Start LOOP:
  i = i - 1
  if(n modulo-i is negative)
    Go to next iteration of LOOP
  else
    i = i * -1
    Print i
    Exit with error: No exit defined

Ejemplo de ejecución: input = 9

Command   Explanation                    Stack        Heap     STDIN    STDOUT    STDERR

SSTTN     Push -1                        [-1]
SSSN      Push 0                         [-1,0]
TNTT      Read STDIN as integer          [-1]         {0:9}    9
NSSN      Create Label_LOOP              [-1]         {0:9}
 SSSTN    Push 1                         [-1,1]       {0:9}
 TSST     Subtract top two (-1-1)        [-2]         {0:9}
 SNS      Duplicate top (-2)             [-2,-2]      {0:9}
 SSSN     Push 0                         [-2,-2,0]    {0:9}
 TTT      Retrieve                       [-2,-2,9]    {0:9}
 SNT      Swap top two                   [-2,9,-2]    {0:9}
 TSTT     Modulo top two (9%-2)          [-2,-1]      {0:9}
 NTSN     If neg.: Jump to Label_LOOP    [-2]         {0:9}

 SSTTN    Push -1                        [-2,-1]      {0:9}
 TSST     Subtract top two (-2-1)        [-3]         {0:9}
 SNS      Duplicate top (-2)             [-3,-3]      {0:9}
 SSSN     Push 0                         [-3,-3,0]    {0:9}
 TTT      Retrieve                       [-3,-3,9]    {0:9}
 SNT      Swap top two                   [-3,9,-3]    {0:9}
 TSTT     Modulo top two (9%-3)          [-3,0]       {0:9}
 NTSN     If neg.: Jump to Label_LOOP    [-3]         {0:9}
 SSTTN    Push -1                        [-3,-1]      {0:9}
 TSSN     Multiply top two (-3*-1)       [3]          {0:9}
 TNST     Print as integer               []           {0:9}             3
                                                                                  error

El programa se detiene con un error: no se encontró ninguna salida.

Kevin Cruijssen
fuente
1
¿Necesitas el i == ncheque? n%nsería 0 de todos modos
Jo King
@JoKing Ah, por supuesto. Gracias, 19 bytes guardados allí mismo. :)
Kevin Cruijssen
¿Podría hacer un bucle si no es así n%iy llamar a la impresión después?
Jo King
1
@JoKing Estoy bastante seguro de que no. El espacio en blanco realmente no tiene bucles, solo tiene saltos a las etiquetas. Las únicas tres opciones que tengo son: 1. saltar a una determinada etiqueta incondicionalmente; 2. saltar a una determinada etiqueta si la parte superior de la pila es 0; 3. saltar a una determinada etiqueta si la parte superior de la pila es negativa. Desafortunadamente no hay un "salto a la etiqueta si es positivo" para continuar el ciclo. Podría lograr esto multiplicando por -1 antes de verificar si es negativo, pero dudo que sea más corto.
Kevin Cruijssen
1
Intenté hacerlo con un módulo negativo y terminó en <s> 62 </s> 60 bytes (yay). Resulta que no puede almacenar en direcciones de montón negativas (aunque 0 guardó un par de bytes)
Jo King
4

Octava , 16 bytes

@(x)factor(x)(1)

Pruébalo en línea!

Explicación:

@(x)              % Anonymous function taking x as input
    factor(x)     % Prime factorization
             (1)  % Get the first element

O: 

@(x)max(factor(x))  % the makeup of makeup artists
Stewie Griffin
fuente
1
+1 para factor máximo
Brain Guider
2

Jalea , 3 bytes

ÆfḢ

Pruébalo en línea!

ÆfṪ, ÆfXtambién podrían ser funciones que compiten seriamente.
ÆfQpodría ser un programa completo que compite seriamente.

Erik el Outgolfer
fuente
2

Adelante (gforth) , 34 bytes

: f 1 begin 1+ 2dup mod 0= until ;

Pruébalo en línea!

Explicación

  1. Iterar enteros a partir de 2
  2. Deténgase y regrese cuando encuentre uno que divida n sin resto

Explicación del código

: f               \ Define a new word
  1               \ place a 1 on the stack (to use as a counter/index)
  begin           \ start indefinite loop
    1+ 2dup       \ increment counter and duplicate counter and prime power
    mod           \ calculate power % index
  0= until        \ end the loop if modulus is 0 (no remainder)
;                 \ end word definition
reffu
fuente
1

Neim , 1 byte

𝐔

Pruébalo en línea!

Okx
fuente
U + 1D414 es un carácter, pero en UTF-8 y UTF-16 está representado por 4 bytes.
Ruud Helderman
1
@RuudHelderman Correcto, pero esto no está en UTF-8 ni UTF-16.
Okx
1
@RuudHelderman Es posible que desee ver la página de códigos de Neim .
JungHwan Min
@JungHwanMin Gracias; Al examinar las presentaciones anteriores de Okx Neim, noté que mi reacción ligeramente ignorante no fue la primera. Característica inteligente, pero lejos de ser obvia; justifica explicación (como se hace aquí ). Citando la información de la etiqueta de código de golf : "A menos que se especifique que la pregunta se puntúe por caracteres, se puntúa por bytes. Si no especifica una codificación de caracteres para usar en la puntuación, las respuestas que usen puntos de código Unicode fuera de 0 a 255 deberían indicar la codificación utilizada ".
Ruud Helderman
@RuudHelderman por meta consenso , si una respuesta no especifica una codificación, por defecto es la codificación predeterminada del idioma. Si eso no existe, entonces es UTF-8. En este caso, Neim tiene una codificación predeterminada definida, por lo que se supone que es la codificación de la respuesta, sin que el respondedor tenga que explicarlo como tal.
JungHwan Min
1

Mathematica, 17 bytes

Divisors[#][[2]]&

El segundo divisor más pequeño.

para Monica
fuente
1

R , 32 26 bytes

@Giuseppe con lógica diferente y una solución más corta:

(x=2:(n=scan()))[!n%%x][1]

Pruébalo en línea!

Original:

numbers::primeFactors(scan())[1]

Pruébalo en línea!

Obviamente, este es un puerto muy superior de la solución 05AB1E .

ngm
fuente
0

PowerShell , 31 bytes

param($a)(2..$a|?{!($a%$_)})[0]

Pruébalo en línea!

Construye un rango desde 2a entrada $a, extrae esos elementos where(? ), la operación del módulo %da como resultado un cero !(...)(es decir, aquellos que son divisores de $a), y luego toma el más pequeño de los [0]mismos. Eso queda en la tubería, la salida es implícita.

AdmBorkBork
fuente
0

Perl 6 , 22 bytes

{grep($_%%*,2..$_)[0]}

Pruébalo en línea!

Bloque de código anónimo que filtra los factores del rango de 2 a la entrada y devuelve el primero. Intenté usar ^$para guardar 2 bytes, pero eso no funcionó en el caso de que la entrada fuera primo.

Jo King
fuente
0

Visual Basic .NET (.NET Framework v4.5), 123 71 bytes

-52 bytes gracias a @Jo King

Function A(n)
For i=n To 2 Step-1
A=If(n Mod i=0,i,A)
Next
End Function

Pruébalo en línea!

Sin golf:

Function A(input As Long) As Long
    For i = input To 2 Step -1
        A = If (input Mod i = 0, i, A)
    Next
End Function

Explicación:

El ibucle busca hacia atrás desde el primer número y encuentra todos los números que lo dividen en partes iguales. Como vamos hacia atrás, lo más pequeño se almacena en lo deseable A.

VB le ofrece una variable libre que coincide con el nombre de su función (en mi caso, A). Al final de la ejecución de la función, se devuelve el valor en esa variable (salvo una Returndeclaración explícita .

Brian J
fuente
1
No necesita el cheque principal en absoluto. Se garantiza que el factor más pequeño de un número (que no sea 1) es primo, de lo contrario habría un factor más pequeño
Jo King
@JoKing D'oh! Por supuesto, no puedo creer que me haya perdido eso. ¡Gracias!
Brian J
0

Ruby , 100 bytes

require"prime"
i=gets.to_i
Prime.each(i){|p|(1..i).each{|n|c=p**n==i
    puts p if c
    exit if c}}

Pruébalo en línea!

Alex Allen
fuente