aboutsummaryrefslogtreecommitdiff
path: root/games/drakon.awk
diff options
context:
space:
mode:
Diffstat (limited to 'games/drakon.awk')
-rw-r--r--games/drakon.awk23
1 files changed, 8 insertions, 15 deletions
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
}