[plt-scheme] Fun with Unicode and delimited continuations

Posted without comment:

(define √ sqrt)
(define ² sqr)

(require scheme/control)

(define (± x y)
  (shift k (values (k (+ x y)) (k (- x y)))))

(define (quadratic-formula-roots a b c)
  (reset (/ (± (- b) (√ (- (² b) (* 4 a c))))
	    (* 2 a))))


--dougorleans at gmail.com