exercise 1.3
(define sum +) (define (square x) (* x x)) (define (foo a b c) (let *1 (square (cadr alist))))) (define (main args) (display (foo (string->number (cadr args)) (string->number (caddr args)) (string->number (cadddr args)))) (newline)))
*1:alist (sort (list a b c) (lambda (x y) (> x y))))) (sum (square (car alist