Stelle die Primzahl von der Primkraft wieder her

13

Definition : Eine Primzahl ist eine natürliche Zahl, die in der Form p n ausgedrückt werden kann, wobei p eine Primzahl und n eine natürliche Zahl ist.

Aufgabe : Gib bei einer Primzahl p n > 1 die Primzahl p zurück.

Testfälle :

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

Wertung : Das ist Code-Golf . Kürzeste Antwort in Bytes gewinnt.

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 Undichte Nonne
quelle
1
Kann n1 sein?
user202729
@ user202729: Im 4. Testfall n = 1.
Emigna
15
Vielleicht wäre es schwieriger gewesen, den Power- Teil anstelle des Prime-Teils zu bekommen. Wie es ist, ist dies nur "Holen Sie sich den niedrigsten Faktor, der nicht 1 ist"
Jo King

Antworten:

13

Shakespeare Programming Language , 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

Probieren Sie es online!

(I/you)*you<Iist kürzer als I%you>0in SPL.

user202729
quelle
1
Das richtige Werkzeug für den Job.
Jeremy Weirich
7

Java 8, 46 39 37 Bytes

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

-7 Bytes indirekt dank @Tsathoggua .
-2 Bytes dank JoKing

Probieren Sie es online aus.

Erläuterung:

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
quelle
Wäre es nach Luis Mendos Antwort in python3 möglich, zu schreiben n->{for(int i=1;++i<=n;)if(n%i<1)return i;}, um 43 Zeichen zu erhalten? (Ich spreche kein Java.)
Tsathoggua
@Tsathoggua Wie Sie es gerade nicht haben, da Java-Methoden immer einen Return haben müssen. n->{for(int i=1;++i<=n;)if(n%i<1)return i;return n;}würde funktionieren, ist aber leider länger. Java kann jedoch eine einzige Rückgabe in Endlosschleifen haben, was in der Tat Bytes spart, also danke! n->{for(int i=1;;)if(n%++i<1)return i;}. Da iwird nirgendwann (wie beim Testfall 2687) und n%n==0, das i<=nist in diesem Fall nicht erforderlich.
Kevin Cruijssen
1
Wie wäre es mit 37 Bytes . Ich kenne Java nicht gut genug, um zu sehen, ob noch mehr Golf gespielt werden kann
Jo King,
@JoKing Ich sehe nichts zum Golfen weiter, also danke für die -2.
Kevin Cruijssen
5

Python 3 , 36 35 Bytes

-1 byte dank mathmandan

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

Probieren Sie es online!

Rekursive Funktion, die den ersten Faktor größer als 1 findet

Scherzen
quelle
1
Nett. Sie können ( in der Regel) ein Byte speichern , wenn Sie ersetzen if/elsemit and/or. Wie f=lambda n,x=2:n%x and f(n,x+1)or x.
Mathmandan
4

MATL , 4 3 Bytes

Yfu

Probieren Sie es online!

Erläuterung:

       % Implicit input:      [59049]
Yf     % Prime factorization: [3 3 3 3 3 3 3 3 3 3]
  u    % Unique elements:     [3]
       % Implicit output
Stewie Griffin
quelle
1
Sehr schöne Verbesserung! Ich würde wieder upvote :-)
Luis Mendo
4

Leerzeichen , 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 dank @JoKing .

Buchstaben S(Leerzeichen), T(Tabulator) und (Zeilenvorschub) werden Nnur als Hervorhebungen hinzugefügt.
[..._some_action]nur als Erklärung hinzugefügt.

Probieren Sie es online aus (nur mit Leerzeichen, Tabulatoren und Zeilenumbrüchen).

Erklärung im Pseudocode:

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

Beispiellauf: 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

Programm stoppt mit Fehler: Kein Exit gefunden.

Kevin Cruijssen
quelle
1
Benötigen Sie den i == nScheck? n%nwäre sowieso 0
Jo King
@JoKing Ah, natürlich. Danke, 19 Bytes genau dort gespeichert. :)
Kevin Cruijssen
Könntest du nur loopen wenn nicht n%iund den Print danach aufrufen?
Jo King
1
@JoKing Ich bin mir ziemlich sicher, nicht. Whitespace hat eigentlich keine Loops, sondern nur Sprünge zu Labels. Die einzigen drei Möglichkeiten, die ich habe, sind: 1. bedingungslos zu einem bestimmten Label zu springen; 2. zu einem bestimmten Label springen, wenn der obere Teil des Stapels 0 ist; 3. Zu einer bestimmten Beschriftung springen, wenn die Oberseite des Stapels negativ ist. Leider gibt es keinen "Sprung zu Label, wenn positiv", um die Schleife fortzusetzen. Ich könnte dies erreichen, indem ich mit -1 multipliziere, bevor ich auf Negativ prüfe, aber ich bezweifle, dass dies kürzer sein wird.
Kevin Cruijssen
1
Versuchte es mit einem negativen Modul und endete bei <s> 62 </ s> 60 Bytes (yay). Es stellt sich heraus, dass Sie nicht bei negativen Heap-Adressen speichern können (obwohl 0 ein paar Bytes gespeichert)
Jo King
4

