1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/env lua
function bSearch(x,t)
if #t==0 then return end
local mid = math.max(1,math.floor(#t/2))
if x==t[mid] then return x end
if x < t[mid] then return bSearch(x,table.pack(table.unpack(t,1,mid-1))) end
if x > t[mid] then return bSearch(x,table.pack(table.unpack(t,mid+1))) end
end
local nrs={}
for l in io.lines(arg[2]) do
for nr in l:gmatch("-?%d+") do table.insert(nrs,tonumber(nr)) end
end
print(bSearch(tonumber(arg[1]), nrs) and 1 or 0)
--[[
run <script> <number> <file containing matrix>
for instance, copy the matrix below to an input file
[ 1, 2, 3, 5, 7 ]
[ 9, 11, 15, 19, 20 ]
[ 23, 24, 25, 29, 31 ]
[ 32, 33, 39, 40, 42 ]
[ 45, 47, 48, 49, 50 ]
--]]
|
