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