diff options
Diffstat (limited to 'games')
-rw-r--r-- | games/squ.awk | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/games/squ.awk b/games/squ.awk new file mode 100644 index 00000000..0d8f9210 --- /dev/null +++ b/games/squ.awk @@ -0,0 +1,10 @@ +# Make a square out of each line of input +{ + str = toupper($0) + len = length(str) + for (i = 1; i <= len; i++) + let[i - 1] = substr(str, i, 1) + for (j in let) + for (k in let) + printf (k < len - 1) ? "%s " : "%s\n", let[(k + j) % len] +} |