Простые числа в разных основах


17

Вызов:

Вам дают базовый номер 10. Для каждой базы от 10 в обратном порядке до базы 2:

  1. Возьмите исходный входной номер в качестве базовой 10-й строки и удалите все цифры номера, которые являются недопустимыми для базовой.
  2. Интерпретировать полученную числовую строку в этой базе. Если это дает 1 или 0, завершите весь процесс.
  3. Выведите или выведите его наибольший простой множитель в виде десятичного числа.

Выход может быть массивом из самых больших простых факторов.

Примеры случаев:

Входные данные:

987654321

Выход:

379721
10593529
1091
179
1493
293
19
7

С другой стороны:

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

Это печатает наибольшие простые множители 987654321, 87654321 9 = 42374116 10 , 7654321 8 = 2054353 10 и так далее, пока не достигнет 1 2 , где он останавливается.


2
Я не уверен в процессе. Я мог бы понять это из примера, но у вас должны быть четкие инструкции, так что это не нужно. Таким образом, мы конвертируем в нижнюю базу, удаляем недопустимые цифры, а затем выводим наибольший простой множитель? На какой основе мы печатаем этот фактор? Делаем ли мы тогда тот же процесс с наибольшим основным фактором и базовым с меньшим? Или мы делаем это с помощью числа, которое мы учли? Начнем с 10 или 9?
xnor

Добро пожаловать на сайт!
DJMcMayhem

2
Я попытался переписать задачу, чтобы сделать ее более понятной. Я надеюсь, что это то, что вы хотели. Если нет, смело меняйте его.
xnor

4
Я считаю, что шаг с наибольшим основным множителем довольно сильно связан с основной операцией - базовое преобразование. Многие языки просто делают это напрямую с помощью встроенной первичной факторизации, а остальные в основном должны выполнять вторую отдельную задачу. Базовое преобразование также встроено или перебрано. Когда операции становятся встроенными, вы ожидаете, что они станут хорошей площадкой для игры в гольф, и на самом деле факторизация и базовая конверсия таковы. Тем не менее, хорошо для первого испытания, но о вещах нужно помнить в следующий раз.
xnor

3
Есть ли шанс, что это было вдохновлено Google Code Jam?
Мего

Ответы:


6

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

Попробуй это здесь.



4

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

Этот выводит 0 в конце для входов, не заканчивающихся в 1.
poi830

Для входов «98765432» и «98765» (случайные примеры) выводятся правильные числа, затем 0 перед завершением.
poi830

1
@ poi830 Решено сейчас
Луис Мендо

1

Юлия, 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

Это рекурсивная функция, которая принимает входные данные в виде строки и возвращает массив.

Ungolfed:

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

1

Mathematica, 83 байта

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

Анонимная функция, возвращает список. Не так сложно, если честно.


0

Рубин, 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]}

1
Вы можете сохранить несколько байтов, используя -rprimeфлаг командной строки вместо require.
Ручка

-rprimeу меня почему-то не работает ...
Value Ink

0

Пайк, 19 байт, неконкурентный

(добавить функцию splat_node)
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
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.