प्राइम पावर से रिकवर करें

16

ऐसा लगता है कि बहुत से लोग ऐसा करना चाहते हैं, इसलिए यह अब इस चुनौती की अगली कड़ी है !

परिभाषा : एक प्रमुख शक्ति एक प्राकृतिक संख्या है जिसे प्रपत्र n n में व्यक्त किया जा सकता है जहां p एक अभाज्य संख्या है और n एक प्राकृतिक संख्या है।

टास्क : प्राइम पावर p n > 1 को देखते हुए , पावर n लौटाएं।

टेस्टकेस :

input output
9     2
16    4
343   3
2687  1
59049 10

स्कोरिंग : यह कोड-गोल्फ है । बाइट्स जीत में सबसे छोटा जवाब।

code-golf  number  arithmetic  primes 
— लीक नन
स्रोत
2
नोट : यह चुनौती कुछ गोल्फ भाषाओं में तुच्छ हो सकती है, लेकिन कुछ मुख्यधारा की भाषाओं के लिए यह इतना तुच्छ नहीं है, साथ ही साथ जून 2018 की भाषा QBasic भी है।
— E
क्या हम 1 के बजाय ट्रू आउटपुट कर सकते हैं? वैकल्पिक रूप से, ints के बजाय फ्लोट?
— जो किंग
1
@ जोकिंग हाँ, हाँ।
— लीक नून
— DLosc

जवाबों:

7

05AB1E , 2 बाइट्स

Òg

इसे ऑनलाइन आज़माएं!

— पनीर
स्रोत
2
PPCG में आपका स्वागत है!
— ओलिवर
1
वास्तव में आपका स्वागत है! इसे पढ़ने वाले किसी भी व्यक्ति के लिए:: Òमुख्य कारकों की पुश सूची (डुप्लिकेट के साथ) और g: पुश लंबाई ।
— केविन क्रूज़सेन
5

पायथन 3 , 49 बाइट्स

f=lambda n,x=2:n%x and f(n,x+1)or n/x<2or-~f(n/x)

इसे ऑनलाइन आज़माएं!

True1 के बजाय आउटपुट ( जैसा कि ओपी द्वारा अनुमति है )। पुनरावर्ती फ़ंक्शन जो बार-बार सबसे कम कारक पाता है और फिर अगले सबसे कम शक्ति के साथ फिर से फ़ंक्शन को कॉल करता है जब तक कि यह 1 तक नहीं पहुंचता। यह पिछले प्रश्न के लिए मेरे उत्तर का एक विस्तार है ।

— मजाक कर रहा है
स्रोत
4

पायथन 2 , 37 बाइट्स

f=lambda n,i=2:i/n or(n%i<1)+f(n,i+1)

इसे ऑनलाइन आज़माएं!

कारक गिनता है। जाहिर तौर पर मैंने वही गोल्फ लिखा था 2015 में ।

संकीर्णता गैर-पुनरावर्ती को हरा देती है

पायथन 2 , 38 बाइट्स

lambda n:sum(n%i<1for i in range(1,n))

इसे ऑनलाइन आज़माएं!

— XNOR
स्रोत
3

डीसी , ५० ४१ बाइट्स

1si[dli1+dsi%0<X]dsXx[dli/dli<Y]sYdli<Yzp

इसे ऑनलाइन आज़माएं!

स्टैक के शीर्ष से इनपुट लेता है (TIO में, निष्पादन से पहले स्टैक पर लोड करने के लिए हेडर में इनपुट डालें)। स्टडआउट करने के लिए आउटपुट।

व्याख्या

इस्तेमाल किया रजिस्टर:

i: Xचल रहा है , जबकि वर्तमान परीक्षण प्रभाग । बाद में, हमने जो विभाजक पाया है।

X: मैक्रो dli1+dsi%0<X, जिसका प्रभाव है "वेतन वृद्धि i, फिर स्टैक पर मान के साथ मापांक (जो कि मूल इनपुट होगा) की जांच करें। यदि यह शून्य नहीं है, तो दोहराएं"।

Y: मैक्रो dli/dli<Y, जिसका प्रभाव है "स्टैक के वर्तमान शीर्ष की एक प्रति स्टैक में जोड़ें, द्वारा विभाजित i। दोहराएं जब तकi यह पूरा जाता।"

