use Octans::Puzzle; use Octans::WordSearch; proto MAIN (|) is export {unless so @*ARGS {USAGE(); exit;}; {*}} multi sub MAIN ( Str $path, #= path to the crossword (file or url) Str :$dict = (%?RESOURCES // "/usr/share/dict/words").Str, #= dictionary file Int :$length = 7, #= minimum word length (default: 7) Bool :v($verbose), #= increase verbosity ) { # @dict holds the sorted dictionary. Only consider words >= 7 # chars by default. my Str @dict = $dict.IO.lines.grep(*.chars >= $length); # @puzzle holds the puzzle. # # @gray-squares holds the list of indexes of valid starting # positions in the puzzle. my (@puzzle, @gray-squares); # Get the puzzle from $path. if $path.IO.f { @puzzle = $path.IO.lines.map(*.words.cache.Array); } else { @puzzle = get-puzzle($path); } # set-gray-squares also removes asterisks from @puzzle. @gray-squares = set-gray-squares(@puzzle); # ($y, $x) if $verbose { # Don't print path if using the dictionary included with the # program. say "Dictionary: ", $dict.Str unless ($dict.Str eq %?RESOURCES.Str); say "Gray squares: ", @gray-squares; say "Puzzle"; " $_".say for @puzzle; } # After the solution is found, the path is printed with these # fancy chars. my %𝒻𝒶𝓃𝒸𝓎-𝒸𝒽𝒶𝓇𝓈 = ; # start-pos block loops over each starting position. start-pos: for @gray-squares -> $pos { my DateTime $initial = DateTime.now; # gather all the words that word-search finds starting from # $pos. for gather word-search( @dict, @puzzle, $pos[0], $pos[1], ) -> ( # word-search returns the word along with @visited which # holds the list of all grids that were visited when the # word was found. $word, @visited ) { # Print the word, along with the time taken (if $verbose). say ($verbose ?? "\n" ~ $word ~ " [" ~ DateTime.now - $initial ~ "𝑠]" !! $word); # Print the puzzle, highlighting the path. if $verbose { for ^@puzzle.elems -> $y { print " " x 3; for ^@puzzle[$y].elems -> $x { print " ", ( @visited[$y][$x] ?? (%𝒻𝒶𝓃𝒸𝓎-𝒸𝒽𝒶𝓇𝓈{@puzzle[$y][$x]} // @puzzle[$y][$x]) !! @puzzle[$y][$x] ); } print "\n"; } } } } } # Modify USAGE to include input file format. sub USAGE { say $*USAGE; say "\nInput file format: n a t k i m e c a* r d e t* e c h"; } multi sub MAIN ( Bool :$version #= print version ) { say "Octans v" ~ $?DISTRIBUTION.meta; } multi sub MAIN ( Bool :$help #= print help ) { USAGE(); exit; }