racket-error-application：不是程序;

Question

(define (matcherbot-creator pattern) 
    (lambda (sent) 
     (cond ((if (memsent? pattern sent) 
         (outfollow pattern sent) 
         #f) 
       ((endofsent? pattern sent) '()) 
       ((empty? pattern) sent))) 
)) 

(define (memsent? pattern sent) 
    (cond ((empty? pattern) #t) 
      ((empty? sent) #f) 
      ((equal? (first pattern) (first sent)) 
      (memsent? (bf pattern) (bf sent))) 
      (else (memsent? pattern (bf sent))))) 

(define (outfollow pattern sent) 
    (cond ((empty? sent) '()) 
      ((empty? pattern) 'sent) 
      ((equal? (first pattern) (first sent)) 
      (se '() (outfollow (bf pattern) (bf sent)))) 
      (else (outfollow pattern (bf sent))) 
    )) 

(define (endofsent? pattern sent) 
    (cond ((empty? sent) #t) 
      ((empty? pattern) sent) 
      ((equal? (first pattern) (first sent)) 
      (endofsent? (bf pattern) (bf sent))) 
     (else (endofsent? pattern (bf sent))))) 

Answer 1

您需要與導入math/bigfloat庫(require math/bigfloat)