17

সূত্রটি

উদাহরণস্বরূপ 300 নম্বর নিন

300 এর প্রধান উপাদানগুলি [2, 3, 5](300 এবং মৌলিক উপাদানগুলির অনন্য সংখ্যা)
এই সংখ্যাগুলির প্রত্যেকটির স্কোয়ারিং আপনাকে দেবে [4, 9, 25]
সেই তালিকাটির সংমিশ্রণ আপনাকে দেবে 4 + 9 + 25 = 38
অবশেষে আপনার মূল সংখ্যা থেকে সেই যোগফলটি (38) বিয়োগ করুন 300-38 = 262(এটি ফলাফল)

ইনপুট

আপনার ইনপুটটি 2 এর চেয়ে বড় ধনাত্মক পূর্ণসংখ্যার হবে You আপনাকে অবশ্যই 2 থেকে ইনপুট মান (সমেত) পর্যন্ত সমস্ত সংখ্যা পরীক্ষা করে দেখতে হবে এবং উপরের সূত্রের সাহায্যে সর্বাধিক ফলাফলের সংখ্যাটি সন্ধান করতে হবে।

আউটপুট

আপনার আউটপুটটি দুটি স্থান পৃথক পৃথক স্থান, কমা, নিউলাইন বা আপনার ভাষা যা কিছু অনুমতি দেবে তা পৃথক করা হবে (দুটি সংখ্যা পৃথক করার জন্য পৃথকীকরণ প্রয়োজন)। এগুলি কোনও ফাইল, স্টাডআউট বা আপনার ভাষা যা ব্যবহার করে তা আউটপুট হতে পারে। আপনার লক্ষ্যটি হ'ল উপরের সূত্রটি দিয়ে চালানোর সময় সর্বাধিক আউটপুট উত্পাদনের পরিসীমাটিতে নম্বরটি খুঁজে পাওয়া। প্রদর্শিত প্রথম সংখ্যাটি প্রারম্ভিক সংখ্যা (300 এর মতো) এবং দ্বিতীয় নম্বরটি সূত্রটি উত্পাদিত আউটপুট হতে হবে (262 এর মতো)

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

Input: 3       Output: 2, -2
Input: 10      Output: 8, 4
Input: 50      Output: 48, 35
Input: 1000    Output: 1000, 971
Input: 9999    Output: 9984, 9802

উদাহরণ মাধ্যমে কাজ

10 এর ইনপুটটি বিবেচনা করুন, আমাদের অবশ্যই 2-10 (সমেত) থেকে সমস্ত সংখ্যার সূত্র চালাতে হবে

Num PrimeFacs PrimeFacs^2 SumPrimeFacs^2 Result
2   [2]       [4]         4              -2
3   [3]       [9]         9              -6
4   [2]       [4]         4               0
5   [5]       [25]        25             -20
6   [2, 3]    [4, 9]      13             -7
7   [7]       [49]        49             -42
8   [2]       [4]         4               4
9   [3]       [9]         9               0
10  [2, 5]    [4, 25]     29             -19

আপনি দেখতে পাচ্ছেন যে সর্বাধিক ফলাফলটি হ'ল 4, 8এটি সূত্রে মানকে ইনপুট দেওয়ার ফলাফল । এর অর্থ একটি ইনপুট জন্য আউটপুট 10হওয়া উচিত8, 4

স্কোরিং এবং বিধি

ইনপুট এবং আউটপুটগুলির জন্য ডিফল্ট নিয়মগুলি প্রয়োগ করে: কোড গল্ফের জন্য ডিফল্ট: ইনপুট / আউটপুট পদ্ধতিগুলি
মানক লুফোলগুলি নিষিদ্ধ: ডিফল্টরূপে নিষিদ্ধ লুফোলস
জমা দেওয়া কার্য বা সম্পূর্ণ প্রোগ্রাম হতে পারে

বাইটস মধ্যে সংক্ষিপ্ত কোড

