Ricorsione. Caspita! che contorsione?

[kicco]

Poi cambio il titolo! (ho aggiunto Ricorsione)
Stavo giocando con la successione di Fibonacci e nel wiki ho trovato:

Codice: [Seleziona]

Public Sub Main()

  Print "Fibonacci(28) = "; Fibonacci(28)

End

Private Function Fibonacci(n As Integer) As Integer

  If (n < 2) Then
    Return n
  Else
    Return Fibonacci(n - 2) + Fibonacci(n - 1)
  Endif

End

Ho avuto un attimo di smarrimento...
La funzione Fibonacci richiama se stessa?

Codice: [Seleziona]

    Return Fibonacci(n - 2) + Fibonacci(n - 1)

...o il Vermentino di Sardegna con la pasta allo scoglio di cena che mi ha colpito? 
 
 

[Top Fuel]

Si chiama ricorsione.
E' una tecnica di programmazione in cui una funzione richiama se stessa. Non è il massimo dell'efficenza, ma in alcuni casi è indispensabile.
Per approfondire: https://it.wikipedia.org/wiki/Algoritmo_ricorsivo

[vuott]

Come ha già chiarito Top Fuel, si è in presenza di una "Ricorsione", ed in quel caso si ha un esempio di funzione ricorsiva con ricorsione multipla.


Guarda quest'altro esempio:

Codice: [Seleziona]

Private l As Long


Public Sub Main()

  Print "Eterno ritorno = "; l
  
  Sleep 0.3
  
  Inc l
  
  Main()

End

Da notare che, sebbene vi sia un ritorno alla medesima routine, la visibilità delle variabili locali si spegne.

[kicco]

  Grazie ad entrambi!
Studio!
 

[kicco]

la visibilità delle variabili locali si spegne.

Cioè se invece di dichiarare una variabile di tipo Private, avessi usato una variabile locale (dim l as long), al rientro nella funzione (in questo caso nel Main) si sarebbe annullata per poi generarsi nuovamente, ovviamente con valore iniziale=0, ogni volta?
È  questo che intendi dire?
 

[vuott]

È  questo che intendi dire?

Sì.
...mo' che sorpresa al riguardo hai ? 

[kicco]

...mo' che sorpresa al riguardo hai ? 

per ora nessuna, perlomeno non premeditata...
Ho "studiato" la faccenda e la sensazione che ho avuto da subito, si è rivelata corretta:
Cioè la ricorsione impiega molta memoria perché ad ogni "giro" viene occupata nuova memoria!
Un vero "buco nero"
 

[Top Fuel]

Cioè se invece di dichiarare una variabile di tipo Private, avessi usato una variabile locale (dim l as long), al rientro nella funzione (in questo caso nel Main) si sarebbe annullata per poi generarsi nuovamente, ovviamente con valore iniziale=0, ogni volta?
È  questo che intendi dire?
 

E' così fin dai tempi del Quick Basic, all'uscita di una procedura le variabili locali venivano distrutte per poi essere ricreate alla chiamata successiva. L'unica differenza è che nel QB era possibile conservare le variabili tra una chiamata e l'altra usando la parola STATIC all'inizio della procedura, in questa maniera:

Codice: [Seleziona]

SUB Miasub() STATIC
...
END SUB

Mentre in Gambas non mi risulta sia possibile. Attendo di essere smentito as usual.

[Gianluigi]

E' così fin dai tempi del Quick Basic, all'uscita di una procedura le variabili locali venivano distrutte per poi essere ricreate alla chiamata successiva. L'unica differenza è che nel QB era possibile conservare le variabili tra una chiamata e l'altra usando la parola STATIC all'inizio della procedura, in questa maniera:

Codice: [Seleziona]

SUB Miasub() STATIC
...
END SUB

Mentre in Gambas non mi risulta sia possibile. Attendo di essere smentito as usual.

Si lo puoi usare anche in Gambas ma solo in una classe, ad esempio:

Codice: [Seleziona]

Public Sub Form_Open()

  Print "Fibonacci(28) = "; Fibonacci(28)

End

Static Private Function Fibonacci(n As Integer) As Integer

  If (n < 2) Then
    Return n
  Else
    Return Fibonacci(n - 2) + Fibonacci(n - 1)
  Endif

End

 

[kicco]

E' così fin dai tempi del Quick Basic, all'uscita di una procedura le variabili locali venivano distrutte per poi essere ricreate alla chiamata successiva. L'unica differenza è che nel QB era possibile conservare le variabili tra una chiamata e l'altra usando la parola STATIC all'inizio della procedura, in questa maniera:

Codice: [Seleziona]

SUB Miasub() STATIC
...
END SUB

Mentre in Gambas non mi risulta sia possibile. Attendo di essere smentito as usual.


Si lo puoi usare anche in Gambas ma solo in una classe, ad esempio:

Codice: [Seleziona]

Public Sub Form_Open()

  Print "Fibonacci(28) = "; Fibonacci(28)

End

Static Private Function Fibonacci(n As Integer) As Integer

  If (n < 2) Then
    Return n
  Else
    Return Fibonacci(n - 2) + Fibonacci(n - 1)
  Endif

End

 

Quindi se i antepongo (esempio Gianluigi) la parola STATIC alla procedura, le variabili dichiarate (per esempio Dim i as integer) dentro la procedura non vengono azzerate all'uscita?

[Gianluigi]

Quindi se i antepongo (esempio Gianluigi) la parola STATIC alla procedura, le variabili dichiarate (per esempio Dim i as integer) dentro la procedura non vengono azzerate all'uscita?

Giusto è proprio quello il significato di static.

[kicco]

Quindi se i antepongo (esempio Gianluigi) la parola STATIC alla procedura, le variabili dichiarate (per esempio Dim i as integer) dentro la procedura non vengono azzerate all'uscita?

Giusto è proprio quello il significato di static.

Codice: [Seleziona]

Public Sub Form_Open()

  Dim i As Byte
  
  For i = 1 To 3
    Print "ia * iBO= "; BO(i)
  Next
  
End

Static Private Function BO(ia As Integer) As Integer
  
  Dim iBO As Integer

  iBO = ia * iBO
  Return iBO
  
End

Ho scritto questo codice, ma iBO si azzera sempre!
Cosa non ho capito?
 

[Gianluigi]

Ma ibo non è zero e se io moltiplico per zero cosa ottengo?

Se passi a ibo ia  vedi che si mantiene il valore oppure cambia esempio.

Comunque penso di aver frainteso la domanda, la funzione mantiene il valore la variabile dinamica no.
Solo ciò che è Static mantiene il valore fra una chiamata e l'altra.

Scusa

[kicco]

Ma ibo non è zero e se io moltiplico per zero cosa ottengo?

Sì hai ragione... comunque anche se fosse stato  iBO = ia + iBO non sarebbe cambiato nulla...