这是递归

(def f

 

  (fn fb

    [x]

    (if (< x 2)

      1

      (* x (fb (- x 1)) )

     )

    

    )

 

)

 

(def f

 

  (fn fb

    [x y]

    (if (= x 1)

      y

      

       (fb (- x 1) (* x y))

     )

    

    )

 

)