Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (18 sloc) 589 Bytes
#lang racket/base
(require racket/fixnum)
(define (print item)
(display item)
(newline))
(define (factorial n)
(let fact-iter ( ; pomocná vnitřní funkce
(n n) ; počitadlo iterací
(result 1)) ; průběžný výsledek
(if (fx= n 0) ; po dosažení koncového stavu
result ; se vrátí průběžný výsledek
(fact-iter (fx- n 1) (fx* n result)) ; koncové volání
)))
(define n 0)
(do ()
((>= n 30))
(print (factorial n))
(set! n (+ n 1)))
You can’t perform that action at this time.