[karp-rabin] replace take-drop with array slice

src/Data/String/Search/KarpRabin.purs

@@ -183,7 +183,7 @@ strictMatcher { hash, hashMap, hLen, pats, rehash } = unsafePartial search
             -- | Sliding window of substrings. Note that we need to
             -- | add the last one.
             window :: Array (Array CodePoint)
-            window = slidingWindow arr (hLen + 1) <> [A.take hLen $ A.drop maxIdx arr]
+            window = slidingWindow arr (hLen + 1) <> [A.slice maxIdx (maxIdx + hLen) arr]
             strLen = S.length str
             maxIdx = strLen - hLen
             arr = S.toCodePointArray str