— Keatinge
সূত্র

আমি কয়েকটি বানান এবং ব্যাকরণ ত্রুটিগুলি স্থির করেছি এবং শিরোনামটিকে আরও বর্ণনামূলক করে তুলেছি। আমি হোয়াইটস্পেস বিভাজকগুলিকে অস্বীকার করার বিষয়েও কিছুটা পরিবর্তন করেছি, যেহেতু আপনি যেটা বোঝাতে চেয়েছিলেন তা স্পষ্টভাবে নয় (যেহেতু নিউলাইন এবং স্পেসগুলি হোয়াইটস্পেসের অক্ষর)। যদি আপনি যা ইচ্ছা করেন এটি যদি না হয় তবে সম্পাদনাটি ফিরিয়ে নিতে এবং আপনার উদ্দেশ্যটি আরও পরিষ্কার করে তুলুন।

— মেগো

2

সর্বাধিক ফলাফলের জন্য বেশ কয়েকটি সংখ্যা বাঁধা থাকলে কী হবে?

— ডেনিস

1

@ ডেনিস আমার পক্ষে এটি গ্রহণযোগ্য কি সর্বাধিক ফলাফল উত্পন্ন করে এমন কোনও সংখ্যক হতে দেবেন? আমি একটি নতুন নিয়ম চাপিয়ে দিতে চাই না যা বিদ্যমান বিদ্যমান সমাধানগুলিকে ভেঙে দেয়।

— কেইটিঞ্জ 24'16

2

হ্যাঁ, এটি সম্ভবত সেরা বিকল্প। 950 একটি উদাহরণ হতে পারে, যেখানে [900, 862] এবং [945, 862] উভয়ই বৈধ উত্তর হতে পারে।

— ডেনিস

1

পাবেনা আমি আউটপুট বিপরীত ক্রম সংখ্যা, উদাঃ ইনপুট জন্য 50: 35, 48?

— নিমি

5

পাইথ, 17 15 বাইট

