30

দ্বারা অনুপ্রাণিত এই । একটি সংখ্যা রয়েছে, হয় পূর্ণসংখ্যা, স্ট্রিং বা অঙ্কগুলির অ্যারে (আপনার পছন্দ) হিসাবে দেওয়া হয়। সংখ্যার উপস্থাপনায় সবচেয়ে বেশি যে বেস থাকবে তার সন্ধান করুন এবং সেই বেসটি ফিরে পাবেন।

সংখ্যা ফলাফল
624 5
444 10
 68 16

সীমাবদ্ধতা:

প্রাপ্ত বেসটি ইনপুটের চেয়ে বড় হওয়া উচিত নয়।
অ্যাবস (4) এর চেয়ে কম বা সমান সংখ্যাগুলিকে বৈধ ইনপুট হিসাবে বিবেচনা করা উচিত নয়, তাই অপরিজ্ঞাত রিটার্ন গ্রহণযোগ্য

code-golf number

— Fixpoint
সূত্র

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

— কোডপর্ন

সর্বোচ্চ গ্রহণযোগ্য বেস কি?

— স্টিভেন রাম্বালস্কি

আমি 36 ধরে

— নিব

2

@ সানচেশায়ার: আপনাকে আসলে সংখ্যাটি প্রদর্শন করতে হবে না। আপনি সহজে কোনও অ্যারে হিসাবে কোনও বেসে কোনও সংখ্যা উপস্থাপন করতে পারেন, যেমন [1,15,3,64,43]বেসের কিছু সংখ্যার জন্য 80। আপনি কেবল বেস নম্বরটি আউটপুট দিচ্ছেন, যাতে আপনি প্রতিটি বেস থেকে প্রযুক্তিগতভাবে পরীক্ষা করতে 2পারেন n।

— মেল্লামোকব

1

জন্য সঠিক উত্তর কি 1, 2এবং 3, যা একই সংখ্যক আছে "4" গুলি (0) যে বেস কি? এছাড়াও, অনেক সংখ্যক বেসগুলিতে "4" এর সমান সংখ্যা রয়েছে (যেমন, 4কোনও বেসে> 5, 44কোনও বেসে> 45, 14বেস 9 এ, বা কোনও বেস> 15 ইত্যাদি)। সঠিক উত্তরটি কি সবচেয়ে বড় সংখ্যার "4" এস সহ ক্ষুদ্রতম বেস হওয়া উচিত?

— মেল্লামব্যাক

24

এপিএল ( 31 19)

এখন সমস্ত সম্ভাব্য ঘাঁটি পরীক্ষা করে দেখুন।

⊃⍒{+/4=K⊤⍨K⍴⍵}¨⍳K←⎕

ব্যাখ্যা:

⍳K←⎕: ব্যবহারকারীর ইনপুট পড়ুন, কেতে সঞ্চয় করুন 1 থেকে কে পর্যন্ত একটি তালিকা তৈরি করুন যা চেষ্টা করার বেস s
{... }¨: এগুলির প্রত্যেকের জন্য, নিম্নলিখিত ফাংশনটি চালান
K⊤⍨K⍴⍵: কেজকে সেই বেসে এনকোড করুন প্রতি বেস ভিত্তিতে অঙ্কগুলির তালিকা (সংখ্যা হিসাবে) giving কে ডিজিট ব্যবহার করুন (একটি বড় ওভারসেটিমিট, তবে এটি কোনও বিষয় নয় কারণ অব্যবহৃত সমস্তগুলি যাইহোক শূন্য হবে)।
4=: এইগুলির মধ্যে 4 এর সমান দেখুন
+/: এইগুলি যোগফল, এখন আমরা জানি বেসের জন্য কত চারটি
⊃⍒: তালিকার সূচকগুলি নীচের দিকে বাছাই করা হলে তা দিন, সুতরাং বৃহত্তমটির সূচকটি সামনে রয়েছে। এই তালিকার প্রথম আইটেম নিন।

— সামুদ্রিক
সূত্র

2

আমি আপনার এপিএল সমাধানগুলি ভালবাসি।

— মিঃজান্ডার

25

মজার বিষয় যে এপিএল এক্সপ্রেশনটি কীভাবে ⍨

— বহন করে

5

গল্ফস্ক্রিপ্ট, 30 টি অক্ষর

.,{[2+.2$\base{4=},,\]}%$)~p];

