Велика кількість: Ультрафакторіали


25

Це питання було перероблено, будь ласка, перечитайте його.

Ультрафакторіали

Ультрафакторіали - це послідовність чисел, яку можна створити за допомогою наступної функції:

a(n) = n! ^ n!

Отримані значення зростають надзвичайно швидко. Бічна примітка: Це запис A046882 в OEIS. Також пов'язані гіперфактори, ще досить величезна, але трохи менша послідовність: A002109

Ваше завдання

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

Вхідні дані

Ваша програма може взяти лише один вхід: число, яке нагадує останній (n) ультрафакторний, який потрібно додати до суми. Введене значення має бути позитивним або 0.

Вихідні дані

Ваш результат залежить тільки від вас, доки десь є видима сума чисел.

Правила

  • Ви можете припустити всі цілі числа, отже, цілі введення та використовуючи цілі петлі підрахунку для отримання певних результатів.

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

Input: -1
Output: Any kind of error (because -1! is undefined), or no handling at all

Input: 0
Output: 1

Input: 1
Output: 2

Input: 2
Output: 6

Input: 3
Output: 46662

Виклик

Це , тому відповідь з найменшою довжиною в байтах виграє!


2
Чи потрібно розглядати довільно великі цілі числа? Або достатньо обробити найбільший, який doubleпідтримує тип даних за замовчуванням для мови (наприклад )?
Луїс Мендо

1
Код конверсії та вихід залежить від вас, хоча вхід буде цілим числом. @LuisMendo
devRicher

3
Зміна правил після того, як багато людей відповіли, теж не приємно. Будь ласка, використовуйте пісочницю, як радиться, коли ви хочете подати виклик.
недолік

Відповіді:




8

Желе, 6 байт

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

‘Ḷ!*`S // Main link: Argument n (integer)
‘      // Take n, increment by 1
 Ḷ     // Range from [0..n]
  !    // Calculates factorial for each [0..n]
   *`  // Raises each [0!..n!] to the power of itself
     S // Sum the resulting array

Є атом приросту , тому R!*`S‘зберігає байт (я пішов за ‘Ḷ!*`S).
Джонатан Аллан

1
Я насправді був у середині редагування, перш ніж побачив ваш коментар: P
Ксандерхалл

Я бачив і це, гарна робота.
Джонатан Аллан

6

R - 34 30 байт

x=factorial(0:scan());sum(x^x)

векторизація приємна

редагувати: збережено 4 байти завдяки @MickyT


1
ви можете трохи скоротити його, перемістивши сканування на x=factorial(0:scan());sum(x^x)
фабрику

4

J, 15 12 байт

Збережено 3 байти за милі!

1#.i.^~@!@,]

Пояснення

1#.i.^~@!@,]  input: y
          ,]  append y to list...
   i.         [0, y)
        !@    factorial each member
     ^~@      raise each to itself
1#.           perform summation

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

   f =: 1#.i.^~@!@,]
   (,. f"0) i.4
0     1
1     2
2     6
3 46662
   (,. f"0) i.6
0           1
1           2
2           6
3       46662
4  1.33374e33
5 3.17504e249

   echo"1] _90]\":f 6x
190281878633201797429473437859705759836595323046380462211756876146775419721154680216391116
383660154937824558291984804764687140715927099993629348072943551413397410741069111169123658
220861477766905534108349401724389611558474171816216027733366046875815097164882588181826712
426524007417126023680300953790645455254723360874298622143752208989152655091222094594342956
890526202094068774356589887610542642450567071133028553816930267473112879050178461179814798
008667622200592591542432361632955904924276854403585221477449385731481108378608652069211835
448555831555820393949831627809528917004144455150642180845929102272754394116905511650997561
389917179995442329297103257850695109383021080317204810134810158543814178231002423431556657
737982683316707709406053569620116083909440177269311235173671447595521339849978144493268530
780365729831790064477684808893338190825461650933123545889305523546630119181308584140916288
912561260392366609493077363059677222110731132927863243720195975705161197786520981159422881
575250362836779593393897664990291828935858671453835924398316498051705698128484688847592380
831018330553151156822298060174230201841578757499203145955456593022852288527824268115043999
037373974753999860179933517198889966353093307592136928730661270863274130109304971274296438
682725017433937245229524959283895094220677649257613358344409711070780405579776000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
000000003175042373780336892901667920556557182493442088021222004926225128381629943118937129
098831435345716937405655305190657814877412786176000000000000000000000000000000000000000000
000000000000000000000000000000000000000000001333735776850284124449081472890438

1#.i.^~@!@,]голить ще кілька байтів.
миль

@miles О, здорово. Я не знав, чи 1#.виконує підсумовування. Якщо це вже не підказка, обов’язково додайте його!
Conor O'Brien

4

Perl 6 , 41 38 37 байт

{[+] ([**] [*](1..$_)xx 2 for 0..$_)}

{[+] ([**] ([*] 1..$_)xx 2 for 0..$_)}

{sum (($_**$_ with [*] 1..$_) for 0..$_)}

( Спробуйте в Інтернеті. )

Пояснення:

  • for 0 .. $_: Для кожного цілого числа від 0 до входу,
  • [*](1 .. $_) xx 2: обчислюємо факториал двічі,
  • [**] ...: і експоненцію двох однакових факторіалів.
  • [+] ...: Потім підсумовуйте всі результати циклу.

Завдяки b2gills за 1 байт.


([*] …)можна записати як [*](…)збереження байта
Бред Гілберт b2gills

3

Чеддар , 44 37 байт

n->(0|>n=>(i,a=(1|>i)/(*))->a**a)/(+)

Дякую козам за оператора скорочення! Я думаю, було б непогано додати факторіал

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

Безумовно

n -> ( 0|>n => (i, a=(1|>i) / (*)) -> a ** a) / (+)

Пояснення

Примітка: трохи застаріла, виправить

n ->           // Input
( 0 |> n) =>   // Run below for each of [0, n]
    (              
      i,           // Input
      a =          // Let's keep n! in this variable `a`
         (1 |> i)  // Range from [1, n]
         / (*)     // Multiply all the items of that range
                   // `/` is reduce `(*)` is multiplication function
    ) ->
    a ** a         // A to the power of A
) / (+)        // Sum all results

Чи не слава богу тут трохи самонадійний? : D
недолік

@flawr гаразд. Виправлено: P
Пуховик

2
Ха-ха, краще, мабуть, одне з небагатьох законних звичаїв кози, яких ми тут бачили оглядно :)
недолік