_eSttm,-ds^R2{P

পরীক্ষা স্যুট.

— ফুটো নুন
সূত্র

4

জাভা 8 লাম্বদা, 247 239 233 225 224 219 198 161 টি অক্ষর

আমি ভেবেছিলাম যে 300 টি অক্ষরের অধীনে এটি অবশ্যই সম্ভব কারণ আপনি জানেন ... জাভা!

এবং এটি 200 অক্ষরের নিচে এমনকি সত্যই সম্ভব!

m->{int n=1,u,f,F[],g,G=g=1<<31;for(;++n<=m;){u=n;F=new int[m+1];for(f=1;++f<=u;)u/=u%f<1?(F[f]=f--):1;f=0;for(int p:F)f+=p*p;g=n-f>g?(G=n)-f:g;}return G+","+g;}

আমদানিগুলির এই ব্যবহারটি বৈধ কিনা তা আমি জানি না তবে আমি ধরে নিই, এটি ঠিক হওয়া উচিত। এখানে লম্বা একটি ক্লাসে অবরুদ্ধ:

public class Q80507 {
    static String greatestAfterReduction(int maxNumber) {
        int number = 1, upper, factor, primeFactors[], greatestResult, greatestNumber = greatestResult = 1 << 31; // <-- Integer.MIN_VALUE;
        for (;++number <= maxNumber;) {
            // get unique primefactors
            upper = number;
            primeFactors = new int[maxNumber + 1];
            for (factor = 1; ++factor <= upper;)
                upper /= upper % factor < 1 ? (primeFactors[factor] = factor--) : 1;

            factor = 0;
            for (int prime : primeFactors)
                factor += prime * prime;

            greatestResult = number - factor > greatestResult ? (greatestNumber = number) - factor : greatestResult;
        }
        return greatestNumber + "," + greatestResult;
    }
}

Primefactor-গবেষনার উপর ভিত্তি করে তৈরি এই উত্তর । কোডটি সেটের কার্যকারিতা ব্যবহার করে কারণ তারা কেবলমাত্র প্রতিটি মান একবারে সংরক্ষণ করে, সুতরাং পরে যুক্ত নকলগুলি সম্পর্কে আমার কোনও যত্ন করার দরকার নেই। বাকী কোডটি বেশ সোজা এগিয়ে রয়েছে, ঠিক এই প্রশ্নটি অনুসরণ করে।

আপডেট

আউটপুট থেকে নতুন লাইন সরানো হয়েছে।

পূর্ণসংখ্যার গল্ফ করার জন্য @ অগ্রোগোয়ারকে ধন্যবাদ M

কোডটি আবার দেখার পরে আমি আরও কিছু জায়গা পেয়েছি যেখানে জিনিসগুলি গল্ফ করা যেতে পারে।

@ ব্লু কে == 0 থেকে <1 ট্রিকের জন্য ধন্যবাদ!

কিছু বাকী সাদা স্থান সরিয়ে নিয়েছে। এছাড়াও বিচ্ছেদের জন্য কেবল একটি চর দরকার তাই একটি চর নষ্ট করার দরকার নেই।

আমি আবার এটি মুদ্রণের পরিবর্তে এবং ঘোষণাপত্রগুলি একসাথে রাখার পরিবর্তে মানটি ফিরিয়ে দিতে পারব বলে @ ওপরেগোয়ারকে ধন্যবাদ! এটি অনেক সাশ্রয়!

আরও একটি চর সংরক্ষণ করতে পারলে আমি দ্বিতীয়টির পরিবর্তে একটি টার্নারি ব্যবহার করতে পারি।

আমদানি সংরক্ষণ করে এমন একটি অ্যারের দুর্দান্ত ব্যবহারের জন্য @ অস্ট্রোনডানকে ধন্যবাদ । এটি আমাকে কোনও বার্নিশে পরিণত করলে প্রথমটি ছোট করার সম্ভাবনাও দিয়েছিল।

— Frozn
সূত্র

1

Integer.MIN_VALUEহিসাবে সংক্ষিপ্ত করা যেতে পারে 1<<31।

— অলিভিয়ার গ্রাগোয়ার

1

পরিবর্তে (u% f <1) এর সাথে 1 বাইট সংরক্ষণ করুন

— নীল

1

বেশ কয়েকবার intপুনরাবৃত্তি এড়াতে আপনার সমস্ত স্থানকে একই জায়গায় ঘোষণা করুন intএবং সম্ভব হলে তাদের মান সেখানে নির্ধারণ করুন।

— অলিভিয়ার গ্রাগোয়ার

1

এছাড়াও, এটি থেকে মুক্তি পান System.out.println(...)এবং এটি মুদ্রণের পরিবর্তে কোনও মান ফিরিয়ে দিন: ওপি যেমন উল্লেখ করেছে, মানক I / O পদ্ধতি ব্যবহার করা হচ্ছে।

— অলিভিয়ার গ্রাগোয়ার 25:58

1

হ্যাশসেটটিকে একটি আন্ত অ্যারে রূপান্তর করতে আপনি সি # তে ব্যবহৃত অ্যারে ট্রিকটিও ব্যবহার করতে পারেন। এটি সম্ভবত আপনাকে অনেকগুলি বাইট সংরক্ষণ করে আমদানি ছাড়তে দেবে।

— অ্যাস্ট্রোডান

3

আসলে, 21 বাইট

u2x;`;y;*@-`M;M;)@í@E

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

ব্যাখ্যা:

u2x;`;y;*@-`M;M;)@í@E
u2x;                   push two copies of range(2, n+1) ([2, n])
    `      `M          map:
     ;                   duplicate
      y;                 push two copies of prime divisors
        *                dot product of prime divisors lists (equivalent to sum of squares)
         @-              subtract from n
             ;M;)      duplicate, two copies of max, move one copy to bottom of stack
                 @í    get index of max element
                   @E  get corresponding element from range

