Programowanie funkcyjne/Model obliczeń/Rekurencja ogonowa - liczby Fibonacciego: Różnice pomiędzy wersjami

Z Studia Informatyczne
Przejdź do nawigacjiPrzejdź do wyszukiwania
WizualnieWikikod
Przemek (dyskusja | edycje)
799 edycji
Nie podano opisu zmian
 
Kubica (dyskusja | edycje)
630 edycji
Nie podano opisu zmian
 
Linia 1: Linia 1:
'''let''' '''rec''' fibpom a b n =
  '''if''' n = 0 '''then''' a '''else''' fibpom b (a + b) (n - 1);;
'''let''' fib n = fibpom 0 1 n;;
fib 5;;
<applet code="PSViewer" archive="images/d/dd/Psviewer.jar" align="left" width="600" height="580">
<applet code="PSViewer" archive="images/d/dd/Psviewer.jar" align="left" width="600" height="580">
<param name="DIR" value="images/3-8/">
<param name="DIR" value="images/3-8/">
</applet>
</applet>

Aktualna wersja na dzień 23:58, 28 wrz 2006

let rec fibpom a b n = 
  if n = 0 then a else fibpom b (a + b) (n - 1);;
let fib n = fibpom 0 1 n;;
fib 5;;

<applet code="PSViewer" archive="images/d/dd/Psviewer.jar" align="left" width="600" height="580"> <param name="DIR" value="images/3-8/"> </applet>

Źródło: „https://wazniak.mimuw.edu.pl/index.php?title=Programowanie_funkcyjne/Model_obliczeń/Rekurencja_ogonowa_-_liczby_Fibonacciego&oldid=58690”