waylon-wordle 0.2.0 → 0.3.1

data/lib/waylon/skills/wordle.rb

@@ -24,7 +24,7 @@ module Waylon
 
       def todays_wordle
         solution = solve_todays_wordle
-        case solution.size
+        case solution.attempts.size
         when 1..2
           reply("I got *really* lucky today!")
         when 3
@@ -32,44 +32,40 @@ module Waylon
         when 4..5
           reply("I managed to figure it out.")
         when 6
-          reply("I barely solved it!")
-        else
-          reply("Unfortunately, I didn't solve it.")
+          if solution.last_attempted_word == Waylon::Wordle.for_today
+            reply("I barely solved it!")
+          else
+            reply("Unfortunately, I didn't solve it.")
+          end
         end
 
-        reply(formatted_wordle_score(solution))
+        reply(formatted_wordle_score(solution.attempts.map { _1[:result] }))
       end
 
       def spoil_wordle
         threaded_reply("Here's what my attempt looked like...")
         threaded_reply(
           codify(
-            JSON.pretty_generate(solve_todays_wordle.map { |w| w.join.upcase })
+            JSON.pretty_generate(solve_todays_wordle.attempts.map { |w| w[:word].upcase })
           )
         )
       end
 
       private
 
-      def formatted_wordle_score(solution)
-        miss = "⬛"
-        hit = "🟩"
-        near_hit = "🟨"
-        todays_answer = Waylon::Wordle.for_today.chars
-        solved_in = solution.include?(todays_answer) ? solution.size : "X"
+      def formatted_wordle_score(scores)
+        translation = {
+          miss: "⬛",
+          hit: "🟩",
+          near_hit: "🟨"
+        }
+
+        solved_in = scores.last.map(&:to_sym) == %i[hit hit hit hit hit] ? scores.size : "X"
 
         lines = ["Wordle #{Waylon::Wordle.todays_number} #{solved_in}/6"]
         lines << ""
-        solution.each do |word|
-          lines << word.map.with_index do |letter, index|
-            if letter == todays_answer[index]
-              hit
-            elsif todays_answer.include?(letter)
-              near_hit
-            else
-              miss
-            end
-          end.join
+        scores.each do |score|
+          lines << score.map { translation[_1.to_sym] }.join
         end
         lines.join("\n")
       end
@@ -78,6 +74,7 @@ module Waylon
         cache("solution_#{DateTime.now.new_offset("-05:00").to_date}", expires: 24 * 60 * 60) do
           solver = Waylon::Wordle::Solver.new(Waylon::Wordle.random_startword)
           solver.solve_todays_wordle
+          solver
         end
       end
     end

data/lib/waylon/wordle/solver.rb

@@ -4,39 +4,83 @@ module Waylon
   module Wordle
     # Utility class for solving Wordle puzzles
     class Solver
-      attr_reader :startword
+      attr_reader :startword, :answer
+      attr_accessor :attempts, :hits, :near_hits, :misses
 
       def initialize(startword)
         @startword = startword
+        @attempts = []
+        @hits = []
+        @near_hits = []
+        @misses = []
+        @answer = Waylon::Wordle.for_today.chars
       end
 
       def solve_todays_wordle
-        answer = Waylon::Wordle.for_today.chars
-        attempts = [startword.chars]
-        attempts << make_attempt(answer, attempts) until attempts.last == answer || attempts.size == 6
+        until attempts.any? && (last_attempted_word == answer.join || attempts.size == 6)
+          attempts << make_attempt(answer)
+        end
 
-        attempts.compact
+        last_attempted_word == answer.join
       end
 
-      def make_attempt(answer, attempts)
-        hits = []
-        near_hits = []
-        misses = []
-
-        attempts.compact.each do |attempt|
-          attempt.each_with_index do |letter, index|
-            if letter == answer[index]
-              hits[index] = letter
-            elsif answer.include?(letter) && hits.count(letter) < answer.count(letter)
-              near_hits[index] ||= []
-              near_hits[index] << letter
-            else
-              misses << letter unless misses.include?(letter)
-            end
+      def make_attempt(answer)
+        word = next_word
+        attempt = { word: word.join, result: [] }
+        word.each_with_index do |letter, index|
+          if letter == answer[index]
+            add_hit(letter, index, attempt)
+          elsif answer.include?(letter)
+            add_near_hit(letter, index, word, attempt)
+          else
+            add_miss(letter, attempt)
           end
         end
 
-        find_potential_solution(hits, near_hits, misses)
+        attempt
+      end
+
+      def find_potential_solution
+        potential_solutions = Waylon::Wordle.vocabulary.map(&:chars).reject { _1.intersect?(misses) }
+
+        candidates = potential_solutions.select do |word|
+          hits_match?(hits, word) && near_hits_match?(near_hits, word)
+        end
+
+        candidates.shuffle.max_by { _1.uniq.size }
+      end
+
+      def last_attempted_word = attempts.last[:word]
+
+      private
+
+      def add_hit(letter, index, attempt)
+        hits[index] = letter
+        attempt[:result] << :hit
+      end
+
+      def add_near_hit(letter, index, word, attempt)
+        near_hits[index] ||= []
+        near_hits[index] << letter
+        attempt[:result] << (counts_as_near_hit?(word, index) ? :near_hit : :miss)
+      end
+
+      def add_miss(letter, attempt)
+        misses << letter unless misses.include?(letter)
+        attempt[:result] << :miss
+      end
+
+      def next_word = attempts.empty? ? startword.chars : find_potential_solution
+
+      def counts_as_near_hit?(word, index)
+        return false unless answer.include?(word[index])
+
+        answer_hit_count = answer.count(word[index])
+        word_hits = word.each_with_index.with_object([]) do |(letter, idx), indices|
+          indices << idx if letter == word[index] && answer[idx] == word[idx]
+        end
+
+        answer_hit_count > word_hits.size
       end
 
       def hits_match?(hits, exploded_word)
@@ -59,16 +103,6 @@ module Waylon
 
         true
       end
-
-      def find_potential_solution(hits, near_hits, misses)
-        potential_solutions = Waylon::Wordle.vocabulary.map(&:chars).reject do |word|
-          word.intersect?(misses)
-        end
-
-        potential_solutions.select do |word|
-          hits_match?(hits, word) && near_hits_match?(near_hits, word)
-        end.sample
-      end
     end
   end
 end

data/lib/waylon/wordle/version.rb

@@ -2,6 +2,6 @@
 
 module Waylon
   module Wordle
-    VERSION = "0.2.0"
+    VERSION = "0.3.1"
   end
 end

data/lib/waylon/wordle.rb

@@ -29,7 +29,13 @@ module Waylon
     end
 
     def self.random_startword
-      vocabulary.select { |word| word.chars.intersection(%w[a e i o u]).uniq.size >= 3 }.sample
+      vocabulary.select do |word|
+        if rand(10) > 5
+          word.chars.uniq.intersection(%w[a e i o u]).uniq.size >= 4
+        else
+          word.chars.uniq.intersection(%w[a e o s t r n]).uniq.size >= 4
+        end
+      end.sample
     end
 
     def self.todays_date

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: waylon-wordle
 version: !ruby/object:Gem::Version
-  version: 0.2.0
+  version: 0.3.1
 platform: ruby
 authors:
 - Jonathan Gnagy
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2023-11-30 00:00:00.000000000 Z
+date: 2023-12-05 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: waylon-core