— ঐ মেগো
সূত্র

আপনি এই ভাষায় লিঙ্ক করতে পারেন?

— চার্লস

1

@ নোটহ্যাটচর্লস আপনি অনলাইন দোভাষীতে ভাষার নামটি ক্লিক করতে পারেন।

— ডেনিস

ঠিক আছে আমি Actually Programming Languageগুগল করেছিলাম এবং গুগলের ফলাফলের 5 তম পৃষ্ঠাটি দেখার পরেও কিছুই পাইনি nothing এটা কোন ভাষা?

— তেজস কালে

2

@ তেজাস আপনি সেই ভাষার নামে ক্লিক করতে পারেন যা আপনাকে এর উত্সটিতে

— Amndeep7

3

এমএটিএল , 18 বাইট

:"@tYfu2^s-]v2#X>w

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

সর্বশেষ কেসটি অনলাইন সংকলকটির জন্য খুব বেশি সময় নেয়, তবে এটি সঠিক ফলাফল দেয় (এটি আমার কম্পিউটারে প্রায় 11 সেকেন্ড সময় নেয়, মতলবটিতে চলছে):

ব্যাখ্যা

বর্ণিত পদ্ধতির সোজা আবেদন।

:         % Implicit input n. Range [1 2 ... n]
"         % For each
  @       %   Push that number
  tYfu    %   Duplicate. Prime factors. Unique values
  2^s-    %   Square. Sum of array values. Subtract
]         % End for each
v         % Concatenate stack contents into vertical vector
2#X>      % Max and arg max
w         % Swap. Implicit display

— লুইস মেন্ডো
সূত্র

3

সি #, 194 বাইট

আমার প্রথম কোড গল্ফ :)। আমি আমার প্রিয় ভাষাটি ভার্বোসটি সত্ত্বেও ব্যবহার করেছি। আমি @ ফিরোজ জাওয়ার সি # ফাংশন পোর্ট হিসাবে এটি শুরু করেছিলাম তবে কোডটি আরও অনুকূলিতকরণের সাথে আরও সঙ্কুচিত করার বেশ কয়েকটি উপায় খুঁজে পেয়েছি।

string R(int a){int u,f,g,N=g=1<<31;for(int n=1;++n<=a;){u=n;int[]P=new int[a+1];for(f=1;++f<=u;){if(u%f<1){u/=f;P[f]=f--;}}f=0;foreach(var p in P){f+=p*p;}if(n-f>g){g=(N=n)-f;}}return N+","+g;}

এটি মৌলিক উপাদানগুলি সঞ্চয় করতে একটি অ্যারে ব্যবহার করে। কারণ এটি ফ্যাক্টর দ্বারা সূচকযুক্ত এটি পুনরাবৃত্ত উপাদানগুলিকে ফ্যাক্টরের অনুলিপিগুলির সাথে প্রতিস্থাপন করবে। এটি ফাংশনটির কোনও আমদানি করার অনুমতি দেয়। এটি এমনকি সিস্টেমের প্রয়োজন হয় না।

— AstroDan
সূত্র

এটি সত্যিই দুর্দান্ত কৌশল! এটি আমার সংস্করণে ব্যবহার করার চেষ্টা করবে

— ফ্রোজেন

3

বাশ + জিএনইউ ইউটিলিটিস, 74

seq 2 $1|factor|sed -r 's/:?( \w+)\1*/-\1*\1/g'|bc|nl -v2|sort -nrk2|sed q

seq সমস্ত পূর্ণসংখ্যা 2 থেকে এন তৈরি করে
factorকোলন অনুসারে নম্বর দেয় এবং তারপরে ডুপ্লিকেট সহ সমস্ত মৌলিক কারণগুলির একটি স্থান পৃথকীকরণের তালিকা দেয়। যেমন 12 এর ফলাফল12: 2 2 3
sedকোলন এবং সদৃশ উপাদানগুলি সরিয়ে দেয়, তারপরে প্রয়োজনীয় গাণিতিক এক্সপ্রেশন তৈরি করে। যেমন 12 এর জন্য:12- 2* 2- 3* 3
bc এটি মূল্যায়ন
nl উপসর্গ এন ফিরে (2 এ শুরু)
sort দ্বিতীয় কলাম দ্বারা, সংখ্যায়, অবতরণ ক্রমে
seq প্রথম লাইনটি প্রিন্ট করে এবং প্রস্থান করে।

