Question

我试图在方案

中制作类似人类的文本搜索程序

但是这个程序不能正常工作

我几个小时都听不到这个错误

有人可以告诉我我的代码有什么问题吗？

并且搜索文本不是一个好主意吗？

当我搜索字符串“exp”时在文本文件中只包含字符串“explorer” 错误出现它告诉找到0

(define (search str)
  (set! count 0)
  (define len (length str))
  ;null character calculating 
  (define data-len (- (length data) 1))
  ;when string length is less than or equal to data-length
  (when (and (not (= 0 len)) (>= data-len len))
    (define first-char (first str))
    (define last-char (last str))
    ;is it correct?
    (define (exact? str len index)
      (if (equal? str (drop (take data (+ index len)) index))
          #t
          #f))
    ;check first and last character of string if correct, check whether this string is correct completely, if so, skip to next index
    (define (loop [index 0])
      (when (> data-len index)
        (if (and (equal? first-char (list-ref data index)) 
                 (equal? last-char (list-ref data (+ index len -1))))
            (when (exact? str len index)
              (set! count (+ count 1))
              (loop (+ index len)))
            (loop (+ index 1)))))
    (loop))
  (send msg set-label (format "Found : ~a" count)))

Answer 1

我知道已经四年了，但我对我的SCHEME课程怀旧，所以我做了一件事。（我发表评论而不是回答，但我还没有足够的声誉......而且我可能会有更少的声望。）

(define (find-pattern pat str); Returns a list of locations of PATturn in STRing.
  (define (pattern-found? pat-list str-list); Is the pattern (pat-list) at the beginning of this string (str-list)? Also, they're lists, now.
    (cond ((null? pat-list) #t); The base case for the recursion.
          ((null? str-list) #f); Obvious
          ((eq? (car pat-list) (car str-list)); First letter matches
           (pattern-found? (cdr pat-list) (cdr str-list))); Recurse
          (else #f)))
  (define (look-for-pattern pat-list str-list counter results-list)
    (cond ((null? str-list) results-list); Base case
          ((pattern-found? pat-list str-list)
           (look-for-pattern pat-list
                             (cdr str-list)
                             (+ counter 1)
                             (cons counter results-list)))
          (else (look-for-pattern pat-list
                                  (cdr str-list)
                                  (+ counter 1)
                                  results-list))))
  (look-for-pattern (string->list pat)
                    (string->list str)
                    0
                    '()))

编辑：我的意思是问题已经过去了四年，而不是自SCHEME课程以来。那会有点令人毛骨悚然，但又一次，谁知道我三年后的感受如何？

小人类喜欢文本搜索程序的方案

1 个答案: