diff --git a/week1/lab.rkt b/week1/lab.rkt index b5309d1..c6ffc9d 100644 --- a/week1/lab.rkt +++ b/week1/lab.rkt @@ -20,7 +20,7 @@ (define (fact2 n) (if (zero? n) - 0 + 1 (* n (fact2 (- n 1))))) ; Факториел, написан чрез cond @@ -54,4 +54,4 @@ ; Дефинираме си локална константа, която ще отговаря за полупериметъра (define (area a b c) (define p (/ (+ a b c) 2)) - (sqrt (* p (- p a) (- p b) (- p c)))) \ No newline at end of file + (sqrt (* p (- p a) (- p b) (- p c))))