Divinacci ( OEIS )
Execute a sequência de Fibonacci, mas em vez de usar:
f(n) = f(n-1)+f(n-2)
Usar:
f(n) = sum(divisors(f(n-1))) + sum(divisors(f(n-2)))
Para uma entrada de n
, produza o enésimo termo, seu programa deve ter apenas 1 entrada.
Primeiros 14 termos (indexado 0, você pode indexar 1; indicar o que você usou):
0 | 0 # Initial | []
1 | 1 # Initial | [1] => 1
2 | 1 # [] + [1] | [1] => 1
3 | 2 # [1] + [1] | [1,2] => 3
4 | 4 # [1] + [1,2] | [1,2,4] => 7
5 | 10 # [1,2] + [1,2,4] | [1,2,5,10] => 18
6 | 25 # [1,2,4] + [1,2,5,10] | [1,5,25] => 31
7 | 49 # [1,2,5,10] + [1,5,25] | [1,7,49] => 57
8 | 88 # [1,5,25] + [1,7,49] | [1, 2, 4, 8, 11, 22, 44, 88] => 180
9 | 237 # [1,7,49] + [180] | [1, 3, 79, 237] => 320
10 | 500 # [180] + [320] | [1, 2, 4, 5, 10, 20, 25, 50, 100, 125, 250, 500] => 1092
11 | 1412 # [320] + [1092] | [1, 2, 4, 353, 706, 1412] => 2478
12 | 3570 # [1092] + [2478] | [1, 2, 3, 5, 6, 7, 10, 14, 15, 17, 21, 30, 34, 35, 42, 51, 70, 85, 102, 105, 119, 170, 210, 238, 255, 357, 510, 595, 714, 1190, 1785, 3570] => 10368
13 | 12846 # [2478] + [10368] | [1, 2, 3, 6, 2141, 4282, 6423, 12846] => 25704
Etc...
Você pode optar por incluir ou não o 0. líder. Para aqueles que o fazem: os divisores de 0
são []
para o objetivo deste desafio.
São as vitórias mais baixas em contagem de bytes do code-golf ...
Infinity
se desejar.Respostas:
05AB1E , 9 bytes
Experimente online!
Explicação
fonte
Mathematica,
4540 bytesFunções relacionadas divisor do Mathematica
Divisors
,DivisorSum
eDivisorSigma
estão todos indefinido para n = 0 (com razão), então partimosf(1) = f(2) = 1
e não suportam entrada0
.Defini-lo como operador em vez de usar uma função sem nome parece ter dois bytes a mais:
fonte
±
1 byte em uma codificação suportada pelo Mathematica.$CharacterEncoding
em máquinas Windows éWindowsANSI
, ou seja, CP 1252.)Perl 6 , 58 bytes
Experimente online!
fonte
Haskell , 55 bytes
Experimente online!
Um indexado.
fonte
Python 2 , 76 bytes
Experimente online!
Ridiculamente lento.
fonte
MATL,
1615 bytesEsta solução usa indexação baseada em 0.
Experimente no MATL Online
Explicação
fonte
Geléia ,
109 bytesExperimente online!
Agradecimentos a Dennis por -1.
fonte
0
estava implícito?¡
e outros apenas tentarão discutir de qualquer lugar, mesmo com umƓ
? Isso é bastante inesperado ...¡
et al. pegue o último argumento da linha de comando e, se não houver, lê uma linha de STDIN.Python 3 ,
888381 bytesExperimente online!
Exclui o
0
fonte
Haskell ,
6460 bytesExperimente online!
fonte
PHP , 97 bytes
Experimente online!
PHP , 101 bytes
Experimente online!
fonte
Pari / GP , 39 bytes
Com base na resposta Mathematica de Martin Ender .
Experimente online!
fonte
R, 81 bytes
Indexado em 1 e exclui o 0 no início da sequência. Esse zero me deu muitos problemas para implementar, porque o builtin
numbers::divisors
não lida bem com isso.O restante é uma versão modificada da função recursiva padrão que implementa a sequência de fibonacci.
fonte