chk_double
1234567891011121314151617181920212223242526272829
using Printf
function open_file(fname)
println("Open File: ", fname, "\n")
open(fname) do fin
lines = readlines(fin)
end
end
function print_double(array)
coord_dict = Dict()
line_count = 1
for line in array
if occursin(r"(^\d*,\d*)(:.*$)", line)
(coord, data) = split(line, ":")
if coord ∈ keys(coord_dict)
@printf "%3d: (%s) -> %s\n" line_count coord data
else
coord_dict[coord] = data
end
end
line_count += 1
end
end
#-----main Program-----
for i in eachindex(ARGS)
lines_data = open_file(ARGS[i])
@time print_double(lines_data)
Julia
INFO