Ideone।

— ডিজিটাল ট্রমা
সূত্র

2

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

:2:{eI$pd:{:2^.}a+:I--:I.}fF$\hor:0m:Ir.r~m[F:J]

ব্যাখ্যা

Main predicate:

:2:{}fF                     Unify F with the list of all binding for which predicate 1 is
                            true, given [Input, 2] as input.
       $\hor:0m             Retrieve the max of F by diagonalizing it, taking the
                            first row, sorting that row and reversing the sorted row.
               :Ir.         Unify the Output with [I, Max],
                   r~m[F:J] [I, Max] is in F at index J (the index is unimportant)


Predicate 1:

eI                          I is an integer in the range given in Input
  $pd                       Get the list of prime factors of I, with no duplicates
     :{:2^.}a               Apply squaring to each element of that list
             +              Sum the list
              :I-           Subtract I from the sum
                 -          Multiply by -1 (let's call it Result)
                  :I.       Unify the Output with [Result, I]

— Fatalize
সূত্র

2

জেলি , 13 বাইট

ÆfQ²S_@,µ€ḊṀṚ

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

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

ÆfQ²S_@,µ€ḊṀṚ  Main link. Argument: n

        µ      Combine the chain to the left into a link.
         €     Apply it to each k in [1, ..., n].
Æf               Yield k's prime factors as a list.
  Q              Unique; deduplicate the prime factors.
   ²             Square each unique prime factor.
    S            Compute their sum.
     _@          Subtract the result from k.
       ,         Pair with k, yielding [result(k), k].
          Ḋ    Dequeue; discard the first pair which corresponds to k = 1.
           Ṁ   Get the maximum (lexicographical order).
            Ṛ  Reverse the pair.

— ডেনিস
সূত্র

2

05 এ বি 1 ই , 19 17 16 বাইট

কোড:

L©f€n€O®-®)ø¦{¤R

ব্যাখ্যা:

L                    # make a list of 1..input [1,2,3,4,5,6]
 ©                   # save the list for reuse
  f                  # get primefactors of numbers in list [[],[2],[3],[2],[5],[2,3]]
   €n                # square each factor [[],[4],[9],[4],[25],[4,9]]
     €O              # sum the factors [0,4,9,4,25,13]
       ®-            # subtract from saved list [1,-2,-6,0,-20,-7]
         ®)ø         # zip with saved list [[1,1],[-2,2],[-6,3],[0,4],[-20,5],[-7,6]]
            ¦        # drop the first item (n=1) [[-2,2],[-6,3],[0,4],[-20,5],[-7,6]]
             {       # sort [[-20,5],[-7,6],[-6,3],[-2,2],[0,4]]
              ¤      # get last item [0,4]
               R     # reverse [4,0]

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

— Emigna
সূত্র

2

জুলিয়া, 56 বাইট

!n=maximum(k->(k-sumabs2(k|>factor|>keys),k),2:n)[[2,1]]

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

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

প্রদত্ত একটি ইনপুট এন প্রতিটি পূর্ণসংখ্যা জন্য, ট যেমন যে 2 ≤ ট ≤ এন , আমরা tuple উৎপন্ন (চ (ট), ট) , যেখানে চ (ট) মধ্যে পার্থক্য ট এবং তার মৌলিক উত্পাদক বর্গের সমষ্টি ।

এফ (কে) নিজেই দিয়ে গণনা করা হয় k-sumabs2(k|>factor|>keys), যেটি কে কে প্রাইম কী এবং এক্সপোনেন্ট ভ্যালুতে ডিক্ট হিসাবে যুক্ত করে, সমস্ত কী (প্রাইম ফ্যাক্টর) এক্সট্রাক্ট করে, তাদের স্কোয়ারের যোগফল গ্রহণ করে এবং কে থেকে ফলাফল প্রাপ্ত পূর্ণসংখ্যাকে বিয়োগ করে ।

শেষ অবধি, আমরা উত্পন্ন টিউপসগুলির সর্বাধিক ডিকোসোগ্রাফিকাল গ্রহণ করি এবং এটি সূচক 2 এবং 1 তে প্রবেশ করে এটি বিপরীত করি ।

— ডেনিস
সূত্র

1

ক্লোজার, 215 বাইট

(fn j[x](apply max-key second(map(fn[w][w(- w(let[y(reduce +(map #(* % %)(set(flatten((fn f[q](let[c(filter(fn[r](=(mod q r)0))(range 2 q))](if(empty? c)q(map f c))))w)))))](if(= y 0)(* w w)y)))])(range 2(inc x)))))

শুধু নিয়ম অনুসরণ করে। প্রতিটি সংখ্যার প্রাথমিক কারণগুলি গণনা করে তাদের স্কোয়ারে রাখুন এবং তাদের যোগফল দিন। এর পরে 2 টি উপাদানের ভেক্টরের একটি তালিকা তৈরি করুন: প্রাথমিক সংখ্যা এবং এর ফলাফল এবং দ্বিতীয় উপাদানটির সর্বাধিক মান সহ উপাদানটি সন্ধান করুন।

আপনি এটি অনলাইনে এখানে দেখতে পাবেন: https://ideone.com/1J9i0y

— cliffroot
সূত্র

1

আর 109 বাইট

y=sapply(x<-2:scan(),FUN=function(x)x-sum(unique(as.numeric(gmp::factorize(x))^2)));c(x[which.max(y)],max(y))

আমি প্রতারণা করে একটি প্যাকেজ ব্যবহার করেছি gmp,।

— লাফানো বল
সূত্র

1

সিজেম, 32 বাইট

ri({))_mf_|2f#:+-}/]_:e>_@#))\]p

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

— একটি সিমন্স
সূত্র

1

পাইকে, 17 বাইট

FODP}mXs-)DSei@Oi

এখানে চেষ্টা করুন!

— নীল
সূত্র

1

পাওয়ারশেল ভি 2 +, 124 120 117 বাইট

2..$args[0]|%{$y=$z=$_;2..$_|%{$y-=$_*$_*!($z%$_)*('1'*$_-match'^(?!(..+)\1+$)..')};if($y-gt$o){$o=$y;$p=$_}}
"$p $o"

প্রথম লাইন মানগুলি গণনা করে, দ্বিতীয়টি কেবল আউটপুট।

আমরা 2আমাদের কমান্ড-লাইন আর্গুমেন্ট $args[0]থেকে লুপটি তৈরি করে শুরু করি |%{...}। প্রতিটি লুপ আমরা সাহায্যকারী ভেরিয়েবলগুলি আমাদের বর্তমান মানের সাথে সমান সেট করি $y=$z=$_। তারপরে আমরা 2আমাদের বর্তমান নম্বর পর্যন্ত প্রতিটি সংখ্যার মধ্য দিয়ে লুপ করব । প্রতিটি অভ্যন্তরীণ লুপ আমরা পরীক্ষা করে দেখি যে এই সংখ্যাটি বিভাজক !($z%$_)কিনা এবং এটি প্রাইম কিনা ('1'*$_-match'^(?!(..+)\1+$)..')এবং এটি উভয়ই যদি আমরা বর্গটি বিয়োগ করি$y (চেকগুলি বুলিয়ান গুণে ব্যবহার করা হয়)।

একবার আমরা সমস্ত প্রাথমিক বিভাজকগুলি পেরিয়ে স্কোয়ারগুলি বিয়োগ করে ফেললাম, যদি এখনও অবধি দেখা সংখ্যাটি সবচেয়ে বেশি হয় $y-gt$o, তবে আমরা আমাদের আউটপুট ভেরিয়েবলগুলি সেট করি $o=$y;$p=$_। আমরা পুরো পরিসীমাটি লুপ করার পরে, আমরা কেবল একটি মধ্যবর্তী স্থান দিয়ে আউটপুট করি।

— AdmBorkBork
সূত্র

1

হাস্কেল, 91 বাইট

f m=reverse$maximum[[n-sum[p^2|p<-[2..n],mod n p<1,mod(product[1..p-1]^2)p>0],n]|n<-[2..m]]

ব্যবহারের উদাহরণ: f 50-> [48,35]।

প্রাইম ফ্যাক্টর ফাংশনগুলি কেবলমাত্র import Data.Numbers.Primesযার মাধ্যমে অনেকগুলি বাইটের জন্য ব্যয় হয় তা উপলভ্য , তাই আমি @ লিনের প্রধান পরীক্ষক ব্যবহার করছি । বাকিগুলি সরাসরি এগিয়ে: ইনপুট mলুপের nমাধ্যমে [2..m]এবং অভ্যন্তরীণ লুপের pমাধ্যমে[2..n] । সব রাখা pযে মৌলিক এবং ডিভাইড হয় n, বর্গাকার এবং সমষ্টি।

— nimi
সূত্র

1

পাইথন 2, 108 105 100 বাইট

f=lambda n,m=2,p=1:m>n or-~f(n,m+1,p*m*m)-(n%m<p%m)*m*m
r=max(range(2,input()+1),key=f)
print r,f(r)

আইডিয়নে এটি পরীক্ষা করুন ।

— ডেনিস
সূত্র

1

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

f=n=>{r=n<2?[]:f(n-1);for(s=[],j=n,i=2;j>1;k%i?i++:j/s[i]=i);s.map(i=>j-=i*i,j=n);return j<r[1]?r:[n,j]}

আমি কেন আগে এর আগে পুনরাবৃত্তভাবে এটি করতে ভেবে দেখিনি।

— নিল
সূত্র

1

জে, 44 বাইট

[:((],.~2+I.@e.)>./)@:}.1(-[:+/*:@~.@q:)@+i.

সোজা-এগিয়ে পদ্ধতির। এছাড়াও সমস্ত মান প্রদান করেn ফলাফলের সর্বাধিক মান প্রদান করে।

ব্যবহার

   f =: [:((],.~2+I.@e.)>./)@:}.1(-[:+/*:@~.@q:)@+i.
   f 3
2 _2
   f 10
8 4
   f 50
48 35
   f 1000
1000 971
   f 9999
9984 9802
   f 950
900 862
945 862

— মাইল
সূত্র

একটি পরিসরে বৃহত্তর সংখ্যা যখন এর প্রধান উপাদানগুলির স্কোমের সমষ্টিটি বিয়োগ করা হয়

পাইথ, 17 15 বাইট

জাভা 8 লাম্বদা, 247 239 233 225 224 219 198 161 টি অক্ষর

আপডেট

আসলে, 21 বাইট

এমএটিএল , 18 বাইট

ব্যাখ্যা

সি #, 194 বাইট

বাশ + জিএনইউ ইউটিলিটিস, 74

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

ব্যাখ্যা

জেলি , 13 বাইট

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

05 এ বি 1 ই , 19 17 16 বাইট

জুলিয়া, 56 বাইট

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

ক্লোজার, 215 বাইট

আর 109 বাইট

সিজেম, 32 বাইট

পাইকে, 17 বাইট

পাওয়ারশেল ভি 2 +, 124 120 117 বাইট

হাস্কেল, 91 বাইট

পাইথন 2, 108 105 100 বাইট

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

জে, 44 বাইট

ব্যবহার