gistfile1.scm

(define visu-classifica
  (lambda (cla)
    (display "classificacao = ")
    (display cla)
    (newline)))

(define calcula-classifica
  (lambda (pp1 pp2 pp3 ad pe)
    (+ (* pp1 0.10)
       (* pp2 0.15)
       (* pp3 0.30)
       (* ad 0.05)
       (* pe 0.40))))

(define calcula-classifica-sem-pe
  (lambda (pp1 pp2 pp3 ad)
    (+ (* pp1 0.10)
       (* pp2 0.15)
       (* pp3 0.30)
       (* ad 0.05))))

(define class-min-frequencia (* 0.3 12))
(define class-min-pe (* 0.3 20))

(define classificacao
  (lambda (pp1 pp2 pp3 ad pe)
    (cond ((< (calcula-classifica-sem-pe pp1 pp2 pp3 ad) class-min-frequencia)
           (visu-classifica "sf"))
          ((< pe class-min-pe)
           (visu-classifica "pe"))
          (else (visu-classifica (calcula-classifica pp1 pp2 pp3 ad pe))))))