Febbre di Fibonacci#12483

Febbre di Fibonacci (Editoriale)

Poiché può arrivare fino a 10^{18}, non è possibile scorrere i numeri di Fibonacci uno alla volta. Nemmeno il metodo matriciale è adatto: per la somma delle potenze -esime servirebbe una matrice di dimensione dell'ordine di , e può arrivare fino a 10^5. Utilizziamo quindi una formula esplicita per i numeri di Fibonacci — la formula di Binet:

f_i = \frac{\varphi^i - \psi^i}{\sqrt{5}},

dove

\varphi = \frac{1 + \sqrt{5}}{2}, \quad \psi = \frac{1 - \sqrt{5}}{2}

I numeri e sono le radici dell'equazione x^2 = x + 1 e, per le formule di Viète, \varphi\psi = -1.

Sviluppo della potenza. Eleviamo la formula di Binet alla potenza e sviluppiamo con il binomio di Newton:

f_i^k = \frac{(\varphi^i - \psi^i)^k}{(\sqrt{5})^k} = \frac{1}{(\sqrt{5})^k}\sum_{j=0}^{k}(-1)^j C_k^j\, \varphi^{i(k-j)}\psi^{ij} = \frac{1}{(\sqrt{5})^k}\sum_{j=0}^{k}(-1)^j C_k^j\, \left(\varphi^{k-j}\psi^j\right)^i

Poniamo

t_j = \varphi^{k-j}\psi^j, \quad j = 0, 1, \ldots, k

Sommiamo su da a e scambiamo l'ordine di sommatoria:

S = \sum_{i=1}^{n} f_i^k = \frac{1}{(\sqrt{5})^k}\sum_{j=0}^{k}(-1)^j C_k^j \sum_{i=1}^{n} t_j^{\,i}

In questo modo la somma di termini si riduce a una somma di k + 1 termini.

Progressione geometrica. La somma interna è la somma di una progressione geometrica di ragione t = t_j:

G(t) = \sum_{i=1}^{n} t^i = \begin{cases} \dfrac{t\,(t^n - 1)}{t - 1}, & t \neq 1, \\[2mm] n, & t = 1 \end{cases}

Il caso t = 1 si presenta davvero e va gestito separatamente (altrimenti si avrebbe una divisione per zero). Ad esempio, se è divisibile per , allora per j = k / 2 si ottiene

t_{k/2} = (\varphi\psi)^{k/2} = (-1)^{k/2} = 1

La potenza t^n si calcola con l'esponenziazione binaria in tempo O(\log n), quindi ogni termine si trova rapidamente anche per n = 10^{18}.

Calcolo iterativo delle ragioni. Non è necessario elevare di nuovo e a potenza per ogni . Le ragioni consecutive sono legate dalla relazione

t_{j+1} = t_j \cdot \frac{\psi}{\varphi},

quindi basta calcolare una sola volta t_0 = \varphi^k e poi, a ogni iterazione, moltiplicare il valore corrente per .

Calcoli modulari. L'aritmetica in virgola mobile qui non è adatta: serve la risposta esatta modulo p = 10^9 + 7. Lavoreremo con numeri della forma a + b\sqrt{5}, dove e sono residui modulo . L'addizione e la moltiplicazione di tali numeri seguono le regole

(a + b\sqrt{5}) + (c + d\sqrt{5}) = (a + c) + (b + d)\sqrt{5}, \\ (a + b\sqrt{5})(c + d\sqrt{5}) = (ac + 5bd) + (ad + bc)\sqrt{5}

I numeri della forma a + b\sqrt{5} formano il campo \mathbb{Z}_p[\sqrt{5}]. In questo campo ogni elemento non nullo è invertibile:

(a + b\sqrt{5})^{-1} = \frac{a - b\sqrt{5}}{a^2 - 5b^2},

dove il denominatore a^2 - 5b^2 è diverso da zero modulo . Ciò garantisce la correttezza di tutte le divisioni nella soluzione. La divisione per nelle formule di e viene sostituita dalla moltiplicazione per 2^{-1} \bmod p = (p + 1) / 2.

