도전:

기본 10 자리가 부여됩니다. 10부터 카운트 2까지 각베이스에 대해 :

1. 원래 입력 번호를 밑이 10 인 문자열로 취하고 밑이 유효하지 않은 숫자를 제거하십시오.
2. 해당 밑수에서 결과 숫자 문자열을 해석하십시오. 이것이 1 또는 0을 제공하면 전체 프로세스를 종료하십시오.
3. 최대 소수를 10 진수로 출력하거나 인쇄합니다.

출력은 가장 큰 주요 요소의 배열 일 수 있습니다.

샘플 사례 :

입력:

987654321

산출:

379721
10593529
1091
179
1493
293
19
7

번갈아:

[379721,10593529,1091,179,1493,293,19,7]

이것은 가장 큰 소수 인 987654321, 87654321 ₉ = 42374116 ₁₀ , 7654321 ₈ = 2054353 ₁₀ 등을 인쇄하여 1 _2에 도달 할 때까지 멈 춥니 다.

Pyth, 25 바이트

sfTm>1PiFdC,.u-N`tYKrT1zK

                       z   get input as a string
            .u      rT1    cumulative reduce over [10,9,...,2]
              -N`tY        remove one minus the number (10,9,...) from the input
          C,       K    K  pair each step along the chain with corresponding base
   m                       map over [["987654321", 10],...]:
       iFd                   apply the base-conversion (splat over i)
      P                      prime factorization, smallest to largest
    >1                       take [the last element], or [] if empty (1 or 0)
 fT                        remove the []s from 0s or 1s
s                          join the one-element arrays together

여기에서 시도하십시오.

Pyth-16 바이트

V_S9#ePi~-z`NhNB

여기에서 온라인으로 사용해보십시오 .

입력에 모든 숫자가없는 빈 줄이 몇 개있을 수 있습니다. lemme은 이것이 문제인지 알고 있습니다.

MATL , 17 15 바이트

9:PQ"G@ZAYfXzX>

이 숫자는 따옴표가있는 문자열로 사용되며 기본적으로 허용됩니다.

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

설명

9:PQ     % Push array [10, 9, ..., 2]
"        % For each number in that array. These are the bases to be considered
  G      %   Push input. Forces for input to be taken implicitly first time
  @      %   Push current base
  ZA     %   Convert from that base to base 10, discarding non-valid digits
  Yf     %   Prime factors. Gives empty for input 1, and 0 for input 0
  Xz     %   Non-zero values. Gives empty if previous result was 0, or else
         %   leaves it as it was
  X>     %   Maximum of array. For empty input gives empty
         % Implicitly end for each
         % Implicitly display. Empty arrays are not displayed

줄리아, 101 바이트

f(s,x=[],b=10)=(t=filter(c->c<=47+b,s))>"1"&&b>1?f(s,[x;maximum(keys(factor(parse(Int,t,b))))],b-1):x

입력을 문자열로 받아들이고 배열을 반환하는 재귀 함수입니다.

언 골프 드 :

function f(s, x=[], b=10)
    # Filter the string down to only the digits valid for base b
    t = filter(c -> c <= 47 + b, s)

    # If the filtered string isn't "1" or "0" and b is a valid base
    if t > "1" && b > 1
        # Call the function again, appending the maximum prime factor
        # of t in base b to the argument x and decrementing the base
        f(s, [x; maximum(keys(factor(parse(Int, t, b))))], b-1)
    else
        # Otherwise return the array
        x
    end
end

수학, 83 바이트

FactorInteger[Select[IntegerDigits@#,#<a&]~FromDigits~a][[-1,1]]~Table~{a,10,2,-1}&

익명 함수는 목록을 반환합니다. 정직하게 그렇게 복잡하지 않습니다.

루비, 120 바이트

재귀 함수는 입력을 문자열로 가져옵니다.

f=->n,b=2{require'prime';i=n.tr([*b.to_s..?9].join,"").to_i(b)
b>10?[]:f[n,b+1]+[*i>1?Prime.prime_division(i).max[0]:p]}

파이크, 19 바이트, 비경쟁

DTAbPe
;1TtD=T`"":r

여기 사용해보십시오!

따옴표로 입력하고 오류와 함께 종료합니다.

설명 (줄 바꾸기가 \ n으로 바)) :

D                    - Duplicate the first item on the stack (And get it from input first time)
 TAb                 - Convert input to base (whatever's in T, 10 default)
    Pe               - get the highest prime factor of the number
      \n;1           - print it out and get rid of it
          TtD=T      - T -= 1
               `"":  - input = input.replace(str(t), "")
                   r - GOTO start