Thử thách:

Bạn được cấp một số cơ sở 10. Đối với mỗi cơ sở từ 10 đếm ngược đến cơ sở 2:

1. Lấy số đầu vào ban đầu làm chuỗi 10 cơ sở và xóa bất kỳ chữ số nào của số không hợp lệ cho cơ sở.
2. Giải thích chuỗi số kết quả trong cơ sở đó. Nếu điều này cho 1 hoặc 0, chấm dứt toàn bộ quá trình.
3. Đầu ra hoặc in hệ số nguyên tố lớn nhất của nó, dưới dạng số thập phân.

Đầu ra có thể là một mảng của các yếu tố chính lớn nhất.

Các trường hợp mẫu:

Đầu vào:

987654321

Đầu ra:

379721
10593529
1091
179
1493
293
19
7

Luân phiên:

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

Điều này in các yếu tố nguyên tố lớn nhất của 987654321, 87654321 ₉ = 42374116 ₁₀ , 7654321 ₈ = 2054353 ₁₀ , và cứ thế cho đến khi nó đạt 1 ₂ , khi nó dừng lại.

Bình thường, 25 byte

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

Hãy thử nó ở đây.

Pyth - 16 byte

V_S9#ePi~-z`NhNB

Hãy thử trực tuyến tại đây .

Đôi khi có một vài dòng trống trên đầu vào mà không có tất cả các chữ số, tôi sẽ biết nếu đó là một vấn đề.

MATL , 17 15 byte

9:PQ"G@ZAYfXzX>

Điều này lấy số là một chuỗi có dấu ngoặc kép, được cho phép theo mặc định.

Hãy thử trực tuyến!

Giải trình

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

Julia, 101 byte

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

Đây là một hàm đệ quy chấp nhận đầu vào dưới dạng một chuỗi và trả về một mảng.

Ung dung:

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

Toán học, 83 byte

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

Hàm ẩn danh, trả về một danh sách. Không phức tạp, phải trung thực.

Ruby, 120 byte

Hàm đệ quy, lấy đầu vào là một chuỗi.

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]}

Pyke, 19 byte, không biên dịch

DTAbPe
;1TtD=T`"":r

Hãy thử nó ở đây!

Đưa đầu vào trong dấu ngoặc kép, thoát với một lỗi.

Giải thích (dòng mới được thay thế bằng \ 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