diff options
| author | Abigail <abigail@abigail.be> | 2021-04-15 18:35:14 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-04-15 18:35:14 +0200 |
| commit | b1620c481366a458f47ca2eaac91715da0914f9d (patch) | |
| tree | b8e06aa0472ef6a212590ae2a2dde4abcc49aa3e | |
| parent | a5983ebcde7e49f77690d28461dcdfeb575dc834 (diff) | |
| download | perlweeklychallenge-club-b1620c481366a458f47ca2eaac91715da0914f9d.tar.gz perlweeklychallenge-club-b1620c481366a458f47ca2eaac91715da0914f9d.tar.bz2 perlweeklychallenge-club-b1620c481366a458f47ca2eaac91715da0914f9d.zip | |
Lua solution for week 108, part 2
| -rw-r--r-- | challenge-108/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-108/abigail/lua/ch-2.lua | 41 | ||||
| -rw-r--r-- | challenge-108/abigail/t/ctest.ini | 6 |
3 files changed, 45 insertions, 3 deletions
diff --git a/challenge-108/abigail/README.md b/challenge-108/abigail/README.md index 73974ba642..d97ab66dec 100644 --- a/challenge-108/abigail/README.md +++ b/challenge-108/abigail/README.md @@ -44,6 +44,7 @@ more informations. * [Fortran](fortran/ch-2.f90) * [Go](go/ch-2.go) * [Java](java/ch-2.java) +* [Lua](lua/ch-2.lua) * [m4](m4/ch-2.m4) * [Ocaml](ocaml/ch-2.ml) * [Pascal](pascal/ch-2.p) diff --git a/challenge-108/abigail/lua/ch-2.lua b/challenge-108/abigail/lua/ch-2.lua new file mode 100644 index 0000000000..37f067c465 --- /dev/null +++ b/challenge-108/abigail/lua/ch-2.lua @@ -0,0 +1,41 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-2.lua +-- + +local COUNT = 10 +local PLAIN = 0 +local COMPUTE = 1 + +local type = PLAIN +if #arg >= 1 and arg [1] == "compute" +then type = COMPUTE +end + +if type == PLAIN +then print ("1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147") +end + +if type == COMPUTE +then local bell = {} + bell [0] = {} + bell [0] [0] = 1 + for x = 1, COUNT - 2 + do bell [x] = {} + bell [x] [0] = bell [x - 1] [x - 1] + for y = 1, x + do bell [x] [y] = bell [x] [y - 1] + bell [x - 1] [y - 1] + end + end + + io . write (1) + for x = 0, COUNT - 2 + do io . write (", " .. bell [x] [x]) + end + io . write ("\n") +end diff --git a/challenge-108/abigail/t/ctest.ini b/challenge-108/abigail/t/ctest.ini index 4b109e4310..ab10b98257 100644 --- a/challenge-108/abigail/t/ctest.ini +++ b/challenge-108/abigail/t/ctest.ini @@ -19,13 +19,13 @@ no_input = 1 [2-1/sed]
no_input = 0
-[2-1/awk,bash,c,perl]
+[2-1/awk,bash,c,lua,perl]
skip = "Not for this language"
[2-2,2-3,2-4]
skip = "Only for Perl"
-[2-2/awk,bash,c,perl]
+[2-2/awk,bash,c,lua,perl]
skip = 0
args = plain
@@ -33,6 +33,6 @@ args = plain skip = 0
args = fetch
-[2-4/awk,bash,c,perl]
+[2-4/awk,bash,c,lua,perl]
skip = 0
args = compute
|