anchor.diff:  namespace BioFSharp.Algorithm
   
  -///The naive search algorithm.
  +///A collections of naive string matching algorithms
   module Naive =
   
  -    ///find
  +
  +    ///finds all matches of a query pattern in a source
       let findAll (pattern : array<'a>) (s : array<'a>) =
           let rec loop (sPos:int) (patternPos:int) (matchCount:int) (resultList : int list) =
               if sPos < s.Length then
  
positive.code:         prefixTable
      
  
      let findAll (prefixTable : int []) (pattern : array<'a>) (s : array<'a>) =
          let rec loop matchStart patternPosition resultList =
              if (matchStart + patternPosition) < s.Length then
  
negative.code:             loop startPos initHs
          else -1
  
  
      // https://github.com/lemire/rollinghashjava/blob/master/src/rollinghash/RabinKarpHash.java
      ///A collection of Rabin-Karp string matching algorithms using the built-in hash function of f#
      module RKStandard =
  
          // b = 31
  