functions: Define apply-tbf using define.

I forgot to rewrite that from define/contract when I added the out
contract to the module exports.
This commit is contained in:
Sergiu Ivanov 2020-07-07 23:25:51 +02:00
parent dfe8766424
commit db42e20f1c

View file

@ -253,8 +253,7 @@
;;; Applying a TBF consists in multiplying the weights by the
;;; corresponding inputs and comparing the sum of the products to the
;;; threshold.
(define/contract (apply-tbf tbf inputs)
(-> tbf? (vectorof (or/c 0 1)) (or/c 0 1))
(define (apply-tbf tbf inputs)
(any->01
(>
;; The scalar product between the inputs and the weights