23

99999999 নম্বরটি বিবেচনা করুন That এই সংখ্যাটি অবশ্যই একটি প্যালিনড্রোম। 99999999 এর বৃহত্তম প্রাইম ফ্যাক্টর হ'ল 137 you

729927 এর বৃহত্তম প্রাইম ফ্যাক্টরটি হল 101. 729927/101 = 7227 যা আবার প্যালিনড্রোম।

7227 এর বৃহত্তম প্রাইম ফ্যাক্টরটি 73. 7227/73 = 99 যা আবার একটি প্যালিনড্রোম।

বৃহত্তম প্রাইম ফ্যাক্টর দ্বারা আরও ভাগ করে, আপনি 9, 3 এবং শেষ পর্যন্ত 1 পাবেন যা এক-অঙ্কের সংখ্যা হ'ল প্যালিনড্রোমও। যেহেতু 1 এর কোনও প্রধান কারণ নেই তাই পদ্ধতিটি এখানেই শেষ হয়।

এখন এই পর্যবেক্ষণকে সাধারণীকরণ করে আমি একটি সুপার-প্যালিনড্রোমকে একটি প্যালিনড্রোম হিসাবে সংজ্ঞায়িত করি যা হয় 1, বা যা তার বৃহত্তম প্রাইম ফ্যাক্টর দ্বারা বিভক্ত হলে অন্য একটি সুপার-প্যালিনড্রোম দেয়।

^{ক্রেডিট: /math/200835/are-there-infintimate-many-super-palindromes}

একটি নম্বর এন দেওয়া , এটি একটি সুপার প্যালিনড্রোম কিনা তা নির্ধারণ করুন এবং সেই অনুযায়ী সত্যবাদী বা মিথ্যা মান মুদ্রণ করুন।

আপনার প্রোগ্রামের এই ইনপুটগুলির জন্য সত্যবাদী মানটি মুদ্রণ করা উচিত:

আপনার প্রোগ্রামের এই ইনপুটগুলির জন্য একটি মিথ্যা মান মুদ্রণ করা উচিত:

মনে রাখবেন, এটি কোড-গল্ফ , তাই সংক্ষিপ্ত পরিমাণ বাইটের কোড সহ জয়।

code-golf number palindrome

— অলিভার নি
সূত্র

3

ইনপুটটি কি Nসর্বদা প্যালিনড্রোম দিয়ে শুরু হবে?

— শার্লক 9

@ শার্লক 9 নং ..

— অলিভার নি

2

তাহলে আপনি কি মিথ্যা পরীক্ষার ক্ষেত্রে নন-প্যালিনড্রোমগুলি যুক্ত করতে পারেন? এটি স্পেসিফিকেশন স্পষ্ট হবে।

— শার্লক 9

8

জেলি , 13 12 9 8 বাইট

Æf×\D⁼U$

এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষার কেস যাচাই করুন ।

কিভাবে এটা কাজ করে

Æf×\D⁼U$  Main link. Argument: n

Æf        Yield all prime factors of n, with multiplicities and in ascending order.
  ×\      Take the cumulative product.
    D     Decimal; convert each product into the array of its base 10 digits.
       $  Combine the two links to the left into a monadic chain.
      U     Upend; reverse all arrays of decimal digits.
     ⁼      Test for equality.

— ডেনিস
সূত্র

6

গণিত, 64 বাইট

And@@PalindromeQ/@FixedPointList[#/FactorInteger[#][[-1,1]]&,#]&

নামহীন ফাংশন, ফিরে Trueবা False। ইনপুটটি শুরু করে একটি তালিকা গঠন করে তারপরে আউটপুট পরিবর্তন না হওয়া পর্যন্ত "আমার সবচেয়ে বড় প্রাইম ফ্যাক্টর দ্বারা বিভক্ত" ফাংশনটি পুনরাবৃত্তি করে। (ভাগ্যক্রমে, ম্যাথেমেটিকা এখন 1 এর বৃহত্তম প্রধান ফ্যাক্টর 1 মনে করে)) তারপরে তালিকার এন্ট্রিগুলি প্যালিনড্রোমগুলি রয়েছে (ইয়ে বিল্ট-ইনগুলি! বু ফাংশন নামের দৈর্ঘ্য!) এবং Andসেগুলি একসাথে পরীক্ষা করে।

