aboutsummaryrefslogtreecommitdiff
path: root/challenge-148/abigail/lua/ch-1.lua
diff options
context:
space:
mode:
Diffstat (limited to 'challenge-148/abigail/lua/ch-1.lua')
-rw-r--r--challenge-148/abigail/lua/ch-1.lua21
1 files changed, 21 insertions, 0 deletions
diff --git a/challenge-148/abigail/lua/ch-1.lua b/challenge-148/abigail/lua/ch-1.lua
new file mode 100644
index 0000000000..246f1db062
--- /dev/null
+++ b/challenge-148/abigail/lua/ch-1.lua
@@ -0,0 +1,21 @@
+#!/opt/local/bin/lua
+
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+--
+
+--
+-- Run as: lua ch-1.lua
+--
+
+for i = 0, 100 do
+ local t = math . floor (i / 10)
+ local u = i % 10
+ if not (i == 0 or t == 1 or u == 1 or t == 7 or u == 7
+ or t == 8 or u == 8 or t == 9 or u == 9
+ or t == 2 or u == 3 or u == 5 or i == 100) then
+ io . write (i, " ")
+ end
+end
+
+io . write ("\n")