पूरा कार्यक्रम:

1si                 Initialize i
[dli1+dsi%0<X]dsXx  Define and run X
[dli/dli<Y]sY       Define Y
dli<Y               Run Y, but only if needed (if the input wasn't just i)
z                   The stack is i^n, i^(n-1), ... ,i, so print the stack depth
— सोफिया लेचनर
स्रोत
मुझे एक बेहतर समाधान मिला! अब संपादन ...
— सोफिया लेचनर
3

चेहरा , 86 बाइट्स

(%d@)\$*,c'$,io>Av"[""mN*c?*m1*mp*m%*s1"$pN1p:~+p1p%%Np?%~:=/NNp+?1?-%N1?%=p%'$i?w1'%>

हुर्रे, जावा से अधिक लंबा!

इसे ऑनलाइन आज़माएं!

मैं विशेष रूप से वापसी मूल्य का उपयोग करने की चाल का शौकीन हूं sscanf। आम तौर पर रिटर्न वैल्यू को छोड़ दिया जाएगा, लेकिन यहां यह हमेशा 1 होगा, क्योंकि हम हमेशा इनपुट के रूप में एक ही नंबर पढ़ रहे हैं। हम इसका लाभ वैरिएबल में इसके वापसी मूल्य को बताकर उठा सकते हैं 1, 2 बाइट्स को बचाएंगे जो कि 1स्पष्ट रूप से 1 को असाइन करने की आवश्यकता होगी ।

(%d@)

\$*,c'$,io>  ( setup - assign $ to "%d", * to a number, o to stdout )
Av"[""mN*    ( set " to input and allocate space for N for int conversion )
c?*          ( calloc ?, starting it at zero - this will be the output )
m1*          ( allocate variable "1", which gets the value 1 eventually )
mp*m%*       ( p is the prime, % will be used to store N mod p )

s1"$pN       ( scan " into N with $ as format; also assigns 1 to 1 )

1p:~         ( begin loop, starting p at 1 )
  +p1p       ( increment p )
  %%Np       ( set % to N mod p )
?%~          ( repeat if the result is nonzero, so that we reach the factor )

:=           ( another loop to repeatedly divide N by p )
  /NNp       ( divide N by p in-place )
  +?1?       ( increment the counter )
  -%N1       ( reuse % as a temp variable to store N-1 )
?%=          ( repeat while N-1 is not 0 -- i.e. break when N = 1 )

p%'$i?       ( sprintf ? into ', reusing the input format string )
w1'%>        ( write to stdout )
— Doorknob
स्रोत
3

अताशे और वुल्फ्राम भाषा (मैथमेटिका) पॉलीग्लॉट, 10 बाइट्स

PrimeOmega

ऑनलाइन प्रयास करें! ऑनलाइन गणित की कोशिश करो!

मुख्य कारकों एन की संख्या की गणना के लिए बस एक बिल्डिन ।

व्याख्या

चूंकि N = p k , Ω ( N ) = p ( p k ) = k , वांछित परिणाम।

— कोनोर ओ ब्रायन
स्रोत
2

43

|f%

इसे चलाएं और डीबग करें

अभाज्य कारक की लंबाई।