L'inverso di 2. L'inverso di modulo è un numero tale che 2x \equiv 1 \pmod{p}.

Verifichiamo che x = (p + 1) / 2 soddisfa questa condizione:

Quindi (p + 1) / 2 è proprio 2^{-1} \bmod p.

La somma cercata è un numero intero, quindi nel valore finale a + b\sqrt{5} il coefficiente è necessariamente nullo e la risposta è .

Esempio

Consideriamo il primo esempio: , \boldsymbol{k = 1}. Per k = 1 la formula diventa

S = \frac{1}{\sqrt{5}}\left(\sum_{i=1}^{4}\varphi^i - \sum_{i=1}^{4}\psi^i\right)

Calcoliamo le potenze di usando la relazione \varphi^2 = \varphi + 1:

\varphi = \frac{1 + \sqrt{5}}{2}, \quad \varphi^2 = \frac{3 + \sqrt{5}}{2}, \quad \varphi^3 = \frac{4 + 2\sqrt{5}}{2}, \quad \varphi^4 = \frac{7 + 3\sqrt{5}}{2}

La loro somma è \dfrac{15 + 7\sqrt{5}}{2}. Le potenze di si ottengono sostituendo \sqrt{5} con -\sqrt{5}, quindi la loro somma è \dfrac{15 - 7\sqrt{5}}{2}. Pertanto,

S = \frac{1}{\sqrt{5}}\left(\frac{15 + 7\sqrt{5}}{2} - \frac{15 - 7\sqrt{5}}{2}\right) = \frac{7\sqrt{5}}{\sqrt{5}} = 7,

il che coincide con la risposta: 1 + 1 + 2 + 3 = 7.

Consideriamo un esempio per \boldsymbol{k = 3}. Sviluppiamo il cubo della differenza:

f_i^3 = \frac{(\varphi^i - \psi^i)^3}{(\sqrt{5})^3} = \frac{\varphi^{3i} - 3\varphi^{2i}\psi^i + 3\varphi^i\psi^{2i} - \psi^{3i}}{5\sqrt{5}}

Le ragioni delle progressioni sono (usiamo \varphi\psi = -1):

t_0 = \varphi^3, \quad t_1 = \varphi^2\psi = -\varphi, \quad t_2 = \varphi\psi^2 = -\psi, \quad t_3 = \psi^3

Allora

\sum_{i=1}^{n} f_i^3 = \frac{1}{5\sqrt{5}}\left(\sum_{i=1}^{n}(\varphi^3)^i - 3\sum_{i=1}^{n}(-\varphi)^i + 3\sum_{i=1}^{n}(-\psi)^i - \sum_{i=1}^{n}(\psi^3)^i\right)

Ciascuna delle quattro somme si calcola con la formula della progressione geometrica. Verifichiamolo per n = 3. Le potenze di sono

\varphi^3 = 2 + \sqrt{5}, \quad \varphi^6 = 9 + 4\sqrt{5}, \quad \varphi^9 = 38 + 17\sqrt{5}

Allora

\sum_{i=1}^{3}(\varphi^3)^i = \varphi^3 + \varphi^6 + \varphi^9 = (2 + \sqrt{5}) + (9 + 4\sqrt{5}) + (38 + 17\sqrt{5}) = 49 + 22\sqrt{5}, \\ \sum_{i=1}^{3}(-\varphi)^i = -\varphi + \varphi^2 - \varphi^3 = \frac{-(1 + \sqrt{5}) + (3 + \sqrt{5}) - (4 + 2\sqrt{5})}{2} = -1 - \sqrt{5}

Le somme per si ottengono sostituendo \sqrt{5} con -\sqrt{5}:

\sum_{i=1}^{3}(-\psi)^i = -1 + \sqrt{5}, \quad \sum_{i=1}^{3}(\psi^3)^i = 49 - 22\sqrt{5}