3

PHP, 49 байт

for($f=1;$i<=$argv[1];$f*=++$i)$s+=$f**$f;echo$s;

INFдля n>564-бітної системи.

для великої кількості, 70 байт

while($i<=$argv[1])$s=gmp_add($s,gmp_pow($f=gmp_fac($i++),$f));echo$s;

вимагає компіляції PHP --with-gmp


3

Рубі, 64 66 байт

->n{(o=(1..n).map{|i|a=(1..i).inject(:*);a**a}.inject(:+))?o+1:1}

Додано два символи для непоправної помилки (буде розглядатися можливість скорочення викликів для ін'єкцій пізніше).


Я не гарний з Рубі, але ти не міг це виправити a=(0..i)замість a=(1..i)?
Timtech

@Timtech Очікуйте, що введення нуля в множення нікому не принесе користі :(
DepressionDaniel

Правильно, я думаю, що додавання +1- найкраще рішення.
Timtech

@GB Застосовується тривіальне виправлення для n = 0 випадків.
ДепресіяДаніель


2

Haskell, 67 56 байт

Зауважте, що це подання було зроблено до того, як були усунені правила, які забороняли вбудовувати.

p=product
a n=sum[p[x|x<-[p[1..i]],_<-[1..x]]|i<-[0..n]]

Наприклад:

*Main> a 0
1
*Main> a 1
2
*Main> a 2
6
*Main> a 3
46662
*Main> a 4
1333735776850284124449081472890438
*Main> a 5
3175042373780336892901667920556557182493442088021222004926225128381629943118937129098831435345716937405655305190657814877412786176000000000000000000000000000000000000000000000000000000000000000000000000000000000000001333735776850284124449081472890438



2

R, 42 35 байт

Тепер, коли я правильно прочитав питання, я вклав суму.

Для цього потрібна бібліотека gmp (множинна арифметична точність). Це дозволяє обробляти велику кількість. Інакше все, що перевищує 5 повернень INF.

Це реалізується як неназвана функція, щоб уникнути as.characterнеобхідної для виводу в STDOUT черезcat

function(x)sum((i=gmp::factorialZ(0:x))^i)

Приклад виконання

> f <- function(x)sum((i=gmp::factorialZ(0:x))^i)
> f(5)
Big Integer ('bigz') :
[1] 3175042373780336892901667920556557182493442088021222004926225128381629943118937129098831435345716937405655305190657814877412786176000000000000000000000000000000000000000000000000000000000000000000000000000000000000001333735776850284124449081472890438
> f(6)
Big Integer ('bigz') :
[1] 190281878633201797429473437859705759836595323046380462211756876146775419721154680216391116383660154937824558291984804764687140715927099993629348072943551413397410741069111169123658220861477766905534108349401724389611558474171816216027733366046875815097164882588181826712426524007417126023680300953790645455254723360874298622143752208989152655091222094594342956890526202094068774356589887610542642450567071133028553816930267473112879050178461179814798008667622200592591542432361632955904924276854403585221477449385731481108378608652069211835448555831555820393949831627809528917004144455150642180845929102272754394116905511650997561389917179995442329297103257850695109383021080317204810134810158543814178231002423431556657737982683316707709406053569620116083909440177269311235173671447595521339849978144493268530780365729831790064477684808893338190825461650933123545889305523546630119181308584140916288912561260392366609493077363059677222110731132927863243720195975705161197786520981159422881575250362836779593393897664990291828935858671453835924398316498051705698128484688847592380831018330553151156822298060174230201841578757499203145955456593022852288527824268115043999037373974753999860179933517198889966353093307592136928730661270863274130109304971274296438682725017433937245229524959283895094220677649257613358344409711070780405579776000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003175042373780336892901667920556557182493442088021222004926225128381629943118937129098831435345716937405655305190657814877412786176000000000000000000000000000000000000000000000000000000000000000000000000000000000000001333735776850284124449081472890438

f (9) буде працювати досить добре, але заповнює ряд сторінок. Кілька сотень або близько 2,017 528 цифр. f (10) вбиває сеанс на моїй машині.


Я думаю, що причина його інша, ніж інші відповіді, полягає в тому, що ви повинні повернути суму від 0! ^ 0! до N! ^ N !. Але це легко змінити, змінивши на factorialZ(0:x). Чи є конкретна причина не використовувати base::factorial()функцію?
JAD

1
@JarkoDubbeldam Дякую за улов. Потрібно краще прочитати питання :). Я використовую gmp::factorialZдля обробки великих цифр.
MickyT

2

JavaScript (ES7), 38 байт

f=(n,a=1,i=0)=>i>n?0:a**a+f(n,a*++i,i)

@ fəˈnɛtɪk Вибачте, сила звички.
Ніл

1

Пайк, 11 байт

hFSBD]1*B)s

