Some racket snippets

factorial.rkt

#lang racket
(define (factorial x)
  (cond
    [(< x 0) (raise "Value can't be less than zero")]
    [(= x 0) 1]
    [(= x 1) 1]
    [else (* x (factorial (- x 1)))]))

(factorial 99)
(factorial -1)