Sostituendo i valori trovati:

\sum_{i=1}^{3} f_i^3 = \frac{(49 + 22\sqrt{5}) - 3(-1 - \sqrt{5}) + 3(-1 + \sqrt{5}) - (49 - 22\sqrt{5})}{5\sqrt{5}} = \frac{50\sqrt{5}}{5\sqrt{5}} = 10

Il risultato coincide con il calcolo diretto:

f_1^3 + f_2^3 + f_3^3 = 1^3 + 1^3 + 2^3 = 1 + 1 + 8 = 10

Consideriamo un esempio per \boldsymbol{k = 4} (caso particolare). Qui

t_0 = \varphi^4, \quad t_1 = \varphi^3\psi = -\varphi^2, \quad t_2 = \varphi^2\psi^2 = 1, \quad t_3 = \varphi\psi^3 = -\psi^2, \quad t_4 = \psi^4

e

\sum_{i=1}^{n} f_i^4 = \frac{1}{25}\Biggl(\sum_{i=1}^{n}(\varphi^4)^i - 4\sum_{i=1}^{n}(-\varphi^2)^i + 6n - 4\sum_{i=1}^{n}(-\psi^2)^i + \sum_{i=1}^{n}(\psi^4)^i\Biggr)

Il termine centrale corrisponde alla ragione t_2 = 1: la formula della progressione geometrica non è applicabile e la somma 1 + 1 + \ldots + 1 vale . È proprio questo il caso gestito separatamente nel programma. Ad esempio, per n = 3 si ottiene:

f_1^4 + f_2^4 + f_3^4 = 1^4 + 1^4 + 2^4 = 1 + 1 + 16 = 18

Implementazione dell'algoritmo

Dichiariamo una costante per il modulo .

#define MOD 1000000007

Memorizzeremo i valori dei coefficienti binomiali nell'array .

vector<long long> Cnk;

Per implementare l'aritmetica nel campo Z_{MOD} [\sqrt{5}] definiamo la struttura . Questa struttura rappresenta i numeri della forma x + y \sqrt{5}.

struct Num
{
  long long x, y;
  Num(long long x = 0, long long y = 0) : x(x% MOD), y(y% MOD) {}
};

La funzione add implementa l'addizione nel campo Z_{MOD} [\sqrt{5}].

Num add(const Num& a, const Num& b)
{
  return Num((a.x + b.x) % MOD, (a.y + b.y) % MOD);
}

La funzione mult implementa la moltiplicazione nel campo Z_{MOD} [\sqrt{5}].

Num mult(const Num& a, const Num& b)
{
  return Num(
    (a.x * b.x + 5 * a.y % MOD * b.y) % MOD,
    (a.x * b.y + a.y * b.x) % MOD
  );
}

La funzione pw implementa l'esponenziazione binaria nel campo Z_{MOD} [\sqrt{5}], dove l'esponente è un numero intero.

Num pw(Num base, long long exp)
{
  Num res(1, 0);
  while (exp)
  {
    if (exp & 1) res = mult(res, base);
    base = mult(base, base);
    exp >>= 1;
  }
  return res;
}

La funzione pw implementa l'esponenziazione binaria veloce per calcolare a^b modulo .

long long pw(long long a, long long b)
{
  long long res = 1;
  a %= MOD;
  while (b)
  {
    if (b & 1) res = (res * a) % MOD;
    a = a * a % MOD;
    b >>= 1;
  }
  return res;
}

La funzione inv calcola l'inverso moltiplicativo di un elemento nel campo Z_{MOD} [\sqrt{5}].

Se

a = x + y \sqrt{5},

allora il suo inverso è dato da

a^{-1} = \frac{1}{x+y\sqrt{5}} = \frac{x-y\sqrt{5}}{x^2-5y^2}
Num inv(const Num& a)
{
  long long den = (a.x * a.x - 5 * a.y * a.y) % MOD;
  if (den < 0) den += MOD;

  long long invDen = pw(den, MOD - 2);

  return Num(
    a.x * invDen % MOD,
    (MOD - a.y) * invDen % MOD
  );
}

