Programowanie funkcyjne/Model obliczeń/Rekurencja ogonowa - silnia: 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''' s a x =
&nbsp;&nbsp;'''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">
<applet code="PSViewer" archive="images/d/dd/Psviewer.jar" align="left" width="600" height="580">
<param name="DIR" value="images/3-7/">
<param name="DIR" value="images/3-7/">
</applet>
</applet>

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

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”