— গ্রেগ মার্টিন
সূত্র

FactorInteger[1]FixedPoint

— সুস্পষ্ট

হ্যাঁ, এটি একবার সাহায্য করেছে! :)

— গ্রেগ মার্টিন

6

গণিত, 51 বাইট

#<2||PalindromeQ@#&&#0[#/FactorInteger[#][[-1,1]]]&

পুনরাবৃত্তি বেনামে ফাংশন। ইনপুট এবং রিটার্ন হিসাবে Trueবা Falseআউটপুট হিসাবে একটি সংখ্যা নেয় ।

— LegionMammal978
সূত্র

6

05AB1E , 9 8 বাইট

আদনানকে ধন্যবাদ একটি বাইট সংরক্ষণ করা ।

Ò.pPDíïQ

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

n = 7227 উদাহরণ হিসাবে ব্যবহৃত

Ò           # prime factors with duplicates
            # STACK: [3, 3, 11, 73]
 .p         # prefixes
            # STACK: [[3], [3, 3], [3, 3, 11], [3, 3, 11, 73]]
   P        # product
            # STACK: [3, 9, 99, 7227]
    D       # duplicate
            # STACK: [3, 9, 99, 7227], [3, 9, 99, 7227]
     í      # reverse each
            # STACK: [3, 9, 99, 7227], ['3', '9', '99', '7227']
      ï     # convert to  int
            # STACK: [3, 9, 99, 7227], [3, 9, 99, 7227]
       Q    # check for equality
            # STACK: 1
            # implicit output

— Emigna
সূত্র

আমি মনে করি Ò.pPDíïQকাজ করা উচিত।

— আদনান

5

পাইথ - 15 12 বাইট

~~জিটকে বীট করুন: পি~~ : /

দুর্ভাগ্যক্রমে, এই সমস্ত অন্তর্ভুক্ত মানচিত্র সংক্ষিপ্ত হয় না যখন একটি স্পষ্টত একের সাথে একত্রিত হয় কারণ শেষেরটি একটি অটো-স্প্লিট।

