diff options
| author | 冯昶 <seaker@qq.com> | 2021-04-23 11:23:51 +0800 |
|---|---|---|
| committer | 冯昶 <seaker@qq.com> | 2021-04-23 11:23:51 +0800 |
| commit | 9f5a7a1af0399189b53be44ee94d534606cb8bdd (patch) | |
| tree | cf1e2bfe0ff9e63af11cb3dea9f7a79c1d2b726d /challenge-104/abigail/lua/ch-2.lua | |
| parent | f07721a447942936d7189b4beec3c2acae0c635d (diff) | |
| parent | 9571f967ddd4d11a0195c2b9f8f3fbb63fad9a15 (diff) | |
| download | perlweeklychallenge-club-9f5a7a1af0399189b53be44ee94d534606cb8bdd.tar.gz perlweeklychallenge-club-9f5a7a1af0399189b53be44ee94d534606cb8bdd.tar.bz2 perlweeklychallenge-club-9f5a7a1af0399189b53be44ee94d534606cb8bdd.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'challenge-104/abigail/lua/ch-2.lua')
| -rw-r--r-- | challenge-104/abigail/lua/ch-2.lua | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/challenge-104/abigail/lua/ch-2.lua b/challenge-104/abigail/lua/ch-2.lua new file mode 100644 index 0000000000..70d1a3905d --- /dev/null +++ b/challenge-104/abigail/lua/ch-2.lua @@ -0,0 +1,35 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-2.lua +-- + +local tokens = 12 +local max_take = 3 + +while tokens > 0 +do local s = "" + if not (tokens == 1) + then s = "s" + end + io . write ("How many tokens do you take? ") + io . write (string . format ("(%2d token%s are left) ", tokens, s)) + + local take = tonumber (io . read ("*l")) + + if take and 1 <= take and take <= max_take + then local takes = max_take + 1 - take + local s = "" + if not (takes == 1) + then s = "s" + end + io . write (string . format ("Computer takes %d token%s\n", takes, s)) + tokens = tokens - (max_take + 1) + end +end + +io . write ("Computer wins\n") |