פורטל:מדעי המחשב/תמונה נבחרת31

<syntaxhighlight lang="scheme">

(define (factorial n)

  (if (= n 0)
      1
      (* n (factorial (- n 1)))))

</syntaxhighlight>

קוד בשפת התכנות Scheme, התומכת בפרדיגמת התכנות הפונקציונלי