.A_IM`M*M._P

টেস্ট স্যুট ।

প্রাইম ফ্যাক্টরীকরণের সমস্ত উপসর্গ পেয়ে যায়, যার পণ্যগুলি মধ্যবর্তী সুপার প্যালিনড্রোমগুলি হবে এবং সেগুলি সমস্ত প্যালিনড্রোম কিনা তা যাচাই করে।

— Maltysen
সূত্র

4

গণিত, 71 63 বাইট

And@@PalindromeQ/@FoldList[1##&,Join@@Table@@@FactorInteger@#]&

ব্যাখ্যা

FactorInteger@#

ফ্যাক্টর ইনপুট। (যেমন 8668 -> {{2, 2}, {11, 1}, {197, 1}}; আউটপুট প্রতিটি তালিকার জন্য, প্রথম উপাদানটি প্রধান উপাদান, এবং দ্বিতীয়টি হ'ল শক্তি)।

Join@@Table@@ ...

প্রতিটি ফ্যাক্টর-পাওয়ার জোড়ের জন্য, প্রথম উপাদানটিকে দ্বিতীয় উপাদান দ্বারা নকল করুন এবং পুরো জিনিসটি সমতল করুন। ( {{2, 2}, {11, 1}, {197, 1}} -> {{2, 2}, {11}, {197}} -> {2, 2, 11, 197})

FoldList[1##&, ... ]

তালিকার মাধ্যমে উপাদানগুলি গুণমান। ( {2, 2, 11, 197} -> {2, 2 * 2, 2 * 2 * 11, 2 * 2 * 11 * 197} -> {2, 4, 44, 8668})

And@@PalindromeQ/@ ...

ফলাফলের সমস্ত নম্বর প্যালিনড্রোম কিনা তা পরীক্ষা করে দেখুন এবং Andঅপারেটরটি প্রয়োগ করুন । ( {2, 4, 44, 8668} -> {True, True, True, True}->)True )

— জংহওয়ান মিন
সূত্র

oooo, সুন্দরভাবে সম্পন্ন! এখন আমি দেখতে যাব যে আমি কোথাও 2 বাইট বাঁচাতে পারি কিনা ....

— গ্রেগ মার্টিন

3

ব্র্যাচল্যাগ , 14 বাইট

1|r?$ph:?r/:0&

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

এটি চ্যালেঞ্জের বর্ণনায় বর্ণিত সূত্রটি কার্যকর করে।

প্রাইম ফ্যাক্টেরাইজেশনের প্রত্যয়গুলির সমস্ত পণ্য গণনা করা এবং সেগুলি সমস্ত প্যালিনড্রোম কিনা তা যাচাই করা হচ্ছে 1 বাইট দীর্ঘ ( 1|$p:@]f:{*.r}a) longer

1                  Input = 1
 |                 OR
  r?               Reversing the Input results in the Input
    $p             Get the prime factors of the Input
      h            Take the first one (the biggest)
       :?r/        Divide the Input by that prime factor
           :0&     Call this predicate recursively with that new number as input

— Fatalize
সূত্র

2

র‌্যাকেট 238 বাইট

(define(p n)(=(string->number(list->string(reverse(string->list(number->string n)))))n))
(if(= n 1)#t(begin(let o((n n))(define pd(prime-divisors n))(if(null? pd)#f(begin(let((m(/ n(last pd))))
(cond[(= m 1)#t][(p m)(o m)][else #f])))))))

Ungolfed:

(define (f n)
  (define (palin? n)                      ; define palindrome of number
    (=(string->number
       (list->string
        (reverse
         (string->list
          (number->string n)))))
      n))
  (if(= n 1)#t
     (begin
       (let loop ((n n))
         (define pd (prime-divisors n))   ; find prime divisors
         (if (null? pd) #f                ; end if none- not superpalindrome
             (begin
               (let ((m (/ n (last pd)))) ; divide by largest prime divisor
                 (cond                    ; test quotient
                   [(= m 1) #t]           ; end if 1: super-palindrome found
                   [(palin? m) (loop m)]  ; loop with quotient if palindrome
                   [else #f]              ; end if not palindrome
                   ))))))))

পরীক্ষামূলক:

(f 1)
(f 101)
(f 121)
(f 282)
(f 313)
(f 353)
(f 373)
(f 393)
(f 474)
(f 737)
(f 919)
(f 959)
(f 1331)
(f 1441)
(f 2882)
(f 6446)
(f 7887)
(f 8668)
(f 9559)
(f 9779)
(f 99999999)

আউটপুট:

#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t
#t

— rnso
সূত্র

আমি র‌্যাকেটের সাথে পরিচিত নই, তবে এটি কী প্রয়োজনীয় যে আপনার সহায়ক ফাংশনটি palinপাঁচ বাইটের দীর্ঘ নাম?

— রোমান গ্রাফ

আমি আগে এটি সংশোধন করেছিলাম তবে এটি এখানে সঠিকভাবে আটকানো হয়নি। 238 বাইট নাম হিসাবে কেবল 'পি' দিয়ে। নির্দেশ করার জন্য ধন্যবাদ।

— rnso

2

জে, 30 বাইট

0:`(%1>.{:@q:)@.((-:|.)@":)^:_

মিথ্যা জন্য ত্রুটি, সত্যের জন্য 1।

প্রাথমিক প্রচেষ্টা, ভুয়া, 40 বাইটের জন্য ত্রুটি করে না:

0:`(([:$:]%{:@q:)`[@.(1&=))@.((-:|.)@":)

ব্যাখ্যা

0:`(%1>.{:@q:)@.((-:|.)@":)^:_
                           ^:_  repeat until convergent
              @.((-:|.)@":)     if the number is palindromic:
   (         )                   do the stuff inside, which is a 4-train
        {:@q:                    largest prime factor
     1>.                         (or 1, if smaller than 1)
    %                            divide the original number by this value
0:`                             otherwise, return 0
                                (because of ^:_, this will be passed into q:, which will
                                error because 0 cannot be factored.)

পরীক্ষার মামলা

   NB. collect errors; 0 if errored, otherwise the result of the function
   NB. left arg: values; right arg: boxed name of function
   errors =: 4 : 0
    f =. y`:6
    l =: ''
    for_e. x do.
        try.
            l =. l , f e
        catch.
            l =. l , 0
        end.
    end.
    l
)
   s =: 0:`(%1>.{:@q:)@.((-:|.)@":)^:_
   t =: 1 101 121 282 313 353 373 393 474 737 919 959 1331 1441 2882 6446 7887 8668 9559 9779
   f =: 323 432 555 583 585 646 642 696 777 969 989 2112 3553 4554 5242 5225 5445 8080 8118 9988
   t ,. f
   1  323
 101  432
 121  555
 282  583
 313  585
 353  646
 373  642
 393  696
 474  777
 737  969
 919  989
 959 2112
1331 3553
1441 4554
2882 5242
6446 5225
7887 5445
8668 8080
9559 8118
9779 9988
   (t ,. f) errors"1 0 <'s'
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0

— কনর ও ব্রায়ান
সূত্র

2

A (অহিউই) , 309 বাইট (100 চর * 3 বাইট + 9 নিউলাইন)

방빩반룸있쁏멐솔쌀잌
앟놂숙참뿔썁썸뻙솝셜
본서번분번뮴딸냥별쀼
슉눇번낢퉅쑫썬쌀본묳
뽇서본석첫삭뽑롷떵춤
분촐럶사눙읽숟뗘분뻨
듐삭빶쏘윙잉썩손뵬괆
쌰뭉쇼텰궮변번첳웅텩
뽇흶아희쾯볻훼윺엄솝
코드골프욉쁍숙쌉삼쏩

আমি খুব খুশি যে আমি আসলে এটি শেষ করেছি!

আমি এই ভাষায় নতুন, তাই বাইট গণনা উন্নত করার বিষয়ে যে কোনও পরামর্শটি স্বাগত।

এখানে চেষ্টা করুন! (কোডটি অনুলিপি করুন এবং পেস্ট করুন)

ক্লিনার সংস্করণ

방빠반루ㅇ쀼머솔쌀이
아노숙차뿌썁썸뻐솝셜
본서번분번뮤따냐별쀼
슉누번나투쑫썬쌀본묘
뽀서본석처삭뽀로떠추
분초러사누이숟뗘분뻐
듀삭빠쏘ㅇ이썩손뵬ㅇ
쌰뭉쇼텨이변번처우텨
뽀희ㅇㅇㅇ볻ㅇ유어솝
ㅇㅇㅇㅇㅇㅇ숙쌉삼쏩

— জংহওয়ান মিন
সূত্র

সাধারণ সংস্করণ এবং ক্লিয়ারারের মধ্যে পার্থক্য কী?

— অলিভার নিন

@ অলিভার প্রথম সংস্করণটির কোনও এনওপি (ㅇ) নেই এবং আরও জটিল অক্ষর রয়েছে (এগুলি অভিন্ন কোড; আমি কেবল প্রথমটিকেই আরও রহস্যময় করে তুলেছি)। দ্বিতীয় সংস্করণটি তাদের জন্য যাঁরা সমস্ত গীবর না করে প্রকৃতপক্ষে প্রোগ্রামটি পড়তে চান।

— জংহওয়ান মিন

0

স্কালা, 138 বাইট

def?(n:Int):Int={val p=Stream.from(2).filter(n%_==0)(0)
if(p==n)n else?(n/p)}
def s(i:Int):Boolean=i<2||(i+"")==(i+"").reverse&&s(i/ ?(i))

Ungolfed:

def largestFactor(n:Int):Int={
  val p=Stream.from(2).filter(n%_==0).head
  if(p==n)n else largestFactor(n/p)}
def superPalindrome(i:Int):Boolean=i<2||(i+"")==(i+"").reverse&&superPalindrome(i/ largestFactor(i))

ব্যাখ্যা:

def?(n:Int):Int={                       //define a method for the largest prime factor
  val p=Stream.from(2).filter(n%_==0)(0)  //find the first factor of n
  if(p==n)n else?(n/p)                    //if it's n, return n else the next factor
}
def s(i:Int):Boolean=                     //method for the superprime
  i<2                                     //if s<2 return true
  ||                                      //else return:
    (i+"")==(i+"").reverse                  //is i a palindrome
    &&                                      //and
    s(i/ ?(i))                              //is i divided by it's largestPrimeFactor a superpalindrome

— corvus_192
সূত্র

0

জাভাস্ক্রিপ্ট (ES6), 78 বাইট

(n,d=2,p=1)=>n%d?n<2||f(n,d+1,p):[...p=p*d+''].reverse().join``==p&&f(n/d,d,p)

পুনরাবৃত্তভাবে প্রধান গুণনীয়র উপসর্গগুলি তৈরি করে এবং প্যালিনড্রোমিসিটির জন্য তাদের পরীক্ষা করে।

— নিল
সূত্র

0

জাভা 7, 133 বাইট

int c(int a){int x=a,y=0,z=a,i=2;for(;x>0;y=y*10+x%10,x/=10);for(;z>1;i++)for(;z%i<1;z/=i);if(a<2)return 1;return y!=a?0:c(a/(i-1));}

Ungolfed

    static int c( int a ){
    int x = a , y = 0 , z = a , i = 2 ;

    for ( ; x > 0 ; y = y * 10 + x % 10 , x /= 10 ) ;

    for ( ; z > 1 ; i++ )
    for ( ; z % i < 1 ; z /= i ) ; 

    if ( a < 2 )
      return 1 ;

    return y != a ? 0 : c( a / ( i - 1 ) ) ;       
 }

— Numberknot
সূত্র

0

প্রকৃতপক্ষে , 29 বাইট

এই কোডটির বেশ কয়েকটি বিভাগ সম্ভবত রয়েছে যা গল্ফ হতে পারে, যদিও আমি এখনও নিশ্চিত নই। গল্ফিং পরামর্শ স্বাগত জানাই। এটি অনলাইন চেষ্টা করুন!

╗1`X╜$;R=;╝╜yN╜\;╗1<&`╬X╜DY╛&

Ungolfing

          Implicit input n.
╗         Save n to register 0.
1`...`╬   Run the following function on the stack while TOS is truthy.
  X         Discard the previous truthy.
  ╜         Push n from register 0.
  $         Push str(n).
  ;R=       Check if str(n) == str(n)[::-1], i.e. if n is a palindrome.
  ;╝        Save a copy of (is n a palindrome?) to register 1.
  ╜yN       Get the largest prime factor of n.
  ╜\        Divide n by its largest prime factor.
  ;╗        Save a copy of n // l_p_f to register 0.
  1<        Check if 1 < n // l_p_f. This returns 0 only if n // l_p_f is 1.
  &         Logical AND (is n a palindrome?) and (is n // l_p_f > 1?).
            This quits if we have reached a non-palindrome or we have reached 1.
X         Discard the falsey that ended the previous function.
╜         Get the last value saved to register 0 (could be 1 or a non-palindrome // l_p_f)
DY        This returns 1 if register 0 was a 1, else 0.
╛&        Logical AND with register 1 (was the last n a palindrome?) to get our result.
          Implicit return.

— Sherlock9
সূত্র

সুপার প্যালিনড্রোমগুলি সন্ধান করুন!

জেলি , 13 12 9 8 বাইট

কিভাবে এটা কাজ করে

গণিত, 64 বাইট

গণিত, 51 বাইট

05AB1E , 9 8 বাইট

পাইথ - 15 12 বাইট

গণিত, 71 63 বাইট

ব্যাখ্যা

ব্র্যাচল্যাগ , 14 বাইট

ব্যাখ্যা

র‌্যাকেট 238 বাইট

জে, 30 বাইট

ব্যাখ্যা

পরীক্ষার মামলা

A (অহিউই) , 309 বাইট (100 চর * 3 বাইট + 9 নিউলাইন)

স্কালা, 138 বাইট

জাভাস্ক্রিপ্ট (ES6), 78 বাইট

জাভা 7, 133 বাইট

Ungolfed

প্রকৃতপক্ষে , 29 বাইট