From c31338baca39b5a545ce307327fea2fefb9ed99e Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Mon, 1 May 2017 21:47:15 +1200 Subject: Add squ(6df) --- games/squ.awk | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 games/squ.awk (limited to 'games') 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] +} -- cgit v1.2.3