নূন্যতম পাওয়ার রুট

Question

ন্যূনতম শক্তি পুনরাবৃত্তির একটি সংখ্যা অনুসরণ হিসাবে সংজ্ঞায়িত করা হয়:$n$

$$\text{MPI}(n):=n^{\text{min}(\text{digits}(n))}$$

অর্থাৎ মধ্যে এটা সর্বনিম্ন অঙ্ক উত্থাপিত । উদাহরণস্বরূপ, এবং ।$n$$n$$\text{MPI}(32)=32^2=1024$$\text{MPI}(1234)=1234^1=1234$

ন্যূনতম শক্তি রুট একটি সংখ্যা সংখ্যা বারবার আবেদন থেকে প্রাপ্ত হিসাবে সংজ্ঞায়িত করা হয় একটি নির্দিষ্ট বিন্দু পর্যন্ত পাওয়া যায়। এখানে 1 এবং 25 এর মধ্যে সংখ্যার নূন্যতম পাওয়ার শিকড়গুলির একটি সারণী রয়েছে:$n$$\text{MPI}$

   n              MPR(n)
--------------------------
   1                   1
   2                   1
   3              531441
   4                   1
   5                3125
   6 4738381338321616896
   7                   1
   8            16777216
   9                   1
  10                   1
  11                  11
  12                  12
  13                  13
  14                  14
  15                  15
  16                  16
  17                  17
  18                  18
  19                  19
  20                   1
  21                  21
  22                   1
  23              279841
  24                   1
  25                   1

চ্যালেঞ্জ: ন্যূনতম পাওয়ারের মূলটি 1 বা নিজেই সমান নয় এমন সংখ্যাগুলি তৈরি করুন।

এই অনুক্রমের প্রথম 50 নম্বর এখানে রয়েছে:

3, 5, 6, 8, 23, 26, 27, 29, 35, 36, 39, 42, 47, 53, 59, 64, 72, 76, 78, 82, 83, 84, 92, 222, 223, 227, 228, 229, 233, 237, 239, 254, 263, 267, 268, 269, 273, 276, 277, 277, 278, 279, 285, 286, 287, 289, 296, 335, 338, 339, 342

বিধি

• আপনি nএই সিকোয়েন্সের প্রথম সংখ্যা তৈরি করতে পারেন (0- বা 1-ইনডেক্সড), nপদটি উত্পন্ন করতে পারবেন, একটি জেনারেটর তৈরি করুন যা এই শর্তাদি গণনা করে, তাদের মধ্যে অসীম আউটপুট ইত্যাদি calc
• আপনি কোনও বেসে ইনপুট নিতে পারেন এবং আউটপুট দিতে পারেন, তবে এমপিআরের জন্য গণনাগুলি বেস 10 এ থাকতে হবে, উদাহরণস্বরূপ, আপনি ইনপুট ###(আনারিতে) এবং আউটপুট ### ##### ######(আনারিতে) নিতে পারেন
• আপনাকে অবশ্যই সংখ্যা দেবে। আপনি (যেমন) আউটপুট নাও পেতে পারেন "3", "5", "6", যেহেতু সেগুলি স্ট্রিং। 3, 5, 6এবং 3 5 6উভয়ই বৈধ। আউটপুটটিং 2 3, "23"বা twenty-threeসমস্তই সংখ্যার অবৈধ উপস্থাপনা হিসাবে বিবেচিত হয় 23। (আবার, আপনি এই সংখ্যাগুলি উপস্থাপন করতে কোনও বেস ব্যবহার করতে পারেন))
• এটি একটি কোড-গল্ফ , তাই সংক্ষিপ্ততম কোডটি (বাইটে) জিতে যায়।

Comments

শুধু কৌতূহলী, আপনি কীভাবে প্রমাণ করতে পারেন যে একটি নির্দিষ্ট পয়েন্ট শেষ পর্যন্ত সমস্ত এন এর জন্য পাওয়া যায়?

— nwellnhof