La funzione divide implementa la divisione nel campo Z_{MOD} [\sqrt{5}]:

\frac{a}{b} = a \cdot b^{-1}
Num divide(const Num& a, const Num& b)
{
  return mult(a, inv(b));
}

Parte principale del programma. Leggiamo i dati di input.

scanf("%lld %lld", &n, &k);

Calcoliamo i coefficienti binomiali C_k^0, C_k^1, C_k^2, ..., C_k^k e li memorizziamo nell'array . Osserviamo che

Cnk[i] = C_k^i = C_k^{i-1} \cdot \frac{k - i + 1}{i}
Cnk.resize(k + 1);
Cnk[0] = 1;
for (i = 1; i <= k; i++)
{
  Cnk[i] = Cnk[i - 1] * (k - i + 1) % MOD;
  Cnk[i] = Cnk[i] * pw(i, MOD - 2) % MOD;
}

Calcoliamo inv2 = 2^{-1} \mod MOD = (MOD + 1) / 2.

long long inv2 = (MOD + 1) / 2;

Inizializziamo le costanti: phi = \phi = \frac{1 + \sqrt{5}}{2} e psi = \psi = \frac{1 - \sqrt{5}}{2}.

Num phi(inv2, inv2);
Num psi(inv2, MOD - inv2);

Calcoliamo ratio = \psi / \phi.

Num ratio = divide(psi, phi);

Inizializziamo le costanti e nel campo Z_{MOD} [\sqrt{5}].

Num one(1, 0);
Num minus_one(MOD - 1, 0);

La risposta verrà accumulata nella variabile .

Num res(0, 0);

Inizializziamo t = \phi^k. Successivamente, nel ciclo, moltiplicheremo questo valore per , ottenendo

\phi^k, \phi^{k-1}\psi, \phi^{k-2}\psi^2, ..., \phi\psi^{k-1}, \psi^k
Num t = pw(phi, k);

Nella variabile calcoliamo la somma

\sum_{i=1}^{n} f_i^k = \frac{1}{(\sqrt{5})^k} \sum_{j=0}^{k} (-1)^j C_k^j \sum_{i=1}^{n} \left(\phi^{k-j}\psi^j\right)^i

La somma cercata contiene k + 1 termini. Pertanto eseguiamo k + 1 iterazioni.

for (j = 0; j <= k; j++)
{
  Num term;

A questo punto t = \phi^{k-j} \psi^j. Calcoliamo la somma della progressione geometrica:

term = \sum_{i=1}^{n} t^i = \frac{t(t^n-1)}{t-1}

Tuttavia il caso t = 1 va gestito separatamente, perché la formula della somma di una progressione geometrica contiene una divisione per . Per t = 1 la somma assume la forma 1 + 1 + 1 + ... + 1 ( volte) ed è uguale a .

  if (t.x == 1 && t.y == 0)
    term = Num(n % MOD, 0);
  else
  {
    Num tn = pw(t, n);
    Num num = add(tn, minus_one);     // t^n - 1
    term = mult(t, num);              // t * (t^n - 1)
    Num den = add(t, minus_one);      // t - 1
    term = divide(term, den);         // t * (t^n - 1) / (t - 1)
  }

Calcoliamo term = (-1)^j C_k^j \cdot term.

  long long coef = Cnk[j];
  if (j & 1) coef = MOD - coef;

  term.x = term.x * coef % MOD;
  term.y = term.y * coef % MOD;

Aggiungiamo il termine successivo al risultato .

  res = add(res, term);

Moltiplichiamo per , ottenendo t = \phi^{k-j-1} \psi^{j + 1}.

  t = mult(t, ratio);
}

Resta da dividere per (\sqrt{5})^k.

Num sqrt5(0, 1);
Num sqrt5k = pw(sqrt5, k);
res = divide(res, sqrt5k);

Stampiamo la risposta.

printf("%lld\n", res.x);