Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

36 lines (21 sloc) 0.596 kb
(define name "James Bond")
(define age 50)
(define (nextInt n)
( + n 1))
(define (equal? x y) ( = x y))
(define (even? x)
(= (mod x 2)
0))
(define even??
(lambda (x) (= (mod x 2) 0)))
(define (fact n)
(cond ((= n 0) 0)
(else (* n (fact (- n 1)))))
(define ls (cons 1 (cons 2 (cons 3 (cons 4 (cons 5 '()))))))
(define ls1 '(1 2 3 4 5))
(define (fromTo start end)
(cond ((= start end) '())
((< start end) (cons start (fromTo (+ start 1) end)))
((> start end) (cons start (fromTo (- start 1) end)))))
(define fromZero
(lambda (end) (fromTo 0 end)))
Jump to Line
Something went wrong with that request. Please try again.