|
procedure main(args)
|
|
target := integer(!args) | 3
|
|
every put(A := [], 1 to 18 by 2)
|
|
|
|
outList("Searching", A)
|
|
write(target," is ",("at "||binsearch(A, target)) | "not found")
|
|
end
|
|
|
|
procedure outList(prefix, A)
|
|
writes(prefix,": ")
|
|
every writes(!A," ")
|
|
write()
|
|
end
|