Спробуйте тут!

hF          -  for i in range (0, input+1)
  SB        -     product(range(1, i+1)
    D]1*    -    [^]*^
        B   -   product(^)
          s - sum(^)

Забавний факт: у Pyke немає вбудованої факториальної бази, оскільки SBце лише 2 байти!


1

Haskell, 43 байти

b n|f<-product[1..n]=f^f
a n=sum$b<$>[0..n]

Приклад використання: a 3->46662 .

bобчислює один ultrafactorial і aпідсумовує все ultrafactorials від 0до n.



1

Пітон 2, 82 байти

x=input()
s=0
for z in range(x):
 t=1
 for i in range(z+1):t*=i+1
 s+=t**t
print s

Ви спробували підсумувати розуміння списку?
Рікінг

1
Ви використовували x лише один раз, тож ви могли б скористатись range(input())цим байтом
Джордж

1

Диво , 33 байти

@sum(->@^ f\prod rng1#0f)rng0+1#0

Використання:

(@sum(->@^ f\prod rng1#0f)rng0+1#0)3

Пояснення

rng0+1#0

Створіть діапазон включення від 0 до введення.

->@^ f\prod rng1#0f

Відображайте діапазон за допомогою функції, яка 1) обчислює факторіал елемента, 2) зберігає результат fі 3) обчислює f^f.

sum

Сума.


1

TI-Basic, 13 байт

sum(seq(A!^A!,A,0,Ans

PS Ви можете замінити sum(seq(з , Σ(якщо у вас є нова операційна система (без змін розміру).


1

Мова GameMaker, 97 байт

Основна функція (52 байти)

for(a=0;a<=argument0;a++)b+=power(f(a),f(a))return b

Функція f (45 байт)

a=argument0 if!a return 1else return a*f(a--)

1

Рубін 2, 41 байт

->n{(1..n).reduce(s=1){|t,i|t+(s*=i)**s}}

Дивовижно! Дуже розумний спосіб його ініціалізації sодночасно з передачею його як початкове tзначення для зменшення / введення.
ДепресіяДаніель

Можна взяти в гольф ще одного персонажа ->n{((t=s=1)..n).map{|i|t+=(s*=i)**s};t}або->n{t=s=1;(1..n).map{|i|t+=(s*=i)**s};t}
DepressionDaniel

1

Діалог APL, 10 байт

(+/!*!)0,⍳

Як?

діапазон введення

0, передує 0

!*! застосувати x! ^ x!

+/ сума


*і !є скалярними функціями, тому використовуйте масиви: +/*⍨!0,⍳⎕або (+/!*!)0,⍳якщо ви дійсно хочете поїзд.
Адам

0

Математика, 19 байт

Sum[a!^a!,{a,0,#}]&

Анонімна функція. Приймає число в якості введення та повертає число як вихід.


1
Ми не можемо використовувати побудовані фактори або експоненції.
Пуховик


0

C #, 79 байт з консольним виходом

n=>{int i=1,j=1;for(;i<=n;i++)j*=i;System.Console.Write(System.Math.Pow(j,j));}

C #, 64 байти як повернення

n=>{int i=1,j=1;for(;i<=n;i++)j*=i;return System.Math.Pow(j,j);}

0

Насправді 11 10 байт

1+r`!;ⁿ`MΣ

Як це працює

Program takes implicit input, implicit print at EOF
1+          Add one to the input n+1
  r         Create a range (0,1,..,n)
   `   `    Create a function between the two `
    !       Factorialize the current stack item
     ;      Duplicate the current stack item
      ⁿ     Power a,b from the current stack item
         M  Map the function across the stack top item
          Σ Sum the stack together

0

Ракетка 54 байти

(for/sum((i(+ 1 n)))(let((t(factorial i)))(expt t t)))

Безголівки:

#lang racket
(require math)

(define (f n)
  (for/sum ((i (+ 1 n)))
    (let ((t (factorial i)))
      (expt t t))))

Тестування:

(f -1)
(f 0)
(f 1)
(f 2)
(f 3)

Вихід:

0
1
2
6
46662
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.