Programowanie funkcyjne/Model obliczeń/Rekurencja ogonowa - silnia

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>