যে কোনও বেসের জন্য কাজ করে - অনলাইনে কোডটি পরীক্ষা করুন ।

মন্তব্য: এই সমাধানটি প্রশ্নের মূল সংস্করণের ভিত্তিতে ছিল। এটি ইনপুট থেকে বৃহত্তর একটি বেস ফিরে আসতে পারে, যেমন ইনপুট 4 এর জন্য এটি সঠিকভাবে বেস 5 প্রদান করে - যা নতুন নিয়মের দ্বারা আর বৈধ নয়।

— হাওয়ার্ড
সূত্র

5

গল্ফস্ক্রিপ্ট (২৩ টি অক্ষর)

~:^,2>{^\base[4]/,~}$0=

অথবা

~:^,2>{^\base[4]/,}$-1=

অথবা

~:^,2>{^\base[4]/,}$)\;

নোট করুন যে এটি স্টিডিনের কাছ থেকে ইনপুট নেয়: হাওয়ার্ডের গল্ফস্ক্রিপ্ট সংস্করণের সাথে তুলনা করার জন্য একটি চর বিয়োগ করে।

হাওয়ার্ড নির্দেশ করে যে নিয়মগুলি পরিবর্তিত হয়েছে, এবং এটি খুব যুক্তিসঙ্গত নয় যে তারা এখন 4কোনও সম্ভাব্য ইনপুট হিসাবে বাদ দেয় যখন এর বৈধ আউটপুট থাকে (4 এর চেয়ে বড় পূর্ণসংখ্যা)। এই কেসটি কভার করতে পাশাপাশি অতিরিক্ত 2 টি অক্ষর প্রয়োজন, যা সব ধরণের উপায়ে যুক্ত করা যেতে পারে:

~:^)),2>{^\base[4]/,}$)\;

অথবা

~:^,{))^\base[4]/,}$)))\;

সুস্পষ্ট ব্যক্তিদের একটি দম্পতি হচ্ছে।

— পিটার টেলর
সূত্র

খুশী হলাম। কিন্তু ইনপুট "4" এর জন্য ভুল উত্তর দেয়।

— হাওয়ার্ড

আমি কেবল দেখেছি যে তারা বিধিগুলি সম্পূর্ণরূপে পরিবর্তন করেছে এবং আমার জমা দেওয়ার পরে কোনও বিশেষ মামলা মুছে ফেলে। সুতরাং আপনার সমাধানটি নতুন নিয়মের সাথে সামঞ্জস্য।

— হাওয়ার্ড

@ হওয়ার্ড, বিধিগুলি বলতে পারে যে মামলাটি পরিচালনা করার দরকার নেই, তবে সম্পূর্ণতার স্বার্থে আমি কিছু রূপগুলি যুক্ত করব।

— পিটার টেইলর

তবুও, আমি একাধিকবার +1 করতে পারি না ;-)

— হাওয়ার্ড

@ হওয়ার্ড, আপনি যদি সত্যিই চান তবে আপনি একটি অনুগ্রহ যোগ করতে পারেন;)

— পিটার টেলর

4

পাইথন 2.x, 77 টি অক্ষর rs

F=lambda x:max((sum(x/b**d%b==4for d in range(99)),b)for b in range(5,99))[1]

সর্বোচ্চ 98 ডিজিট দীর্ঘ দীর্ঘ 98 এবং সংখ্যা পর্যন্ত কাজ করে।

— কিথ র্যান্ডাল
সূত্র

4

জে, 38 টি অক্ষর

