;; CSE 413 23sp lecture 2 definitions

#lang racket

(define nums '(1 2 3 4))

(define (fact n)
  (if (< n 2)
      1
      (* n (fact (- n 1)))))

(define (sum lst)
  (if (null? lst)
      0
      (+ (car lst) (sum (cdr lst)))))

(define (second lst) (cadr lst))