cl

CommonLisp testbed
git clone git://git.janpasierb.com/cl.git
Log | Files | Refs

foo.lisp (231B)

      1 (defun square (x)
      2   (* x x))
      3 
      4 (defun square-of-sum (x y)
      5   (square (+ x y)))
      6 
      7 (defun sum-of-squares (x y)
      8   (+ (square x) (square y)))
      9 
     10 (square-of-sum 2 3)
     11 (sum-of-squares 2 3)
     12 
     13 (defun hello-world ()
     14   (format t "Hello, world!"))