@nwellnhof (রাফ প্রমাণ।) কোন সংশোধন করা হয়েছে ধরুন বিন্দু , অর্থাত্, MPR ( এক্স ) কোন অস্তিত্ব নেই। যাক এক্স আমি হতে আমি এর -th পুনরাবৃত্তির MPI উপর ফাংশন এক্স । এই ক্রম কঠোরভাবে বাড়ছে, যেহেতু একটি খ > একটি খ গ সবার জন্য একটি , খ , গ ≥ 2 । কঠোরভাবে হচ্ছে বৃদ্ধি, কোন অঙ্ক সম্ভাবনা এক্স আমি হচ্ছে 0 বা 1 tends 0 হিসাবে প্রতি এক্স আমি প্রতি tends ∞ ।$x$$\text{MPR}(x)$$x_i$$i$$\text{MPI}$$x$$a^b>a^{b^c}$$a,b,c\ge2$$x_i$$x_i$$\infty$

— কনর ও'ব্রায়েন

হাহ। ওয়েসের এই ক্রমটি নেই।

— Draco18s

@ কনরও'ব্রায়েন এটি দেখায় যে আপনার অনুমানটি প্রশংসনীয়, তবে এটি প্রমাণিত হয় না।

— ক্যাস্পার্ড

@ ক্যাস্পারড এভাবে তার আগে "মোটামুটি প্রমাণ"।

— কনর ও'ব্রায়েন

Answer 1

05 এ বি 1 ই , 8 বাইট

নবম সংখ্যাটি 1- সূচকযুক্ত উত্পন্ন করে

µNÐΔWm}‹

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

ব্যাখ্যা

µ          # run until counter equals input
 NÐ        # push 3 copies of the current iteration index (1-based)
   Δ  }    # run this code until the result no longer changes     
    Wm     # raise the number to the power of its minimum digit
       ‹   # check if greater than the index

বিকল্প হিসাবে একই বাইট গণনায় অসীম তালিকা হিসাবে:

∞ʒDΔWm}‹

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

Comments

অপেক্ষা করুন, এগুলি কি? .. যা এটি ভেবেছিল তার চেয়ে অনেক সহজ দেখাচ্ছে ..>।> আমি আমার উত্তরটি মুছে ফেলব, কারণ এটি দ্বিগুণেরও বেশি দীর্ঘ ..

— কেভিন ক্রুইজসেন

@ কেভিন ক্রুজসেন: আমি নিজেই কিছুটা অবাক হয়েছি। ভেবেছিলেন টাস্কটি দেখার সময় 12 বা ততোধিক বাইট লাগবে।

— এমিগানা

আমি চ্যালেঞ্জটি পোস্ট হওয়ার পরে µএবং Δঠিক ঠিক একই উত্তরটি পেলাম তবে আমি ভাবছিলাম যে এটি কেন কাজ করে না ... আমি Dবরং এটি ব্যবহার Ðকরেছি কারণ আমি ভেবেছিলাম যে একটি অনুলিপি নির্দিষ্ট পয়েন্ট ফাংশন দ্বারা ব্যবহৃত হত এবং অন্যটি ছোট-ছোট ফাংশন অনুসারে, তবে আমি আর একটি অনুলিপি প্রয়োজন বলে বিবেচনা করি নি। ধন্যবাদ, এমিগনা, আমার এনিমগা সমাধানের জন্য।

— মিঃ এক্সকডার 17

Answer 2

পার্ল 6 , 49 বাইট

{grep {($_,{$_**.comb.min}...*==*).tail>$_},1..*}

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

একটি অসীম অনুক্রম ফেরত দেয়। আমি মনে করি যে নিম্নলিখিত 45 বাইট সংস্করণটিও কাজ করে, তবে আমি প্রমাণ করতে পারি না যে নির্দিষ্ট পয়েন্টটি সর্বদা n পুনরাবৃত্তির পরে পাওয়া যায়।

{grep {($_,{$_**.comb.min}...*)[$_]>$_},3..*}

Answer 3

জে , _{41 39} 37 বাইট

(>:[echo^:(<(^0".@{/:~@":)^:_))^:_]1x

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

এই এক অসীম অনুক্রম মুদ্রণ একটি সম্পূর্ণ প্রোগ্রাম। একটি খুব বিরল উপলক্ষে যেখানে একটি সম্পূর্ণ প্রোগ্রাম জেতে একটি ক্রিয়াটি মারধর করে occasion

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

(>:[echo^:(<mpi_fix))^:_]1x    Using the mpi_fix below; it finds the MPI fixpoint
          (<mpi_fix)           Is mpi_fix greater than the input?
    echo^:                     If so, apply echo; do nothing otherwise
                               echo returns an empty array
 >:[                           Discard the above and return input+1
(                   )^:_       Repeat the above infinitely (increment has no fixpoint)
                        ]1x    starting from arbitrary-precision number 1

