diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2021-07-12 10:48:31 -0400 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2021-07-12 10:48:31 -0400 |
| commit | 34a6514808c066bee4e7f3d7d8bdeb67db056392 (patch) | |
| tree | 05d0e268045ef3d6f971ec0e0c3eb1a48bdb7edd /challenge-114/stuart-little/lua/ch-1.lua | |
| parent | b59f8f4008bb8ec491a9e89f097f04ce54aed4c0 (diff) | |
| parent | 1aa7b6eaba2a58fc1ef0612373e3aed6b61f345d (diff) | |
| download | perlweeklychallenge-club-34a6514808c066bee4e7f3d7d8bdeb67db056392.tar.gz perlweeklychallenge-club-34a6514808c066bee4e7f3d7d8bdeb67db056392.tar.bz2 perlweeklychallenge-club-34a6514808c066bee4e7f3d7d8bdeb67db056392.zip | |
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club
Diffstat (limited to 'challenge-114/stuart-little/lua/ch-1.lua')
| -rwxr-xr-x | challenge-114/stuart-little/lua/ch-1.lua | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-114/stuart-little/lua/ch-1.lua b/challenge-114/stuart-little/lua/ch-1.lua new file mode 100755 index 0000000000..f507160ecd --- /dev/null +++ b/challenge-114/stuart-little/lua/ch-1.lua @@ -0,0 +1,16 @@ +#!/usr/bin/env lua + +-- run <script> <number> + +function reflect(st,bt) + return (bt==1) and (st .. st:sub(1,st:len()-1):reverse()) or (st .. st:reverse()) +end + +if arg[1]:match("^9+$") then + print(1 .. ("0"):rep(arg[1]:len()-1) .. 1) + os.exit() +end + +l = arg[1]:len() +hlf1 = arg[1]:sub(1,math.ceil(l/2)) +print((reflect(hlf1,l%2) > arg[1]) and reflect(hlf1,l%2) or reflect(("%d"):format(hlf1+1),l%2)) |