영감을받은 이 . 정수, 문자열 또는 숫자 배열로 제공되는 숫자가 있습니다 (선택). 숫자 표현에 "4"가 가장 많은 밑을 찾아 해당 밑을 반환합니다.

수 결과
624 5
444 10
 68 16

제한 사항 :

• 반환 된 기준은 입력보다 크지 않아야합니다.
• abs (4) 보다 작거나 같은 숫자 는 유효한 입력으로 간주되어서는 안되므로 정의되지 않은 반환은 허용됩니다

APL ( 31 19)

이제 가능한 모든 기지를 테스트하십시오.

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

설명:

• ⍳K←⎕: 사용자 입력을 읽고 K에 저장합니다. 1부터 K까지 목록을 작성하십시오.
• {... }¨: 이들 각각에 대해 다음 기능을 실행하십시오.
• K⊤⍨K⍴⍵: K를 해당 기준으로 인코딩하여 기준 당 자릿수 (숫자) 목록을 제공합니다. K 숫자를 사용하십시오 (과대 평가되었지만 사용되지 않은 숫자는 모두 0이므로 중요하지 않습니다).
• 4=:이 중 4와 동일한 것을 확인하십시오
• +/: 이것들을 합하면, 우리는 기본 당 몇 개의 포를 알고 있습니다
• ⊃⍒:리스트가 아래쪽으로 정렬 된 경우 인덱스를 제공하므로 가장 큰 인덱스는 맨 앞에 있습니다. 이 목록의 첫 번째 항목을 가져 가십시오.

GolfScript, 30 자

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

모든 코드에서 온라인으로 코드를 테스트합니다 .

의견 : 이 솔루션은 질문의 원래 버전을 기반으로합니다. 따라서 입력보다 큰 기준을 반환 할 수 있습니다. 예를 들어, 입력 4의 경우 기준 5를 올바르게 반환합니다.이 기준은 더 이상 새 규칙에서 유효하지 않습니다.

GolfScript (23 자)

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

또는

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

또는

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

Howard의 GolfScript 버전과의 공정한 비교를 위해 stdin에서 입력을받습니다. 한 문자를 뺍니다.

Howard는 규칙이 변경되었다고 지적하고 4유효한 출력 (4보다 큰 정수)이있을 때 가능한 입력으로 제외 하는 것이 논리적이지 않습니다 . 이 경우를 처리하려면 모든 종류의 방법으로 추가 할 수있는 추가 2자가 필요합니다.

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

또는

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

몇 가지 명백한 것들입니다.

Python 2.x, 77 자

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

기수 98과 최대 98 자리의 숫자까지 작동합니다.

J, 38 자

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

용법:

   p 624
5
   p 444
10
   p 68
16

VBA, 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)

매스 매 티카 59

암호

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

위 함수에 이름을 지어 보자.

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

설명

1. Count[IntegerDigits[n,k],4]: 기재에 발로 숫자 개수 k 개의 표현 없음을 .
2. Sort 최소에서 최대 4까지의 기지.
3. 목록의 마지막 항목, 즉 가장 4가 많은 표현을 가진 기본에서 밑을 반환합니다.

특별한 숫자들

이제 다음 특수 숫자에 whichBase를 적용 해 봅시다.

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}

각 숫자를 해당 염기로 변환하면 그 숫자가 무엇인지 알 수 있습니다.

Japt -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

C-(114 자)

모든 것이 골프의 영광입니다.

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

R- 148137 자

(따라서 나머지 경쟁사와는 거리가 멀지 만 여전히)

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

@marinus 'APL 솔루션의 J 번역 :

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”과 같습니다 (예 : 기저 7의 31은“43”).

젤리 , 6 바이트

bⱮċ€4M

온라인으로 사용해보십시오!

최대 4를 제공하는 최대 N까지 "모두"를 출력합니다. 최대 또는 최소베이스를 원하면 각각 Ṁ(max) 또는 Ṃ(min)을 추가하십시오 .

작동 원리

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

05AB1E , 10 9 바이트

LBε4¢}Zk>

@Cowabunghole 덕분에 -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

Linq 273을 사용한 C #

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]);

    }
}

변수 수를 줄이고 if를? s로 변환 할 수 있는지 확인하십시오. 오 잘 ...

C # ( 482 ~ 423 바이트)

먼저 '골프'솔루션을 시도하십시오. 기본적으로 위의 VBA와 동일한 알고리즘을 사용했습니다. 아마도 변환 함수를 인라인하거나 이름을 단축하는 바이트를 절약 할 수 있습니다. 내가 말했듯이 이것은 첫 번째 시도이므로 조심하십시오.

공백으로 :

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);
    }
}

해 학적 인-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)

온라인으로 사용해보십시오.

케이 , 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

펄 6 , 44 바이트

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

온라인으로 사용해보십시오!

좋은 오래된 polymod .

껍질 , 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.