---

জে , ₄₁ 39 বাইট

>:^:(>:(^0".@{/:~@":)^:_)^:_@>:@]^:[&0x

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

একটি monadic ক্রিয়া। 1-ভিত্তিক সূচক দেওয়া, সেই সূচকে নম্বরটি প্রদান করে। পাদলেখ চেক করে যে প্রথম 20 টি শর্তাবলী সঠিক।

"ফিক্সপয়েন্ট" শব্দটি পড়ে আমি ততক্ষণে ভেবেছিলাম "ওহ হ্যাঁ, ^:_দুর্দান্ত কাজটি করবে।" তারপরে আমি রাগান্বিত ও দু: খিত মুখের এই ঘৃণার সাথে শেষ করেছি। এবং এটি এমনকি ট্রেনও নয়, এটি একটি একক ক্রিয়া ।

অবহেলিত এবং এটি কীভাবে কাজ করে

nth_term =: >:^:(>:(^0".@{/:~@":)^:_)^:_@>:@]^:[&0x

mpi =: ^0".@{/:~@":    Find the MPI
             /:~@":    Sort the string representation
        0   {          Take first item
         ".@           Convert back to number
       ^               Raise the input to the power of above

mpi_fix =: mpi^:_      Find the MPI fixpoint

next_term =: >:^:(>:mpi_fix)^:_@>:    Given a number, find the next term
                               @>:    Increment once, and then...
                  >:mpi_fix           Is mpi_fix not greater than input?
             >:^:           ^:_       Increment while the above is true

nth_term =: next_term@]^:[&0x    Given one-based index, find the nth term
            next_term@]          Apply next_term monadically
                       ^:[       n times
                          &0x    to the starting value of zero

0xফিক্সপয়েন্টটি নির্ভুলভাবে গণনা করার জন্য স্বেচ্ছাসেবী-নির্ভুলতা পূর্ণসংখ্যার প্রয়োজন হয়, যেমন number নম্বর।

Comments

গ্রেট! এটাই অনেক কিছুই ^:, আমার দ্বিতীয়টি তাদের মাথাতে শুরু করে :)

— গ্যালেন ইভানোভ

(>:[(<(^{.@/:~&.":)^:_)echo])^:_]1x

— ফ্রাউনফ্রোগ 10

33 বাইট: _&(_&(]]+]>:(^{.@/:~&.":)^:_)>:)*বর্ধিত পূর্ণসংখ্যার হিসাবে ইনপুট নেওয়া

— মাইল

Answer 4

পাইথ , 10 বাইট

.f>u^GshS`

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

এটি প্রথম $n$ মতো একটি সংখ্যা তৈরি করে gene স্বয়ংক্রিয়ভাবে পূর্ণ প্রোগ্রামটি GZZQপ্রত্যয় হিসাবে রয়েছে । এটি সহজেই ( .f) প্রথম Qসংখ্যার সন্ধান করে যার u^GshS`Gনিজের চেয়ে ন্যূনতম পাওয়ারের মূল রয়েছে Z।

সর্বনিম্ন পাওয়ার রুট কোডটি uবর্তমান সংখ্যাকে Gতার ন্যূনতম অঙ্কের শক্তিতে বাড়ানোর একটি নির্দিষ্ট পয়েন্ট খুঁজে বের করে কাজ করে , যা প্রথম অঙ্ক ( h) লিক্সোগ্রাফিকভাবে সাজানো ( ) এর পরে সমান S, তারপরে একটি পূর্ণসংখ্যায় ( s) রূপান্তরিত হয় ।

Answer 5

জেলি , 10 বাইট

*DṂƊƬḊCȦµ#

একজন কীটাণুজাতীয় একটি পূর্ণসংখ্যা গ্রহণ লিংক, I, stdin থেকে প্রথম উৎপাদ যা Iএন্ট্রি।

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

( *DṂƊƬṪ%@µ#10 এর জন্যও কাজ করে)

কিভাবে?

শুরুর আপ গণনা n=0পর্যন্ত inputএকটি পরমাণুসদৃশ্য ফাংশনের truthy ফলাফল সম্মুখীন হয়েছে এবং উৎপাদ ঐ করছে nসে।

ফাংশনটি বারবার শুরু করে x=nআর একটি monadic ফাংশন প্রয়োগ করে এবং xফলাফলগুলি আর অনন্য না হওয়া পর্যন্ত মানগুলি সংগ্রহ করে । (যেমন: 19ফলন [19]; 23ফলন [23,529,279841]; 24ফলন [24, 576, 63403380965376, 1]; ইত্যাদি ...) এবং তারপরে ফলাফলটি উপযুক্ত করে (বামতম মানটি সরিয়ে দেয়), সমস্ত মান পূরণ করে ( 1-x) এবং তালিকার শূন্য থাকে বা খালি হলে Ȧফলন করতে ব্যবহার করে 0।

অন্তরতম ফাংশন বর্তমান উত্থাপন xকরার সব টি সংখ্যা xএবং তারপর সর্বনিম্ন (এই করছেন প্রথম ন্যূনতম অঙ্ক খোঁজার উপর সংরক্ষণ একটি বাইট) রাখে।

*DṂƊƬḊCȦµ# - Link (call the input number I)
         # - count up from 0 and yield the first I for which this yields a truthy value:
        µ  -   a monadic chain:
    Ƭ      -     collect until results are not unique:
   Ɗ       -       last three links as a monad:
 D         -         convert to a list of decimal digits
*          -         exponentiate
  Ṃ        -         minimum
     Ḋ     -     dequeue
      C    -     compliment
       Ȧ   -     any-and-all?

Comments

ƬḊCȦসেখানে চালাক ব্যবহার । :-)

— এরিক দি আউটগল্ফার

Ṫ>তুলেছে 0:(

— জোনাথন অ্যালান

Answer 6

গণিত, 59 51 বাইট

^{-8 ধন্যবাদ বাইট মিশা লাভরভ ।}

Select[Range@#,#<(#//.x_:>x^Min@IntegerDigits@x)&]&

খাঁটি ফাংশন। ইনপুট হিসাবে একটি সংখ্যা নেয় এবং আউটপুট হিসাবে এই সংখ্যা পর্যন্ত পদগুলির তালিকা প্রদান করে। এখানে খুব জটিল কিছু নেই।

Comments

FixedPointকোড গল্ফে সাধারণত //.(সংক্ষিপ্ত ReplaceRepeated) হিসাবে ভাল হয় না । এখানে আমরা কয়েকটি বাইট সংরক্ষণ করতে পারি Select[Range@#,1<(#//.x_:>x^Min@IntegerDigits@x)!=#&]&।

— মিশা লাভরভ

এছাড়াও, যদি এমপিআই (এক্স) 1 বা এক্স নয়, তবে এটি সর্বদা এক্সের চেয়ে বড় হয়, তাই এটি একটি সংক্ষিপ্ততর সমাধান Select[Range@#,#<(#//.x_:>x^Min@IntegerDigits@x)&]&।

— মিশা লাভরভ

Answer 7

পাইথন 3 , ₉₀ 88 বাইট

@ মাইপেটলিয়ন দ্বারা -2 বাইট

def F(x):m=x**int(min(str(x)));return[int,F][m>x](m)
x=1
while 1:x<F(x)and print(x);x+=1

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

printifপাইথন ২-এ স্টেটমেন্ট ব্যবহার করার ফলে একটি এক্সপ্রেশন দুটি বাইট সংরক্ষণ করে Fthe বাকিগুলি স্টডিউটে অসীম অনুক্রম দেয়।

Comments

2 বাইট সংরক্ষণ return m>x and F(m)or mকরতে পরিবর্তন করুন return[int,F][m>x](m)।

— mypetlion

78 বাইট

— লিন

Answer 8

হাস্কেল, 67 62 বাইট

filter((<)<*>until((==)=<<g)g)[1..]
g a=a^read[minimum$show a]

অসীম তালিকা প্রদান করে।

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

Answer 9

রুবি , 52 বাইট

x=1;loop{b=x+=1;1while b<b**=b.digits.min;b>x&&p(x)}

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

অসীম ক্রম প্রিন্ট করে

Comments

51 বাইট ( $.পরিবর্তে ব্যবহার করে x, আরম্ভের সংরক্ষণ করে)

— কনর

Answer 10

জাভা 10, 178 173 বাইট

v->{for(int x=1,m;;){var b=new java.math.BigInteger(++x+"");for(m=9;m>1;)b=b.pow(m=(b+"").chars().min().orElse(0)-48);if(b.compareTo(b.valueOf(x))>0)System.out.println(x);}}

@ জিবি'র রুবি উত্তরটির পোর্ট , তাই অনির্দিষ্টকালের জন্যও মুদ্রণ করে।

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

ব্যাখ্যা:

v->{             // Method with empty unused parameter and no return-type
  for(int x=1,   //  Start an integer `x` at 1
      m;         //  Temp integer for the smallest digit, starting uninitialized
      ;){        //  Loop indefinitely
    var b=new java.math.BigInteger(++x 
                 //   Increase `x` by 1 first
          +"");  //   And create a BigInteger `b` for the new `x`
    for(m=9;     //   Reset `m` to 9
        m>1;)    //   Loop as long as the smallest digit is not 0 nor 1
      b=b.pow(m=(b+"").chars().min().orElse(0)-48
                 //    Set `m` to the smallest digit in `b`
              ); //    Set `b` to `b` to the power of digit `m`
    if(b.compareTo(b.valueOf(x))>0)
                 //   If `b` is larger than `x`:
      System.out.println(x);}}
                 //    Print `x` with a trailing newline

Answer 11

জাভাস্ক্রিপ্ট (নোড.জেএস) , 75 বাইট

$n$

f=(i,x=n=1n)=>(N=x**BigInt(Math.min(...x+'')))>x?f(i,N):(i-=N>n)?f(i,++n):n

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

Answer 12

জাভাস্ক্রিপ্ট (নোড.জেএস) , 98 90 89 86 বাইট

-3 বাইটস ধন্যবাদ @ কনার ও'ব্রায়েনকে

function*(){for(n=0n;;x>n&&(yield n))for(x=++n;(b=Math.min(...""+x))-1;)x**=BigInt(b)}

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

$MPR(n)>n$$MPR(n)\notin \{1,n\}$

দেখে মনে হচ্ছে যে কোনও জেনারেটর nসংখ্যার অ্যারে ফেরত দেওয়ার চেয়ে কম ?

বা অসীম মুদ্রণ - 72 বাইট

for(n=0n;;x>n&&alert(n))for(x=++n;(b=Math.min(...""+x))-1;)x**=BigInt(b)

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

Comments

ব্রেসগুলি মুছে ফেলে কিছু নিয়ন্ত্রণ প্রবাহকে আশেপাশে সরিয়ে 86 বাইট (প্রধানত: if(x>n)yield nথেকে x>n&&(yield n)একটি অভিব্যক্তি হিসাবে)

— কোনোর ব্রায়েন

Answer 13

জেলি , 14 বাইট

3*DṂ$$ÐLḟ1,$Ɗ#

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

Answer 14

জাভাস্ক্রিপ্ট (ক্রোম), ₇₈ 77 বাইট

F=x=>(m=x**BigInt(Math.min(...''+x)))>x?F(m):m
for(x=0n;++x;)x<F(x)&&alert(x)

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

আমার নিজস্ব পাইথন 3 সমাধানের বন্দর । Chrome এর সর্বশেষতম সংস্করণটি সমর্থন করে BigInt(আমার পিসিতে পরীক্ষিত)। আপনার ব্রাউজারে এই কোডটি যেমন রয়েছে তেমন চেষ্টা করবেন না।

Comments

হ্যাঁ আমার উত্তর গল্ফ করতে চলেছে কিন্তু আপনি নেতৃত্ব পেয়েছেন। 77 বাইট এছাড়াও 77 বাইট, আমার পরিকল্পিত গল্ফ

— শিয়েরু আসাকোটো

Answer 15

র‌্যাকেট , 270, 257 233 বাইট

(define(f n)(local((define(m x)(expt x(-(first(sort(map char->integer(string->list(~v x)))<))48)))(define(g y)(if(= y(m y))y(g(m y))))(define(k x l)(if(=(length l)n)l(if(< x(g x))(k(+ x 1)(cons x l))(k(+ x 1)l)))))(reverse(k 1'()))))

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

এটি আমার প্রথম র‌্যাকেট জমা দেওয়া, সুতরাং এটি অবশ্যই আরও বেশি গল্ফ করা যেতে পারে। তবুও আমি কিছুটা সন্তুষ্ট, কমপক্ষে কাজটি সমাধান করার জন্য পরিচালনার জন্য।

আরও পঠনযোগ্য:

(define (f n)
  (local ((define (m x)
           (expt x
                 (- (first (sort (map char->integer (string->list (~v x)))
                                 <))
                    48)))
         (define (g y)
           (if
             (= y (m y))
             y
             (g (m y))))
         (define (k x l)
           (if (= (length l) n)
               l
               (if (< x (g x))
                   (k (+ x 1) (cons x l))
                   (k (+ x 1) l))))
    (reverse (k 1 '()))))

Answer 16

অ্যাক্সিয়াম, 168 বাইট

u(x)==(y:=x::String;x^reduce(min,[ord(y.i)-48 for i in 1..#y])::NNI)
q(a:PI):PI==(b:=a;repeat(c:=u(b);c=b=>break;b:=c);b)
z(x)==[i for i in 1..x|(m:=q(i))~=1 and m~=i]

এটি ব্যবহার করার ফাংশনটি z (); এখানে এটি এমন নম্বর মুদ্রণ করে যেটিতে 1 নম্বর নয়, একক নয়, এটি তার যুক্তির চেয়ে কম।

(6) -> z 1000
 (6)
 [3, 5, 6, 8, 23, 26, 27, 29, 35, 36, 39, 42, 47, 53, 59, 64, 72, 76, 78, 82,
  83, 84, 92, 222, 223, 227, 228, 229, 233, 237, 239, 254, 263, 267, 268,
  269, 273, 276, 277, 278, 279, 285, 286, 287, 289, 296, 335, 338, 339, 342,
  346, 347, 348, 354, 358, 363, 365, 372, 373, 374, 376, 382, 383, 386, 392,
  394, 395, 399, 423, 424, 426, 427, 428, 432, 433, 435, 436, 442, 447, 459,
  462, 464, 466, 467, 468, 469, 476, 477, 479, 483, 487, 488, 489, 493, 494,
  523, 524, 527, 529, 533, 537, 542, 546, 553, 556, 557, 562, 563, 572, 573,
  577, 582, 583, 584, 594, 595, 598, 623, 626, 627, 629, 632, 633, 642, 646,
  647, 648, 663, 664, 669, 672, 676, 682, 683, 684, 693, 694, 695, 698, 722,
  724, 729, 736, 759, 763, 773, 775, 782, 786, 823, 829, 835, 846, 847, 856,
  873, 876, 885, 893, 894, 896, 923, 924, 928, 933, 953, 954, 962, 969, 973,
  974, 984, 993, 994, 995]
                                               Type: List PositiveInteger

Answer 17

ভিজ্যুয়াল বেসিক। নেট (। নেট কোর) , 290 বাইট (আমদানি অন্তর্ভুক্ত)

Iterator Function A()As System.Collections.IEnumerable
Dim i=B.One,q=i,p=i
While 1=1
q=i-1
p=i
While q<>p
For j=0To 9
If p.ToString.Contains(j)Then
q=p
p=B.Pow(p,j)
Exit For
End If
Next
End While
If p>1And p<>i Then Yield i
i+=1
End While
End Function

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

নিম্নলিখিত আমদানি প্রয়োজন:

Imports B = System.Numerics.BigInteger

এটি মানদণ্ডের সাথে মিলিত পূর্ণসংখ্যার একটি অসীম (অলস বোঝা) তালিকা ফিরিয়ে দিতে পুনরাবৃত্তকারী ফাংশন ব্যবহার করে। BigIntegerবিশেষত মধ্যবর্তী গণনা সহ যে কোনও আকারের সীমাবদ্ধতা এড়াতে ব্যবহার করে।

আন golfed:

Iterator Function A() As System.Collections.IEnumerable
    Dim i As B = 1
    While True
        Dim prevProduct As B = 0
        Dim product As B = i
        While prevProduct <> product
            For j = 0 To 9
                If product.ToString.Contains(j) Then
                    prevProduct = product
                    product = B.Pow(product, j)
                    Exit For
                End If
            Next
        End While
        If product <> 1 And product <> i Then
            Yield i
        End If
        i += 1
    End While
End Function

Answer 18

কমন লিস্প , 238 বাইট

(defun x(m n o p q)(setf i(sort(map 'list #'digit-char-p(prin1-to-string m))#'<))(setf j(expt m(first i)))(cond((= q p)nil)((and(= n j)(not(= n 1))(not(= n o)))(cons o(x(1+ o)0(1+ o)p(1+ q))))((= n j)(x(1+ o)0(1+ o)p q))(t(x j j o p q))))

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

Answer 19

এপিএল (এনএআরএস), 96 টি অক্ষর, 192 বাইট

r←f w;k;i;a
   r←⍬⋄k←1
A: i←k
B: →C×⍳i=a←i*⌊/⍎¨⍕i⋄i←a⋄→B
C: →D×⍳(a=k)∨a=1⋄r←r,k
D: k+←1⋄→A×⍳k≤w

পরীক্ষা (আর্গুমেন্ট 22 এর আংশিক ফলাফল অনেক বড় মনে হয় তাই <21 টি আর্গুমেন্ট আমি জানি না ঠিক হতে পারে কিনা)

  f 21
3 5 6 8 

Answer 20

পাইথন 3 , 102 বাইট

x=int(input())
a=c=0
while x:
 a+=1;b=a
 while b-c:b,c=b**int(min(str(b))),b
 x-=b!=1and b!=a
print(a)

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

পাইথন 3 সমাধানটি চেষ্টা করার সিদ্ধান্ত নিয়েছে যা ক্রমে নবম পদটি সরাসরি প্রিন্ট করে।

Comments

দেখে মনে হচ্ছে আপনি কোনও পাইথন 3 বৈশিষ্ট্য ব্যবহার করছেন না। পাইথন 2 এ দ্রুত গল্ফিং 87 বাইট দেয়।

— বুদ্বুদ

অসীম আউটপুট 77 বাইট দেয়।

— বুবলার

Answer 21

সি (ঝনঝন) + -DL=long long -lm, 213 বাইট

q(char*a,char*b){return*a>*b;}L f(L a){char*c;asprintf(&c,"%lld",a);qsort(c,strlen(c),1,q);L b=pow(a,*c-48);return b>a?f(b):b;}i;g(j){for(i=0;j;i++){L x=f(i);x!=i&x!=1&x>0&&printf("%d\n",i)&&j--;}}

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

ফাংশন g(j)কপি করে প্রিন্ট প্রথম jক্রম শর্তাবলী।

Comments

a=...এক ডজন বা তার বেশি বাইট সংরক্ষণ করতে ফিরে আসুন ।

এবং x>1পরিবর্তে x!=1&x>0।

যদিও প্রথমটিতে জিসিসিতে পরিবর্তন দরকার।

Answer 22

হুশ , 16 12 10 বাইট

fS>ωṠ^o▼dN

এইচ.পি.উইজকে 6 বাইট সংরক্ষণ করা হয়েছে।
এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

fS>ωṠ^o▼dN
f        N       Filter the natural numbers where...
   ω             ... the fixed point...
    Ṡ^o▼d        ... of raising the number to its smallest digit...
 S>              ... is greater than the number.

Comments

আপনি >¹এখানে দিয়ে পরিবর্তন করতে পারেন S>। এটি আপনাকে সমস্ত এক লাইনে রাখতে দেয়। এছাড়াও, দেখা যাচ্ছে যে আপনি ভুল করে আগের

— টিও

Answer 23

জাপট , 44 বাইট

_ì ñ g
_gV ¥1?Z:ZpZgV)gW
@@[1X]øXgW}fXÄ}gUÄ

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

অন্যান্য জাপা উত্তরের চেয়ে যথেষ্ট আলাদা।

ব্যাখ্যা:

                        Empty line preserves the input

_ì ñ g                Function V finds the smallest digit in a number Z
 ì                          Get the digits of Z
   ñ                        Sort the digits
     g                      Get the first (smallest) digit


_gV ¥1?Z:ZpZgV)gW     Function W finds the MPR of a number Z
 gV ¥1?Z                    If V(Z) is 1, then it's stable; return it
        :ZpZgV)             Otherwise get MPI of Z...
               gW           And call W on it ( MPR(Z) == MPR(MPI(Z)) )

@@[1X]øXgW}fXÄ}gUÄ    Main program
@             }gUÄ      Get the nth number by repeatedly applying...    
 @        }fXÄ              Find the next smallest number X which returns false to...
       XgW                    MPR(X)
      ø                       is either...
  [1X]                        1 or X

ভবিষ্যতের গল্ফিংয়ের সম্ভাবনার দিক থেকে, আমি একটি সংখ্যাতে ম্যানুয়ালি একটি ফাংশন কল করি যা আমি সন্দেহ করি যে এটি হ্রাস হতে পারে তবে আমি কীভাবে তা নিশ্চিত নই।