Doug Orleans’ cute program to compute roots of quadratic equations:
(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))))
-
‹ Home
Contents
-
Categories
-
Archives
Blogroll
- A Neighborhood of Infinity
- Aaron Hawley (Refusal Computing)
- Aaron Stump (QA9)
- Andrej Bauer (Mathematics and Computation)
- Close Encounters of the Logical Kind (Riccardo Pucella)
- Computing Community Consortium (CCC Blog)
- Computing Research Policy Blog
- Dave Herman (The Little Calculist)
- Jacob Matthews
- Jens Axel Søgaard (Everything Scheme)
- Jereme Mongeon (test2)
- Justin Henry (Green Galoshes)
- Lambda the Ultimate
- Lance Fortnow and Bill Gasarch (Computational Complexity)
- Matt Might (Professor Might’s Blog)
- Mike Machenry (Turing Complete Waste of Time)
- Phil Wadler
- Phillip Alvelda (All the Best Bits)
- PLT Scheme
- Untyped
- Wand Symposium and Festschrift
-
RSS Feeds
-
Meta