challenge-148/abigail/lua/ch-1.lua


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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")