gistfile1.sml

fun naranjas(n:int) =
    let fun funcion_auxiliar(numero, acumulador) =
      if numero = 0 then
        acumulador
      else
        funcion_auxiliar(numero - 1, acumulador * numero)
in
  funcion_auxiliar(n, 1)
end;