blob: ce6195854f25012df2625253fb66faddd80b6853 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# TyPe lIkE AnDoR DrAkOn fRoM AnCiEnT DoMaInS Of mYsTeRy
# <http://www.adomgb.info/adomgb-4.html>
{
len = length($0)
lin = ""
tog = 0
for (i = 1; i <= len; i++) {
chr = substr($0, i, 1)
if (chr ~ /[[:alpha:]]/)
chr = (tog = !tog) ? tolower(chr) : toupper(chr)
lin = lin chr
}
print lin
}
|