huytd/wordle.md

How to use:

./wordle.sh

Or try the unlimit mode:

./wordle.sh unlimit

CqN · 2022-02-06T19:34:15Z

@tb3088
Mathew, thanks for the feedback.

Now how would you perform your bash magic on this line
read -ep "Enter your guess ($LETTERS letters | $j/$ROUNDS): " guess || exit
so, I will see the guess I type in shown in capital?

aaronNGi · 2022-02-06T23:31:15Z

Here's a variant done in (Edit:) under 20 lines of bash: https://gist.github.com/aaronNGi/04a209b1cd17f1fa03af7a87eb14cc42

BMDan · 2022-02-09T22:04:02Z

Cleaned up a few things. Biggest changes:

argv[1] can now be "unlimit" or "unlimited" (or anything else starting with "unlimit").
Use proper termcap codes to set colors (should work better on a wider variety of terminals).
Clean up input to use read(1) and to save ourselves an if indentation on the rest of the logic with a while.
Provide more feedback on rejected words.

Full script

#!/bin/bash

function wordsgrep() {
  (IFS=$'\n'; echo "${words[*]}") | grep -qixF "${1:-inv.alid}"
}

words=($(grep -xE '\w{5}' /usr/share/dict/words | tr '[:lower:]' '[:upper:]'))
actual=${words[$[$RANDOM % ${#words[@]}]]} guess_count=0 max_guess=6
[[ "${1//unlimit}" != "${1:-}" ]] && max_guess=999999
while true; do
    guess_count=$(( $guess_count + 1 ))
    if [[ $guess_count -le $max_guess ]]; then
        while read -r -p "Enter your guess ($guess_count / $max_guess): " guess; do
            wordsgrep "$guess" && break
            [[ ${#guess} != 5 ]] && echo "Too short/long." && continue
            echo "Not a real word."
        done
        guess="$(tr '[:lower:]' '[:upper:]' <<<"$guess")"
        output="" remaining=""
        if [[ $actual == $guess ]]; then
            echo "You guessed right!"
            for ((i = 0; i < ${#actual}; i++)); do
                output+="$(tput setaf 0)$(tput setab 10) ${guess:$i:1} $(tput sgr0)"
            done
            echo "$output"
            break
        else
            for ((i = 0; i < ${#actual}; i++)); do
                if [[ "${actual:$i:1}" != "${guess:$i:1}" ]]; then
                    remaining+=${actual:$i:1}
                fi
            done
            for ((i = 0; i < ${#actual}; i++)); do
                if [[ "${actual:$i:1}" != "${guess:$i:1}" ]]; then
                    if [[ "$remaining" == *"${guess:$i:1}"* ]]; then
                        output+="$(tput setaf 0)$(tput setab 11) ${guess:$i:1} $(tput sgr0)"
                        remaining=${remaining/"${guess:$i:1}"/}
                    else
                        output+="$(tput setaf 0)$(tput setab 15) ${guess:$i:1} $(tput sgr0)"
                    fi
                else
                    output+="$(tput setaf 0)$(tput setab 10) ${guess:$i:1} $(tput sgr0)"
                fi
            done
            echo "$output"
        fi
    else
        echo "You lose! The word is:"
        echo $actual
        break
    fi
done

Diff (ignoring whitespace changes)

--- a/wordle.sh	2022-02-09 15:45:06.000000000 -0800
+++ b/wordle.sh	2022-02-09 15:45:06.000000000 -0800
@@ -1,23 +1,29 @@
-words=($(grep '^\w\w\w\w\w$' /usr/share/dict/words | tr '[a-z]' '[A-Z]'))
-actual=${words[$[$RANDOM % ${#words[@]}]]} end=false guess_count=0 max_guess=6
-if [[ $1 == "unlimit" ]]; then
-    max_guess=999999
-fi
-while [[ $end != true ]]; do
+#!/bin/bash
+
+function wordsgrep() {
+  (IFS=$'\n'; echo "${words[*]}") | grep -qixF "${1:-inv.alid}"
+}
+
+words=($(grep -xE '\w{5}' /usr/share/dict/words | tr '[:lower:]' '[:upper:]'))
+actual=${words[$[$RANDOM % ${#words[@]}]]} guess_count=0 max_guess=6
+[[ "${1//unlimit}" != "${1:-}" ]] && max_guess=999999
+while true; do
     guess_count=$(( $guess_count + 1 ))
     if [[ $guess_count -le $max_guess ]]; then
-        echo "Enter your guess ($guess_count / $max_guess):"
-        read guess
-        guess=$(echo $guess | tr '[a-z]' '[A-Z]')
-        if [[ " ${words[*]} " =~ " $guess " ]]; then
+        while read -r -p "Enter your guess ($guess_count / $max_guess): " guess; do
+            wordsgrep "$guess" && break
+            [[ ${#guess} != 5 ]] && echo "Too short/long." && continue
+            echo "Not a real word."
+        done
+        guess="$(tr '[:lower:]' '[:upper:]' <<<"$guess")"
             output="" remaining=""
             if [[ $actual == $guess ]]; then
                 echo "You guessed right!"
                 for ((i = 0; i < ${#actual}; i++)); do
-                    output+="\033[30;102m ${guess:$i:1} \033[0m"
+                output+="$(tput setaf 0)$(tput setab 10) ${guess:$i:1} $(tput sgr0)"
                 done
-                printf "$output\n"
-                end=true
+            echo "$output"
+            break
             else
                 for ((i = 0; i < ${#actual}; i++)); do
                     if [[ "${actual:$i:1}" != "${guess:$i:1}" ]]; then
@@ -27,24 +33,20 @@
                 for ((i = 0; i < ${#actual}; i++)); do
                     if [[ "${actual:$i:1}" != "${guess:$i:1}" ]]; then
                         if [[ "$remaining" == *"${guess:$i:1}"* ]]; then
-                            output+="\033[30;103m ${guess:$i:1} \033[0m"
+                        output+="$(tput setaf 0)$(tput setab 11) ${guess:$i:1} $(tput sgr0)"
                             remaining=${remaining/"${guess:$i:1}"/}
                         else
-                            output+="\033[30;107m ${guess:$i:1} \033[0m"
+                        output+="$(tput setaf 0)$(tput setab 15) ${guess:$i:1} $(tput sgr0)"
                         fi
                     else
-                        output+="\033[30;102m ${guess:$i:1} \033[0m"
+                    output+="$(tput setaf 0)$(tput setab 10) ${guess:$i:1} $(tput sgr0)"
                     fi
                 done
-                printf "$output\n"
-            fi
-        else
-            echo "Please enter a valid word with 5 letters!";
-            guess_count=$(( $guess_count - 1 ))
+            echo "$output"
         fi
     else
         echo "You lose! The word is:"
         echo $actual
-        end=true
+        break
     fi
 done

IMHO, storing the words as an array, while a neat trick, also gets pretty slow pretty quickly. A version without arrays to follow....

BMDan · 2022-02-09T22:32:49Z

As promised, the version without arrays. Also makes some minor stylistic changes, deletes an unnecessary loop, and adds an "abandon" feature (press CTRL-D at the prompt). 36 lines, total.

actual="$(sort -R /usr/share/dict/words | grep -xEm 1 '\w{5}' | tr '[:lower:]' '[:upper:]')"
guess_count=0 max_guess=6
[[ "${1//unlimit}" != "${1:-}" ]] && max_guess=999999
while true; do
    guess_count=$(( guess_count + 1 ))
    if [[ $guess_count -le $max_guess ]]; then
        while read -r -p "Enter your guess ($guess_count / $max_guess): " guess; do
            grep -ixF "${guess:-inv.alid}" /usr/share/dict/words | grep -xqE '\w{5}' && break
            [[ ${#guess} != 5 ]] && echo "Too short/long." && continue
            echo "Not a real word."
        done
        [ ${#guess} -eq 0 ] && echo && echo "Giving up so soon?  The answer was $actual." && break
        guess="$(tr '[:lower:]' '[:upper:]' <<<"$guess")"
        output="" remaining=""
        for ((i = 0; i < ${#actual}; i++)); do
            [[ "${actual:$i:1}" != "${guess:$i:1}" ]] && remaining+=${actual:$i:1}
        done
        for ((i = 0; i < ${#actual}; i++)); do
            if [[ "${actual:$i:1}" != "${guess:$i:1}" ]]; then
                if [[ "$remaining" == *"${guess:$i:1}"* ]]; then
                    output+="$(tput setaf 0)$(tput setab 11) ${guess:$i:1} $(tput sgr0)"
                    remaining=${remaining/"${guess:$i:1}"/}
                else
                    output+="$(tput setaf 0)$(tput setab 15) ${guess:$i:1} $(tput sgr0)"
                fi
            else
                output+="$(tput setaf 0)$(tput setab 10) ${guess:$i:1} $(tput sgr0)"
            fi
        done
        echo "$output"
        [ "$actual" = "$guess" ] && echo "You guessed right!" && break
    else
        echo "You lose!  The word was $(tput setaf 1)$(tput bold)$actual$(tput sgr0)."
        break
    fi
done

kristinbell · 2022-03-12T18:18:23Z

Here's a challenge for someone: Can we make a game that uses more than one language at a time? Would that just involve using two dictionaries? Or would the game need different rules?

cjdinger · 2022-03-17T14:33:05Z

I wrote a SAS version and placed it here sascommunities/wordle-sas. Uses the word lists from cfreshman (thanks) and arrays to check guesses.

aramvr · 2022-03-18T11:38:59Z

I learned about this from an Oreilly blog post. Good job!

huytd/wordle.md

CqN commented Feb 6, 2022 •

edited

Loading

Uh oh!

aaronNGi commented Feb 6, 2022 •

edited

Loading

Uh oh!

BMDan commented Feb 9, 2022 •

edited

Loading

Uh oh!

BMDan commented Feb 9, 2022 •

edited

Loading

Uh oh!

kristinbell commented Mar 12, 2022

Uh oh!

cjdinger commented Mar 17, 2022

Uh oh!

aramvr commented Mar 18, 2022

Uh oh!

	words=($(grep '^\w\w\w\w\w$' /usr/share/dict/words \| tr '[a-z]' '[A-Z]'))
	actual=${words[$[$RANDOM % ${#words[@]}]]} end=false guess_count=0 max_guess=6
	if [[ $1 == "unlimit" ]]; then
	max_guess=999999
	fi
	while [[ $end != true ]]; do
	guess_count=$(( $guess_count + 1 ))
	if [[ $guess_count -le $max_guess ]]; then
	echo "Enter your guess ($guess_count / $max_guess):"
	read guess
	guess=$(echo $guess \| tr '[a-z]' '[A-Z]')
	if [[ " ${words[*]} " =~ " $guess " ]]; then
	output="" remaining=""
	if [[ $actual == $guess ]]; then
	echo "You guessed right!"
	for ((i = 0; i < ${#actual}; i++)); do
	output+="\033[30;102m ${guess:$i:1} \033[0m"
	done
	printf "$output\n"
	end=true
	else
	for ((i = 0; i < ${#actual}; i++)); do
	if [[ "${actual:$i:1}" != "${guess:$i:1}" ]]; then
	remaining+=${actual:$i:1}
	fi
	done
	for ((i = 0; i < ${#actual}; i++)); do
	if [[ "${actual:$i:1}" != "${guess:$i:1}" ]]; then
	if [[ "$remaining" == "${guess:$i:1}" ]]; then
	output+="\033[30;103m ${guess:$i:1} \033[0m"
	remaining=${remaining/"${guess:$i:1}"/}
	else
	output+="\033[30;107m ${guess:$i:1} \033[0m"
	fi
	else
	output+="\033[30;102m ${guess:$i:1} \033[0m"
	fi
	done
	printf "$output\n"
	fi
	else
	echo "Please enter a valid word with 5 letters!";
	guess_count=$(( $guess_count - 1 ))
	fi
	else
	echo "You lose! The word is:"
	echo $actual
	end=true
	fi
	done

huytd/wordle.md

CqN commented Feb 6, 2022 • edited Loading Uh oh! There was an error while loading. Please reload this page.

Uh oh!

Uh oh!

aaronNGi commented Feb 6, 2022 • edited Loading Uh oh! There was an error while loading. Please reload this page.

Uh oh!

Uh oh!

BMDan commented Feb 9, 2022 • edited Loading Uh oh! There was an error while loading. Please reload this page.

Uh oh!

Uh oh!

BMDan commented Feb 9, 2022 • edited Loading Uh oh! There was an error while loading. Please reload this page.

Uh oh!

Uh oh!

kristinbell commented Mar 12, 2022

Uh oh!

cjdinger commented Mar 17, 2022

Uh oh!

aramvr commented Mar 18, 2022

Uh oh!

CqN commented Feb 6, 2022 •

edited

Loading

aaronNGi commented Feb 6, 2022 •

edited

Loading

BMDan commented Feb 9, 2022 •

edited

Loading

BMDan commented Feb 9, 2022 •

edited

Loading