Oktave , 16 Bytes

@(x)factor(x)(1)

Probieren Sie es online!

Erläuterung:

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

Oder: 

@(x)max(factor(x))  % the makeup of makeup artists
Stewie Griffin
quelle
1
+1 für maximalen Faktor
Brain Guider
3

Funky , 30 Bytes

n=>fori=2n>i i++if1>n%i breaki

Probieren Sie es online!

Ein Taco
quelle
0==kann 1>ich denken.
Kevin Cruijssen
2

Gelee , 3 Bytes

ÆfḢ

Probieren Sie es online!

ÆfṪ, ÆfXkönnten auch ernsthaft konkurrierende Funktionen sein.
ÆfQkönnte ein ernsthaft konkurrierendes volles Programm sein.

Erik der Outgolfer
quelle
2

Viertens (gviertens) , 34 Bytes

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

Probieren Sie es online!

Erläuterung

  1. Iteriere ganze Zahlen ab 2
  2. Stoppen Sie und kehren Sie zurück, wenn Sie eine finden, die n ohne Rest teilt

Code Erklärung

: 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
quelle
1

Neim , 1 Byte

𝐔

Probieren Sie es online!

Okx
quelle
U + 1D414 ist ein Zeichen, aber in UTF-8 und UTF-16 wird dies durch 4 Bytes dargestellt.
Ruud Helderman
1
@RuudHelderman Richtig, aber das ist weder in UTF-8 noch in UTF-16.
Okx
1
@RuudHelderman Vielleicht möchten Sie die Neim-Codepage sehen .
JungHwan Min
@JungHwanMin Danke; Beim Durchsuchen von Okx 'früheren Neim-Beiträgen bemerkte ich, dass meine etwas unwissende Reaktion nicht die erste war. Clever, aber alles andere als selbstverständlich; rechtfertigt Erklärung (wie hier gemacht ). Zitieren von Code-Golf-Tag-Informationen : "Sofern die Frage nicht als nach Zeichen zu bewertende Frage angegeben ist, wird sie nach Bytes bewertet. Wenn keine für die Bewertung zu verwendende Zeichencodierung angegeben ist, sollten Antworten mit Unicode-Codepunkten außerhalb von 0 bis 255 beantwortet werden Geben Sie die verwendete Kodierung an. "
Ruud Helderman
@RuudHelderman Per- Meta-Konsens : Wenn in einer Antwort keine Kodierung angegeben ist, wird standardmäßig die Standardkodierung der Sprache verwendet. Wenn das nicht existiert, dann ist es UTF-8. In diesem Fall hat Neim eine definierte Standardkodierung, so dass davon ausgegangen wird, dass es sich um die Kodierung der Antwort handelt, ohne dass der Antwortende dies erklären muss.
JungHwan Min
1

Mathematica, 17 Bytes

Divisors[#][[2]]&

Der zweitkleinste Teiler.

u54112
quelle
0

PowerShell , 31 Byte

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

Probieren Sie es online!

Konstruiert einen Bereich von 2bis zur Eingabe $a, zieht die Elemente heraus where( ?), deren Modulo-Operation %eine Null ergibt !(...)(dh die, deren Teiler sind $a), und nimmt dann das kleinste [0]davon. Das bleibt in der Pipeline, die Ausgabe ist implizit.

AdmBorkBork
quelle
0

Perl 6 , 22 Bytes

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

Probieren Sie es online!

Anonymer Codeblock, der die Faktoren des Bereichs 2 zur Eingabe filtert und den ersten zurückgibt. Ich habe versucht ^$, 2 Bytes zu speichern, aber das hat nicht funktioniert, wenn die Eingabe prim war.

Jo King
quelle
0

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

-52 Bytes dank @Jo King

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

Probieren Sie es online!

Ungolfed:

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

Erläuterung:

Die iSchleife sucht ab der ersten Zahl rückwärts und findet alle Zahlen, die sie gleichmäßig teilen. Weil wir rückwärts gehen, wird das kleinste im vairable gespeichertA .

VB gibt Ihnen eine freie Variable, die Ihrem Funktionsnamen entspricht (in meinem Fall A). Am Ende der Funktionsausführung wird der Wert in dieser Variablen zurückgegeben (mit Ausnahme einer expliziten ReturnAnweisung).

Brian J
quelle
1
Sie brauchen den Prime Check überhaupt nicht. Der kleinste Faktor einer Zahl (anders als 1) ist garantiert eine Primzahl, ansonsten gibt es einen kleineren Faktor
Jo King
@JoKing D'oh! Ich kann natürlich nicht glauben, dass ich das verpasst habe. Vielen Dank!
Brian J