From bb37acd5e63fe6512f61e158dfb89dececaf86f9 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Fri, 8 Jul 2016 01:10:26 +1200
Subject: Add hku and syl to games

Very ugly, and no manual pages yet.
---
 games/hku | 16 ++++++++++++++++
 games/syl | 18 ++++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100755 games/hku
 create mode 100755 games/syl

diff --git a/games/hku b/games/hku
new file mode 100755
index 00000000..029b41c6
--- /dev/null
+++ b/games/hku
@@ -0,0 +1,16 @@
+#!/usr/bin/env bash
+hash syl || exit
+declare -a lsts ws
+lsts=(5 7 5)
+for ((lc=0;lc<${#lsts[@]};lc++)) ; do
+    ws=()
+    for ((sc=0;sc<lsts[lc];)) ; do
+        read -r wr
+        sy=$(syl "$wr")
+        ((sy<=lsts[lc]-sc)) || continue
+        ws[${#ws[@]}]=$wr
+        ((sc+=sy))
+    done
+    printf '%s\n' "${ws[*]}"
+done < <(shuf /usr/share/dict/words |
+    grep -v \'s\$)
diff --git a/games/syl b/games/syl
new file mode 100755
index 00000000..85f68625
--- /dev/null
+++ b/games/syl
@@ -0,0 +1,18 @@
+#!/usr/bin/env bash
+word=$1
+syls=0
+vs=0
+for ((i=0;i<${#word};i++)); do
+    if [[ ${word:i:1} == [aeiouy] ]] ; then
+        ((vs!=1)) && ((syls++))
+        ((vs++))
+    else
+        ((vs=0))
+    fi
+done
+case $word in
+    *[aeiou][^aeiou]e|*ed)
+        ((syls > 1)) && ((syls--))
+        ;;
+esac
+printf '%u\n' "$syls"
-- 
cgit v1.2.3