AP
Для того, чтобы было, из чего запускать Guile-SMC, актуальная версия ДКА для парсера закоммичена в репозитории.
Size: a a a
AP
X
ND
X
X
ND
X
ND
(define (sum-of-squares-of-top-two a b c)
(define minimum (min a b c))
(define (sum-of-sqrs a b) (+ (sqr a) (sqr b)))
(cond
((= a minimum) (sum-of-sqrs b c))
((= b minimum) (sum-of-sqrs a c))
((= c minimum) (sum-of-sqrs b c))))
ND
ND
ND
X
M
ND
X
M
M
X
ДП