AlgorithmsIT - Provides some functions from Introduction to Algorithms, Third Edition
use AlgorithmsIT :ALL;
my $P = ArrayOneBased.new: "abab"; # the pattern to be sought
my $T = ArrayOneBased.new: "abababcabab"; # text to search (target)
my @matches = KMP-Matcher $T, $P; # find matches, if any
# OUTPUT: «[0, 2, 7]␤»
# 0, 2, and 7 are shifts from the input's # first character to the match
# positions. The @matches array would be empty if no match were found.
Note the original version (v0.0.1) had an error in its implementation so it could not handle overlapping pattern matches. Later versions now work as its authors intended, thanks to Professor Cormen's reply to my erroneous bug report.
AlgorithmsIT is a collection of a small subset of functions in Reference 1.
See more details at FUNCTIONS
Thanks to my Raku friend, '@tonyo' (on IRC #raku), for his help with the ArrayOneBased class. See his many Raku contributions at
- Thomas H. Cormen, et alii, Introduction to Algorithms, Third Edition, February 2009.
Tom Browder firstname.lastname@example.org
COPYRIGHT AND LICENSE
© 2023 Tom Browder
This library is free software; you may redistribute it or modify it under the Artistic License 2.0.