From 10ae1d5d9fa62ad294f2018cf43e41f94d5e6dcf Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sun, 11 Dec 2016 00:01:26 +1300
Subject: Golf/refactor drakon(1df) a bit

---
 games/drakon.awk | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

(limited to 'games/drakon.awk')

diff --git a/games/drakon.awk b/games/drakon.awk
index e960a6c0..39bb3732 100644
--- a/games/drakon.awk
+++ b/games/drakon.awk
@@ -1,20 +1,13 @@
 # TyPe lIkE AnDoR DrAkOn fRoM AnCiEnT DoMaInS Of mYsTeRy
 # <http://www.adomgb.info/adomgb-4.html>
 {
-    s = ""
-    u = 0
-    for (i = 1; i <= length($0); i++) {
-        c = substr($0, i, 1)
-        if (c ~ /[a-zA-Z]/) {
-            if (u) {
-                c = toupper(c)
-            }
-            else {
-                c = tolower(c)
-            }
-            u = !u
-        }
-        s = s c
+    line = ""
+    case = 0
+    for (i = 1; i <= length; i++) {
+        char = substr($0, i, 1)
+        if (char ~ /[a-zA-Z]/)
+            char = (case = !case) ? tolower(char) : toupper(char)
+        line = line char
     }
-    print s
+    print line
 }
-- 
cgit v1.2.3