a short zsh program to create 3 consonant clusters from /usr/share/dict/words (not very efficient; done in the spirit of McIlroy, and not Knuth)

3cc.sh

#! /bin/zsh
vo=(a e i o u y)

for u in {a..z}
do
  for v in {a..z}
  do
     for w in {a..z}
     do
       if ()(( $@[(Ie)$u] )) $vo; then
         continue
       fi
       if ()(( $@[(Ie)$v] )) $vo; then
         continue
       fi
       if ()(( $@[(Ie)$w] )) $vo; then
         continue
       fi
       grep -ih $u$v$w /usr/share/dict/words
       if [[ $status -eq 0 ]]; then
         echo "consonant cluster above: $u$v$w"
         echo "--------"
       fi
     done
  done
done