Programowanie funkcyjne/Model obliczeń/Rekurencja ogonowa - silnia

Z Studia Informatyczne
< Programowanie funkcyjne | Model obliczeń
Wersja z dnia 23:56, 28 wrz 2006 autorstwa Kubica (dyskusja | edycje)
(różn.) ← poprzednia wersja | przejdź do aktualnej wersji (różn.) | następna wersja → (różn.)
Przejdź do nawigacjiPrzejdź do wyszukiwania 
let rec s a x = 
  if x <= 1 then a else s (a * x) (x - 1);;
let silnia x = s 1 x;;
silnia 3;;

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

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