1 665c255d 2023-08-04 jrmu (define (pascal-rec row col)
 2 665c255d 2023-08-04 jrmu   (cond ((= row col) 1)
 3 665c255d 2023-08-04 jrmu 	((= col 1) 1)
 4 665c255d 2023-08-04 jrmu 	(else (+ (pascal-rec (- row 1) (- col 1))
 5 665c255d 2023-08-04 jrmu 		 (pascal-rec (- row 1) col)))))
 6 665c255d 2023-08-04 jrmu 
 7 665c255d 2023-08-04 jrmu (define (test-case actual expected)
 8 665c255d 2023-08-04 jrmu   (load-option 'format)
 9 665c255d 2023-08-04 jrmu   (format #t "Actual: ~A Expected: ~A" actual expected))
10 665c255d 2023-08-04 jrmu (test-case (pascal-rec 1 1) 1)
11 665c255d 2023-08-04 jrmu (test-case (pascal-rec 2 1) 1)
12 665c255d 2023-08-04 jrmu (test-case (pascal-rec 2 2) 1)
13 665c255d 2023-08-04 jrmu (test-case (pascal-rec 3 1) 1)
14 665c255d 2023-08-04 jrmu (test-case (pascal-rec 3 2) 2)
15 665c255d 2023-08-04 jrmu (test-case (pascal-rec 3 3) 1)
16 665c255d 2023-08-04 jrmu (test-case (pascal-rec 4 1) 1)
17 665c255d 2023-08-04 jrmu (test-case (pascal-rec 4 2) 3)
18 665c255d 2023-08-04 jrmu (test-case (pascal-rec 4 3) 3)
19 665c255d 2023-08-04 jrmu (test-case (pascal-rec 4 4) 1)
20 665c255d 2023-08-04 jrmu (test-case (pascal-rec 5 1) 1)
21 665c255d 2023-08-04 jrmu (test-case (pascal-rec 5 2) 4)
22 665c255d 2023-08-04 jrmu (test-case (pascal-rec 5 3) 6)
23 665c255d 2023-08-04 jrmu (test-case (pascal-rec 5 4) 4)
24 665c255d 2023-08-04 jrmu (test-case (pascal-rec 5 5) 1)