From 395c94f2abde3af3806fa8a13f1e699a7ed7d798 Mon Sep 17 00:00:00 2001
From: krisi9825 <krisi9825@abv.bg>
Date: Sun, 25 Nov 2018 15:13:29 +0200
Subject: [PATCH] Update lab.rkt

---
 week1/lab.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))))