diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 12:09:58 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2010-07-16 12:09:58 +0300 |
| commit | cae8bc6ced84c12590e3554a06a952283735363a (patch) | |
| tree | ca4f38bfcb1312bfb62fc693564d68f3e9b3e973 /test/reverse.awk | |
| parent | dbd583bd2b8a6dd40c622875a4e197360cb5aba7 (diff) | |
| download | egawk-cae8bc6ced84c12590e3554a06a952283735363a.tar.gz egawk-cae8bc6ced84c12590e3554a06a952283735363a.tar.bz2 egawk-cae8bc6ced84c12590e3554a06a952283735363a.zip | |
Move to 2.14.
Diffstat (limited to 'test/reverse.awk')
| -rw-r--r-- | test/reverse.awk | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/reverse.awk b/test/reverse.awk new file mode 100644 index 00000000..c6b2e299 --- /dev/null +++ b/test/reverse.awk @@ -0,0 +1,13 @@ +#this program creates palindromic output - slightly modified from Gawk Manual +{ + rev($0, length) +} + +function rev(str, len) { + if (len == 0) { + print " ", $0 + return + } + printf "%c", substr(str, len, 1) + rev(str, len - 1) +} |