Сьогодні в моєму класі статистики я виявив, що деякі фактичні факти можуть бути спрощені при множенні разом! Наприклад:5! * 3! = 5! *3*2 = 5! *6 = 6!

Ваша робота:

Враховуючи рядок, що містить лише арабські цифри та знаки оклику, спростіть мою фабрику до її найкоротшого можливого рядка, щонайменше, кількість байтів для вашої мови, код стилю гольфу.

Вхідні дані

Рядок, що містить лише арабські цифри та знаки оклику. Фабрики для введення не будуть більшими за 200! Фактори не матимуть більше одного фактора на число. Введення може сприйматися як список цілих чисел.

Вихідні дані

Можливо скорочений рядок, який має еквівалентне значення на вході. Порядок - це неважливо. Факторні позначення є обов'язковими, але вам не потрібно використовувати більше одного факторіального символу на номер.

Тестові справи

In: 3!2!2!  
Out: 4! 

In 2!3!2!0! 
Out: 4! 

In: 7!2!2!7!2!2!2!2! 
Out: 8!8! 

In: 23!3!2!2! 
Out: 24!  
Also: 4!!

In: 23!3!2!2!2! 
Out: 24!2!

In: 127!2!2!2!2!2!2!2! 
Out: 128!

In: 32!56!29!128!  
Out: 29!32!56!128!

Удачі

Желе ,  17  18 байт

!P
ÇṗLÇ⁼¥ÐfÇḢḟ1ȯ0F

Монадічне посилання, яке приймає та повертає список номерів (приклеюється до одного параметра на кожен номер)

Спробуйте в Інтернеті!

Як?

Гольф (хоча і незалежно написана) версія рішення Pietu1998.

!P - Link 1, product of factorials: list
!  - factorial (vectorises)
 P - product

ÇṗLÇ⁼¥ÐfÇḢḟ1ȯ0F - Main link: list                       e.g. [3,2,2]
Ç               - call the last link (1) as a monad           24
  L             - length                                      3
 ṗ              - Cartesian power      [[1,1,1],[1,1,2],...,[1,1,24],...,[24,24,24]]
        Ç       - call the last link (1) as a monad           24
      Ðf        - filter keep if:
     ¥          -   last two links as a dyad:
   Ç            -     call the last link (1) as a monad     [1,2,...,24!,...,24!^3]
    ⁼           -     equal?
         Ḣ      - head
          ḟ1    - filter out any ones
            ȯ0  - or with zero (for the empty list case)
              F - flatten (to cater for the fact that zero is not yet a list)

Желе , 19 байт

,!P€E
SṗLçÐfµḢḟ1ȯ1F

Спробуйте в Інтернеті!

Швидкий і брудний. Дуже повільно, навіть23!2!3!2! тестовий випадок - розтяжка. I / O як списки цілих чисел.

Пояснення

,!P€E    Helper link. Arguments: attempt, original
,        Make the array [attempt, original].
         Example: [[1,1,1,4], [2,3,2,0]]
 !       Take the factorial of each item.
         Example: [[1,1,1,24], [2,6,2,1]]
  P€     Take the product of each sublist.
         Example: [24, 24]
    E    Check if the values are equal.

SṗLçÐfµḢḟ1ȯ1F   Main link. Arguments: original
S               Find the sum S of the integers in the input.
  L             Find the number N of integers in the input.
 ṗ              Generate all lists containing N integers from 1 to S.
   çÐf          Take the lists whose factorial-product is the same as the original.
       Ḣ        Take the first match. This is the one with the most ones.
        ḟ1      Remove any ones.
          ȯ1    If there were only ones, return a one instead.
            F   Turn into a list if needed.

Чистота , 397 ... 317 байт

import StdEnv,StdLib
c=length
f c m=sortBy c o flatten o map m
%n=f(>)@[2..n]
@1=[]
@n#f=[i\\i<-[2..n]|n/i*i==n&&and[i/j*j<i\\j<-[2..i-1]]]
=f++ @(n/prod f)
?l=group(f(>)%l)
$l=hd(f(\a b=c a<c b)(~(?l))[0..sum l])
~[]_=[[]]
~i n=[[m:k]\\m<-take n[hd(i!!0++[0])..],k<- ~[drop(c a)b\\a<-group(%m)&b<-i|b>a]n|i== ?[m:k]]

Спробуйте в Інтернеті!

Це приймає [Int], визначає основні фактори результату і зменшує над чинниками, щоб знайти найменше представлення, використовуючи найбільший коефіцієнт на будь-якій стадії як базове значення для наступного факторіального терміна. Деякі тестові випадки на TIO не завершаться, але це досить * швидкий, і може запустити їх за 3 хвилини на середньому діапазоні ноутбука.

* для O((prod(N)!)^sum(N))алгоритму складності

> <> , 66 байт

1}:?\~l1=?v{!
-:?!\:{*}1
v?( 4:{/}1<o"!"n-1
{:,} :{/?%}:+1
\:1-?n;

Спробуйте в Інтернеті!

Не ефективний, не знаходить найменшої струни, і перекладач не дуже добре справляється з надзвичайно великою кількістю. Але принаймні я спробував? Приймає введення як список чисел через-v прапор.

Спочатку він обчислює значення вхідних даних шляхом фабрикалізації кожного числа та множення їх разом. Потім він знаходить найбільшу фабрику, яка чітко ділиться на загальну і виводить її. Повторюйте, доки він не отримає простий (який він виводить) або 1 та не завершить програму. Через це він іноді не знаходить найкоротшого представлення числа, наприклад, тестовий випадок 7!2!2!7!2!2!2!2!повертається 10!224замість того, 8!8!що він знаходить, що загальна сума ділиться на 10! спочатку.

Ruby , 240 237 233 байт

Це неймовірно неефективно

Приймає масив ints як вхідний

Повертає рядок і вибирає найкоротший варіант між, скажімо '720!', '6!!'і'3!!!'

->i{f=->n{n>0?n*f[n-1]:1}
s=->a{eval a.map{|i|f[i]}*?*}
r=->e,a=[2]{e==s[a]?a:s[a]<=e&&(r[e,a[0..-2]+[a[-1]+1]]||r[e,a+[2]])}
j=->v{v.join(?!)+?!}
u=r[s[i]]
while j[g=u.map{|i|i&&r[i]?[r[i],p]:i}.flatten].size<j[u].size;u=g;end
j[u]}

Спробуйте в Інтернеті!