f=.[:(i.>./)[:+/[:|:4=(10#"0(i.37))#:]

ব্যবহার:

— গ্যারেথ
সূত্র

4

ভিবিএ, 121

Function k(a)
For w=5 To a
Z=0:q=a:Do:c=q Mod w:Z=Z-(c=4):q=Int(q/w):Loop Until q=0
If Z>x Then x=Z:k=w
Next
End Function

ব্যবহার:

সরাসরি উইন্ডো: ?k(num)
এক্সেল সূত্র: =k(A1)

— SeanC
সূত্র

সমস্ত ঘাঁটি জন্য স্থির, এবং 4s

— SeanC

এফডব্লিউআইডাব্লু, আপনি একটি স্থান সরাতে পারেন:For w=5To a

— ইঞ্জিনিয়ার টোস্ট

3

গণিত 59

কোড

Sort[{Count[IntegerDigits[n, #], 4], #} & /@ Range[5, 36]][[-1, 2]]

উপরের ফাংশনটির একটি নাম দেওয়া যাক।

whichBase[n_] := Sort[{Count[IntegerDigits[n, #], 4], #} & /@ Range[2, 36]][[-1, 2]]

ব্যাখ্যা

Count[IntegerDigits[n,k],4]: বেস মধ্যে হামাগুড়ি দিয়া সংখ্যা গোনা ট প্রতিনিধিত্ব এন ।
Sort সবচেয়ে কম থেকে 4s অবধি।
তালিকার শেষ আইটেমটি থেকে বেসটি ফেরান, অর্থাৎ, সেই বেসটি যেখানে সবচেয়ে বেশি 4 এর প্রতিনিধিত্ব ছিল।

কিছু বিশেষ নম্বর

এখন নীচের বিশেষ নম্বরগুলিতে হোয়াটবেস প্রয়োগ করি।

numbers= {1953124, 8062156, 26902404, 76695844, 193710244, 444444444, 
943179076, 1876283764, 3534833124, 6357245164, 10983816964, 
18325193796, 29646969124, 46672774204, 71708377284, 107789473684, 
158856009316, 229956041484, 327482302084, 459444789604, 635782877604, 
868720588636, 1173168843844, 1567178659764, 2072449425124, 
2714896551724, 3525282954756, 4539918979204, 5801435550244, 
7359635486844, 9272428079044, 11606852190676}

{5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, \ 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36

আপনি যদি প্রতিটি সংখ্যাটিকে সংশ্লিষ্ট বেসে রূপান্তর করেন তবে আপনি তাদের সম্পর্কে বিশেষ কী তা দেখতে পাবেন।

— DavidC
সূত্র

আমি মনে করি আপনি যদি nসেখানে ব্যবহার করতে চান তবে একটি সম্পূর্ণ ফাংশন সংজ্ঞা জন্য আপনাকে 7 বাইট যুক্ত করতে হবে। এছাড়াও, MaximalByসত্যই সহায়তা করে, এটি 49 বাইটে ছিটকে: MaximalBy[Range[a=#],a~IntegerDigits~#~Count~4&]&(কেবল বেস -1 ব্যবহারের চেষ্টা করা বার্তাগুলি উপেক্ষা করুন)

— LegionMammal978

এছাড়াও, বর্তমান এক থেকে শুরু করে ব্যর্থ হয় এন = 152, যেখানে এটি 36 পরিবর্তে 37 দেয়

— LegionMammal978

যদিও আপনার কোডটি কাজ করে, আমি বুঝতে পারি না কীভাবে এটি ব্যবহার করবে কোন বেসগুলি ব্যবহার করতে হবে। এটি বেস 2 থেকে 36 (বা 1 এর মাধ্যমে 36) পরীক্ষা করার জন্য বলা উচিত নয়?

— ডেভিডসি

বেজ 36 সমস্যা উল্লেখিত হয় না, এবং আমি কেন দাবি করে যে পুলিশের ব্যর্থ যে জন্য এন = 152 = 4 · 37 + + 4. আমার কোড চেক 1 থেকে সব ঘাঁটি এন , ঘাঁটি থেকে এন + 1 টি এবং অনওয়ার্ড শুধুমাত্র একক উপস্থিত থাকবে অঙ্ক এন ।

— LegionMammal978

পরিষ্কার ব্যাখ্যার জন্য ধন্যবাদ।

— ডেভিডসি

3

জাপট `-h`, 10 বাইট

444বেস 10হয় [4,4,4]যা সংখ্যা উপস্থিত রয়েছে এবং অঙ্ক 43 বার কিন্তু 444বেস 100হয় [4,44]যা অঙ্ক রয়েছে 43 বার, কিন্তু শুধুমাত্র একবার একটি সংখ্যা হিসাবে। 444পরীক্ষার মামলার চ্যালেঞ্জের মধ্যে প্রত্যাশিত আউটপুট দেওয়া , আমি অনুমান করি যে আমাদের 4 নম্বরটি গণনা করা উচিত:

õ ñ@ìX è¥4

চেষ্টা করে দেখুন

কিন্তু আমরা যদি হয় অঙ্ক 4 গণনা তারপর:

õ ñ@ìX ¬è4

চেষ্টা করে দেখুন

õ              :Range [1,...,input]
  ñ@           :Sort by passing each X through a function
    ìX         :  Convert the input to a base X digit array
               :(VERSION 1)
       è       :  Count the elements
        ¥4     :    Equal to 4
               :(VERSION 2)
       ¬       :  Join to a string
        è4     :  Count the occurrences of "4"
               :Implicitly output the last element in the sorted array

— রোমশ
সূত্র

2

সি - (১১৪ টি অক্ষর)

সব মিলিয়ে এটি গল্ফ গৌরব:

x,k,c,d,n;main(v){scanf("%d",&v);for(k=5;v/k;++k){x=v;c=0;while(x)c+=x%k==4,x/=k;c>=d?n=k,d=c:0;}printf("%d",n);}

এবং কিছুটা নাড়িত:

x,k,c,d,n; // declare a bunch of ints, initialized to 0
main(v){   // declare one more, without using an extra comma
    scanf("%d",&v); // get the input (v)
    for(k=5;v/k;++k){ // loop over each base (k) greater than or equal to (/)
                      // our input (v)
        x=v;          // temp value (x) set to input (v)
        c=0;          // number of 4s in the current base (c) re-initialized
        while(x)       // loop over our temp until it's used up
            c+=x%k==4, // if the next digit (x%k) is 4 (==4) increment the
                       // current count (c+=)
            x/=k;      // remove the current digit
        c>=d?n=k,d=c:0; // if the number of 4s in this base (c) is greater
                       // than the current maximum number of 4s (d), then
                       // save the new best base (n), and new maximum
                       // number of 4s
    }
    printf("%d",n);   // output the result
}

কেবল মজাদার জন্য এখানে সংখ্যার আউটপুট রয়েছে [0,127](এগুলি নিজেই ইনপুট সংখ্যার অধীনে সবচেয়ে বড় ঘাঁটি)।

0, 0, 0, 0, 0, 5, 6, 7, 8, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 5, 21, 22, 23, 6, 25, 26, 27, 7, 29, 30, 31, 8, 33, 34, 35, 9, 37, 38, 39, 10, 41, 42, 43, 11, 5, 46, 47, 12, 49, 50, 51, 13, 53, 54, 55, 14, 57, 58, 59, 15, 61, 62, 63, 16, 65, 66, 67, 17, 69, 5, 71, 18, 73, 74, 75, 19, 7, 78, 79, 20, 81, 82, 83, 21, 85, 86, 87, 22, 89, 90, 91, 23, 93, 94, 5, 24, 97, 98, 99, 25, 101, 102, 103, 26, 5, 106, 107, 27, 109, 5, 111, 28, 113, 114, 5, 29, 9, 5, 5, 5, 121, 122, 123

— গর্ডন বেইলি
সূত্র

1

@AttilaO। আমি আশা করছিলাম কেউ খেয়াল করবে :)

— গর্ডন বেইলি

2

আর - ~~148~~ 137 অক্ষর

(সুতরাং, প্রতিযোগিতা থেকে অনেক দূরে কিন্তু এখনও)

f=function(n){s=sapply;which.max(s(lapply(strsplit(s(4:n,function(x){q=n;r="";while(q){r=paste(q%%x,r);q=q%/%x};r})," "),`==`,4),sum))+3}

মূলত ইনপুটটি বেস 10 থেকে সমস্ত ঘাঁটিতে 4 থেকে এন (মডুলো %%এবং পূর্ণসংখ্যা বিভাগ ব্যবহার করে %/%) রুপান্তর করুন এবং সর্বাধিক 4 এস থাকা প্রথমটির সূচকটি বেছে নিন।

f(624)
[1] 5
f(444)
[1] 10

— plannapus
সূত্র

2

@মারিনাসের এপিএল সমাধানের জে অনুবাদ:

NB. Expression form (22 characters, not including "n" - the "argument"):
{.\:(+/@(4=$#:[)"0 i.)n
NB. Function form (24 characters, not including "f=:"):
f=:{.@\:@(+/@(4=$#:[)"0 i.)

কেবল আগ্রহের জন্য, এখানে কিছু মান রয়েছে:

(,.f"0)9+i.24
 9  5
10  6
11  7
12  8
13  9
14  5
15 11
16  6
17 13
18  7
19  5
20  5
21  5
22  5
23  5
24  5
25  6
26  6
27  6
28  6
29  5
30  7
31  7
32  7

এটি সবচেয়ে ক্ষুদ্রতম বেসকে আউটপুট দেয় যা একটি আরও দীর্ঘ রূপান্তর দেয়। সারণীতে শেষ কয়েকটি মানগুলির জন্য, উপস্থাপনাগুলি "4n" (উদাহরণস্বরূপ 31 নম্বরে 31 "" 43 ") মত দেখাচ্ছে।

— জেমস উড
সূত্র

2

জেলি , 6 বাইট

bⱮċ€4M

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

এন পর্যন্ত "সমস্ত" বেসগুলি আউটপুট দেয় যা সর্বাধিক 4 দেয়। আপনি যদি সর্বোচ্চ বা সর্বনিম্ন বেস চান তবে যথাক্রমে Ṁ(সর্বাধিক) বা Ṃ(মিনিট) যুক্ত করুন।

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

bⱮċ€4M    Main link (monad). Input: integer N.
bⱮ        Convert N to each base of 1..N
  ċ€4     Count 4's in each representation
     M    Take maximal indices

— Bubbler
সূত্র

2

05 এ বি 1 ই , 10 9 বাইট

LBε4¢}Zk>

-1 বাইট @ কাউবাংঘোলকে ধন্যবাদ ।

যদি একাধিক বেসগুলিতে 4s এর সমান পরিমাণ থাকে তবে এটি ক্ষুদ্রতম আউটপুট দেবে (অর্থাত্ 16ফলস্বরূপ 6, তবে 12এটি একটি সম্ভাব্য আউটপুটও হত)।

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

ব্যাখ্যা:

L           # Create a list in the range [1, (implicit) input]
            #  i.e. 624 → [1,2,3,...,622,623,634]
 B          # Convert the (implicit) input integer to Base-N for each N in this list
            #  i.e. 624 and [1,2,3,...,622,623,624]
            #   → ["1","1001110000","212010",...,"12","11","10"]
  ε  }      # Map this list to:
   4¢       #  Count the number of 4s in the number
            #   → [0,0,0,0,4,0,0,0,0,1,0,2,...,0,0,0]
      Z     # Take the max (without popping the list)
            #  i.e. [0,0,0,0,4,0,0,0,0,1,0,2,...,0,0,0] → 4
       k    # Get the index of this max in the list
            #  i.e. [0,0,0,0,4,0,0,0,0,1,0,2,...,0,0,0] and 4 → 4
         >  # Increase it by to convert the 0-index to our base (and output implicitly)
            #  i.e. 4 → 5

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

আপনি প্রতিস্থাপন করা যায়নি Qƶàসঙ্গে k>? অর্থাৎ সর্বাধিকের 0-ভিত্তিক সূচকটি সন্ধান করুন এবং এটি বৃদ্ধি করুন?

— কাউয়াবাংহোল

@ কাউয়াবাংহোল আহ, আপনি সত্যিই ঠিক বলেছেন। আমি কীভাবে এটি মিস করেছি তা নিশ্চিত নয়। ধন্যবাদ!

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

1

লিংক 273 সহ সি #

using System;using System.Linq;class P{static void Main(){int r,z,k=int.Parse(Console.ReadLine());if(k<=4) return;Console.WriteLine(Enumerable.Range(4, k).Select(x =>{r = 0;z = k;while (z > 0){if(z % x==4){r++;}z/=x;}return new[]{r, x};}).OrderBy(n => n[0]).Last()[1]);}}

অথবা

using System;
using System.Linq;

class P
{
    static void Main()
    {
        int r, z, k = int.Parse(Console.ReadLine());
        if (k <= 4) return;
        Console.WriteLine(
            Enumerable.Range(4, k).Select(x =>
                {
                    r = 0;
                    z = k;
                    while (z > 0)
                    {
                        if (z % x == 4)
                        {
                            r++;
                        }
                        z /= x;
                    }
                    return new[] { r, x };
                }).OrderBy(n => n[0]).Last()[1]);

    }
}

খুব নিশ্চিত যে ভেরিয়েবলের সংখ্যা হ্রাস করা যায় এবং যদি এরটি? এস তে রূপান্তর করা যায়। আচ্ছা ভালো...

— m0s
সূত্র

1

সি # ( ~~482~~ ~ 423 বাইট)

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

সাদা স্থান সহ:

using System;
class Program
{
    static void Main(string[] args)
    {
        int n = int.Parse(args[0]);
        int c=0, m=0;
        string r="";
        int t = 0;
        for (int i = 5; i < 37; i++)
        {
            while (n > 0)
            {
                r = (char)((int)(n % i) + 48 + (7 * ((int)(n % i) > 9 ? 1 : 0))) + r;
                n = (int)(n / i);
            }
            t = r.Length - r.Replace("4", "").Length;
            if (t > c) { c = t; m = i; }
        }
        Console.WriteLine("Base: " + m);
    }
}

— theB
সূত্র

4

আমি মনে করি না যে এটি namespaceপ্রয়োজনীয়। সমস্ত নাম Programএবং সহ একক অক্ষর হওয়া উচিত cBase। এবং হ্যাঁ, আপনি ইনলাইন করা উচিত cBase। এছাড়াও, ঘোষণা এবং আরম্ভের অর্থাত্, একত্রিত করুন int c=0,m=0।

— মেল্লামোকব

2

এছাড়াও, দেখে মনে হচ্ছে আপনি যুক্তি সম্পাদন করে এমন ফাংশন কোডের সাথে আপনার পরীক্ষার কোডটি একত্রিত করেছেন। বৈশিষ্টটির জন্য অঙ্কের একটি সংখ্যা / স্ট্রিং এবং একটি পূর্ণসংখ্যার আউটপুট প্রয়োজন। intপরামিতি গ্রহণ করে এমন কোনও ফাংশন তৈরি intকরা, এমনকি কোনও Mainপদ্ধতি ছাড়াই প্যারামিটারটি ফিরিয়ে দেওয়া এবং চরিত্রটিকে আপনার স্কোর গণনাতে কল্পনা করা ঠিক হবে।

— মেল্লামোকব

@ মেল্লামোকবেথাইজিজ - আমি নতুন কিছু শিখেছি। আমি সবসময় ধরে নিয়েছিলাম নামস্থান প্রয়োজন ছিল। এছাড়াও, পরীক্ষার অ্যারেতে ভাল ক্যাচ, এটি আমার কিছু অক্ষর বাঁচায় এবং আমি এখন আসলে চ্যালেঞ্জটির উত্তর দিচ্ছি।

— বিবি

1

বার্লেস্ক - 28 বাইট

Jbcjro{dg}Z]J{4CN}Cmsb[~Fi?i
Jbcjro                        create a list 1..input and convert input
                              to an infinite list.                      
      {dg}Z]                  convert number to base (zipWith operation)
            J                 duplicate
             {4CN}Cm          create comparison function 
              4CN             count the number of fours.
                    sb        sort by 
                      [~      take the last element (which is going to be
                              the base-n representation where count of fours
                              is highest)
                        Fi    Find the index of this last element in the original
                              unsorted list
                          ?i  increment (because base 1 is index 0)

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

— mroman
সূত্র

এই নাও. (সম্পাদনা দেখতে বা ক্লিক tio.run/##SyotykktLixN/... )

— mroman

1

কে , 18 বাইট

{*>+/'4=x{y\x}'!x}

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

{                } /function(x)
        x     '!x  /for every y in 0, 1, ..., (x-1):
         {y\x}     /    do x in base y
      4=           /see which digits equal four
   +/'             /sum, to get number of 4s per base
 *>                /get index (which equals base) of largest number of 4s

— zgrep
সূত্র

1

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

{max 5..$^a,by=>{grep 4,$a.polymod($_ xx*)}}

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

ভাল পুরানো পলিমড ।

— শন
সূত্র

1

কাস্তে , 9 বাইট

S€►#4ṠMBḣ

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

 €           The 1-based index in
      MB     the list of the input's representations in every base
     Ṡ  ḣ    from 1 to itself
S ►          of its element which has the largest
   #         number of
    4        fours.

— সম্পর্কযুক্ত স্ট্রিং
সূত্র

সংখ্যাকে এমন বেসে রূপান্তর করুন যেখানে এর উপস্থাপনায় সর্বাধিক "4" গুলি রয়েছে

এপিএল ( 31 19)

গল্ফস্ক্রিপ্ট, 30 টি অক্ষর

গল্ফস্ক্রিপ্ট (২৩ টি অক্ষর)

পাইথন 2.x, 77 টি অক্ষর rs

জে, 38 টি অক্ষর

ভিবিএ, 121

গণিত 59

জাপট -h, 10 বাইট

সি - (১১৪ টি অক্ষর)

জেলি , 6 বাইট

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

05 এ বি 1 ই , 10 9 বাইট

বার্লেস্ক - 28 বাইট

কে , 18 বাইট

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

কাস্তে , 9 বাইট

জাপট `-h`, 10 বাইট