Página inicial Explorar Ajuda
Entrar
rain1
/
testsans
Observar 1
Favorito 0
Fork 0
Arquivos Issues 0 Pull Requests 0 Wiki
Branch: master
Branches Tags
testsans
/
t-factorial.scm

t-factorial.scm 136 B
Link permanente Histórico Raw

1234567 
  1. (define main
    2. 

  2.   (letrec ((factorial (lambda (n)
    3. 

  3. 			(if (= 0 n)
    4. 

  4. 			    1
    5. 

  5. 			    (* n (factorial (- n 1)))))))
    6. 

  6.     (print (factorial 5))))
    7. 

  7.