Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
}

april();

#!/usr/bin/perl
use strict;
use warnings;
...
    }
    print "Goodbye, $name!\n";
}

    (define (new-if predicate then-clause else-clause)
      (cond (predicate then-clause)
            (else else-clause)))
...
      (define (good-enough? guess x)
        (< (abs (- (square guess) x)) 0.001))
      (sqrt-iter 1.0 x))