Name: Anonymous 2013-12-14 17:42
How would you implement it without breaking homoiconicity?
(struct: pt ([x : Real] [y : Real]))
(: distance (pt pt -> Real))
(define (distance p1 p2)
(sqrt (+ (sqr (- (pt-x p2) (pt-x p1)))
(sqr (- (pt-y p2) (pt-y p1)))))): operator seems a little un-lispy.
(declaim (ftype (function ((unsigned-byte 64)) (values (unsigned-byte 64) &optional))
shuffle))