Простые числа и цифры

11

Это не имеет практической цели, но это может быть весело для гольфа.

Вызов

Учитывая число n ,

  1. Подсчитайте количество каждой цифры в n и добавьте 1 к каждому счету
  2. Возьмем простую факторизацию n
  3. Подсчитайте количество каждой цифры в простой факторизации n , не включая повторяющиеся простые числа
  4. Создайте новый список, умножив вместе соответствующие элементы списков из шагов 1 и 3
  5. Вернуть сумму этого списка

Например, 121 имеет два 1s и a 2, поэтому вы получите следующий список из шага 1:

0 1 2 3 4 5 6 7 8 9
1 3 2 1 1 1 1 1 1 1

Первичная факторизация 121 равна 11 2 , что дает следующий список для шага 3:

0 1 2 3 4 5 6 7 8 9
0 2 0 0 0 0 0 0 0 0

Обратите внимание, как мы не посчитали показатель. Они умножаются вместе, чтобы получить:

0 1 2 3 4 5 6 7 8 9
0 6 0 0 0 0 0 0 0 0

И сумма этого списка составляет 6.

Контрольные примеры

1 -> 0
2 -> 2
3 -> 2
4 -> 1
5 -> 2
10 -> 2
13 -> 4
121 -> 6

Заметки

  • Стандартные лазейки запрещены.
  • Ввод и вывод могут быть в любом разумном формате.
  • Вы должны оставить единицы (или нули для шага 3) в списке для цифр, которые не появились в числе.
  • Это , поэтому выигрывает самое короткое решение в байтах.
RamenChef
источник
Делает ли 667 (= 23 * 29) две 2, одну 3 и одну 9 на шаге 3?
Джонатан Аллан
@JonathanAllan Да.
RamenChef
2
@ wizzwizz4 232792560-> [2,1,4,2,1,2,2,2,1,2](шаг 1); 2*2*2*2*3*3*5*7*14*17*19(шаг 2); так [0,5,1,2,0,1,0,2,0,1](шаг 3); затем [0,5,4,4,0,2,0,4,0,2](шаг 4); и, следовательно, должен выводить 21.
Джонатан Аллан
@JonathanAllan Было бы хорошо, если бы я мог считать. : - /
wizzwizz4

Ответы:

2

Желе , 16 байт

ṾċЀØD
ÆfQÇ×Ç‘$S

Попробуйте онлайн!

Разрабатывается независимо от других желейных растворов и отличается от них .

объяснение

Я собираюсь использовать 242в качестве примера ввода.

ṾċЀØD     Helper link
Ṿ          Uneval. In this case, turns it's argument into a string. 
           242Ṿ → ['2','4','2']. [2,11] → ['2', ',', '1', '1']. The ',' won't end up doing anything.
    ØD     Digits: ['0','1',...,'9']
 ċЀ       Count the occurrence of €ach digit in the result of Ṿ

ÆfQÇ×Ç‘$S  Main link. Argument 242
Æf         Prime factors that multiply to 242 → [2,11,11]
  Q        Unique elements → [2,11]
   Ç       Apply helper link to this list → [0,2,1,0,0,0,0,0,0,0]
     Ç‘$   Apply helper link to 242 then add 1 to each element → [1,1,3,1,2,1,1,1,1,1]
    ×      Multiply the two lists element-wise → [0,2,3,0,0,0,0,0,0,0]
        S  Sum of the product → 5
dylnan
источник
4

Желе ,  18  17 байт

-1 байт благодаря caird coinheringaahing & H.PWiz (избегайте спаривания двух векторов)

DF‘ċЀ⁵
ÆfQÇæ.Ç‘$

Монадическая ссылка, принимающая положительное целое число и возвращающая неотрицательное целое число.

Попробуйте онлайн!

Как?

DF‘ċЀ⁵ - Link 1, digitalCount: number(s)    e.g. [13,17]
D       - to decimal list (vectorises)            [[1,3],[1,7]]
 F      - flatten                                 [1,3,1,7]
  ‘     - increment (vectorises)                  [2,4,2,8]
      ⁵ - literal ten                             10
    Ѐ  - map across              (implicit range [1,2,3,4,5,6,7,8,9,10])
   ċ    - count                                   [0,2,0,1,0,0,0,1,0,0]

ÆfQÇæ.Ç‘$ - Main link: positive integer, n   e.g. 11999
        $ - last two links as a monad:
      Ç   -   call the last link (1) as a monad   [0,2,0,0,0,0,0,0,0,3]
       ‘  -   increment (vectorises)              [1,3,1,1,1,1,1,1,1,4]
Æf        - prime factorisation                   [13,13,71]
  Q       - deduplicate                           [13,17]
   Ç      - call the last link (1) as a monad     [0,2,0,1,0,0,0,1,0,0]
    æ.    - dot product                           8
Джонатан Аллан
источник
17 байт
caird coinheringaahing
Или используйте точечное произведение
H.PWiz
2

APL (Dyalog) , 43 41 байт

CY'dfns'
+/×/+/¨⎕D∘.=⍕¨(⎕D,r)(∪3pco r←⎕)

Попробуйте онлайн!

Как?

r←⎕ - вход в r

3pco - главные факторы

- уникальный

⎕D,r- rс добавлением0-9

⍕¨ - отформатировать коэффициенты и предварительно выбранный диапазон

⎕D∘.= - декартово сравнение с каждым элементом строки 0123456789

+/¨ - суммировать каждую строку двух сформированных таблиц

×/ - умножить два вектора слева

+/ - сумма последнего вектора, сформированного

Уриэль
источник
1

Python 2 , 136 127 байт

lambda a:sum(''.join(u(a)).count(`i`)*-~`a`.count(`i`)for i in range(10))
u=lambda a:[`j`for j in range(2,a)if a%j<1>len(u(j))]

Попробуйте онлайн!

кредиты

Нил
источник
127 байт
г-н Xcoder
@ Mr.Xcoder Обновлено, спасибо за то, что показали мне использование, -~я всегда был немного смущен этим. И мне нужно начать вспоминать эту <1вещь. Спасибо за помощь.
Нил
Вы можете взглянуть на это для -~и связанные вещи.
г-н Xcoder