— wastl
स्रोत
5
आह .. आप को तोड़ने रहे हैं (; से 4 पार अभी भी नियमित रूप से 4 । हालांकि .. तो अच्छी तरह से किया मुझे लगता है) पी (यह पुराने वैसे भी हो रही थी; मेम
— केविन Cruijssen
1
याय, मथजक्स गाली!
2

व्हॉट्सएप, 141 बाइट्स

[S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   T   _Read_STDIN_as_number][T    T   T   _Retrieve][S S S T  N
_Push_1][N
S S N
_Create_Label_LOOP_1][S S S T   N
_Push_1][T  S S S _Add][S N
S _Duplicate][S T   S S T   S N
_Copy_2nd_input][S N
T   _Swap_top_two][T    S T T   _Modulo][N
T   S S N
_If_0_Jump_to_Label_BREAK_1][N
S N
N
_Jump_to_Label_LOOP_1][N
S S S N
_Create_Label_BREAK_1][S S S N
_Push_0][S T    S S T   S N
_Copy_2nd_input][N
S S T   N
_Create_Label_LOOP_2][S N
S _Duplicate_input][S S S T N
_Push_1][T  S S T   _Subtract][N
T   S S S N
_If_0_Jump_to_Label_BREAK_2][S N
T   _Swap_top_two][S S S T  N
_Push_1][T  S S S _Add][S N
T   _Swap_top_two][S T  S S T   S N
Copy_2nd_factor][T  S T S _Integer_divide][N
S N
T   N
_Jump_to_Label_LOOP_2][N
S S S S N
_Create_Label_BREAK_2][S N
N
_Discard_top][T N
S T _Print_as_number]

पत्र S(स्थान), T(टैब), और N(नई-पंक्ति) केवल हाइलाइटिंग के रूप में जोड़े गए।
[..._some_action]केवल स्पष्टीकरण के रूप में जोड़ा गया।

इसे ऑनलाइन आज़माएँ (कच्चे स्थान, टैब और नई-नई लाइनों के साथ)।

छद्म कोड में स्पष्टीकरण:

Integer n = STDIN as input
Integer f = 1
Start LOOP_1:
  f = f + 1
  if(n modulo-f == 0)
    Call function BREAK_1
  Go to next iteration of LOOP_1

function BREAK_1:
  Integer r = 0
  Start LOOP_2:
    if(n == 1)
      Call function BREAK_2
    r = r + 1
    n = n integer-divided by f
    Go to next iteration of LOOP_2

function BREAK_2:
  Print r as number to STDOUT
  Program stops with an error: Exit not defined

उदाहरण रन: input = 9

Command    Explanation                    Stack           Heap    STDIN   STDOUT   STDERR

SSSN       Push 0                         [0]
SNS        Duplicate top (0)              [0,0]
TNTT       Read STDIN as number           [0]             {0:9}   9
TTT        Retrieve                       [9]             {0:9}
SSSTN      Push 1                         [9,1]           {0:9}
NSSN       Create Label_LOOP_1            [9,1]           {0:9}
 SSSTN     Push 1                         [9,1,1]         {0:9}
 TSSS      Add top two (1+1)              [9,2]           {0:9}
 SNS       Duplicate top (2)              [9,2,2]         {0:9}
 STSSTSN   Copy 2nd from top              [9,2,2,9]       {0:9}
 SNT       Swap top two                   [9,2,9,2]       {0:9}
 TSTT      Modulo top two (9%2)           [9,2,1]         {0:9}
 NTSSN     If 0: Jump to Label_BREAK_1    [9,2]           {0:9}
 NSNN      Jump to Label_LOOP_1           [9,2]           {0:9}

 SSSTN     Push 1                         [9,2,1]         {0:9}
 TSSS      Add top two (2+1)              [9,3]           {0:9}
 SNS       Duplicate top (3)              [9,3,3]         {0:9}
 STSSTSN   Copy 2nd                       [9,3,3,9]       {0:9}
 SNT       Swap top two                   [9,3,9,3]       {0:9}
 TSTT      Modulo top two (9%3)           [9,3,0]         {0:9}
 NTSSN     If 0: Jump to Label_BREAK_1    [9,3]           {0:9}
NSSSN      Create Label_BREAK_1           [9,3]           {0:9}
SSSN       Push 0                         [9,3,0]         {0:9}
STSSTSN    Copy 2nd from top              [9,3,0,9]       {0:9}
NSSTN      Create Label_LOOP_2            [9,3,0,9]       {0:9}
 SNS       Duplicate top (9)              [9,3,0,9,9]     {0:9}
 SSSTN     Push 1                         [9,3,0,9,9,1]   {0:9}
 TSST      Subtract top two (9-1)         [9,3,0,9,8]     {0:9}
 NTSSSN    If 0: Jump to Label_BREAK_2    [9,3,0,9]       {0:9}
 SNT       Swap top two                   [9,3,9,0]       {0:9}
 SSSTN     Push 1                         [9,3,9,0,1]     {0:9}
 TSSS      Add top two (0+1)              [9,3,9,1]       {0:9}
 SNT       Swap top two                   [9,3,1,9]       {0:9}
 STSSTSN   Copy 2nd from top              [9,3,1,9,3]     {0:9}
 TSTS      Integer-divide top two (9/3)   [9,3,1,3]       {0:9}
 NSNTN     Jump to Label_LOOP_2           [9,3,1,3]       {0:9}

 SNS       Duplicate top (3)              [9,3,1,3,3]     {0:9}
 SSSTN     Push 1                         [9,3,1,3,3,1]   {0:9}
 TSST      Subtract top two (3-1)         [9,3,1,3,2]     {0:9}
 NTSSSN    If 0: Jump to Label_BREAK_2    [9,3,1,3]       {0:9}
 SNT       Swap top two                   [9,3,3,1]       {0:9}
 SSSTN     Push 1                         [9,3,3,1,1]     {0:9}
 TSSS      Add top two (1+1)              [9,3,3,2]       {0:9}
 SNT       Swap top two                   [9,3,2,3]       {0:9}
 STSSTSN   Copy 2nd from top              [9,3,2,3,3]     {0:9}
 TSTS      Integer-divide top two (3/3)   [9,3,2,1]       {0:9}
 NSNTN     Jump to Label_LOOP_2           [9,3,2,1]       {0:9}

 SNS       Duplicate top (1)              [9,3,2,1,1]     {0:9}
 SSSTN     Push 1                         [9,3,2,1,1,1]   {0:9}
 TSST      Subtract top two (1-1)         [9,3,2,1,0]     {0:9}
 NTSSSN    If 0: Jump to Label_BREAK_2    [9,3,2,1]       {0:9}
NSSSSN     Create Label_BREAK_2           [9,3,2,1]       {0:9}
 SNN       Discard top                    [9,3,2]         {0:9}
 TNST      Print as integer               [9,3]           {0:9}           2
                                                                                    error

प्रोग्राम एक त्रुटि के साथ बंद हो जाता है: कोई निकास नहीं मिला।

— केविन क्रूज़सेन
स्रोत
1

हास्केल , 27 बाइट्स

f n=sum$(0^).mod n<$>[2..n]

इसे ऑनलाइन आज़माएं!

कारक गिनता है। की तुलना करें:

हास्केल , 28 बाइट्स

f n=sum[1|0<-mod n<$>[2..n]]

इसे ऑनलाइन आज़माएं!

हास्केल , 28 बाइट्स

f n=sum[0^mod n i|i<-[2..n]]

इसे ऑनलाइन आज़माएं!

हास्केल , 30 बाइट्स

f n=sum[1|i<-[2..n],mod n i<1]

इसे ऑनलाइन आज़माएं!

— XNOR
स्रोत
1

Cjam, 5 बाइट्स

rimf,

इसे ऑनलाइन आज़माएं!

स्पष्टीकरण:

ri      take the input and convert it to an int
  mf    factors the input
    ,   take the length of the list

बिल्ला महान हैं!

— क्रोमियम
स्रोत
प्रस्तुतियाँ डिफ़ॉल्ट रूप से प्रोग्राम या फ़ंक्शंस होनी चाहिए, और हम इसे फ़ंक्शन नहीं मानते हैं । दोनों rimf,(पूर्ण कार्यक्रम) और {mf,}(फ़ंक्शन) मान्य होंगे।
— डेनिस
@ डेनिस हाँ, मुझे लगता है कि मैं उस पर उलझन में हूँ। मैंने पहले भी स्टारडियो की अनुमति दी और देखा कि मैं वास्तव में क्या प्रस्तुत करना चाहिए, इस बारे में सोच रहा था ... मैं वास्तव में उस बारे में एक प्रश्न पूछना चाहता था। लेकिन आपने पुष्टि की है, इसलिए धन्यवाद!
— क्रोमियम
1

QBasic, 51 बाइट्स

INPUT x
p=2
WHILE x/p>x\p
p=p+1
WEND
?LOG(x)/LOG(p)

आधार खोजने के लिए "रिकवर प्राइम" समाधान के रूप में एक ही एल्गोरिथ्म का उपयोग करता है, फिर एक्सपोजर प्राप्त करने के लिए लघुगणक के नियमों का उपयोग करता है:एलओजी(पीn)=n⋅एलओजी(पी)।

— DLosc
स्रोत
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.