#lang racket

;;;;;;;;;;;;;;;;;;;;;
(define control_central%
  (class object%
    ;;field: propiedades estructurales
    (field
     (accion #f)
     )
    ;;;;;;;;;;;;;;;;;;;;
    (define sensacion->accion;;primero por la izquierda
      (lambda (out_sensitivo)
        (ormap
         (lambda (par orden)
           (if (equal? par (cons 0 1))
               #f
               orden)
           )
         out_sensitivo '(0 1 2 3 4 5 6 7))
        ))
    (define/public proceso!
      (lambda (output_receptor last-action)
        (set! accion (sensacion->accion output_receptor))
        (values accion)
        ))
    (super-new)
    ))
;;;;;;;;;;;
(define cerebro (make-object control_central%))


(provide cerebro)

