main, Lua - rextester

Language: Layout:

function main(tab)
    one=1 n=#tab
    dsp=0.1 dsm=0.1 dso=one so=0 opt={}
    for i=1,n do
        j=i wrk={} cs=0.0
        for k=1,n do 
            if j==n then j=1 end
            table.insert(wrk,j)
            cs=cs+tab[j]
            j1=j+1 if j1>n then j1=1 end
            while j1~=i do 
                if cs>one+dsp then break end
                sv=cs+tab[j1]
                if sv>=one-dsm and sv<=one+dsp then
                    ds=sv-one
                    if ds<0 then ds=-ds end
                    if ds<dso then
                        dso=ds so=sv
                        for _,j2 in pairs(wrk) do 
                            table.insert(opt,j2) 
                        end
                        table.insert(opt,j1)
                        print(so)
                    end
                end
                j1=j1+1 if j1>n then j1=1 end
            end
            if cs>one+dsp then break end
            j=j+1
        end
    end
    print "---"
    for k,v in pairs(opt) do print(v,tab[v]) end
end

main { 0.1,0.2,0.3,0.4,0.5,0.5,0.6,0.7,0.8,0.9 }

[ + ] Show input
Absolute running time: 0.15 sec, cpu time: 0.01 sec, memory peak: 6 Mb, absolute service time: 0,24 sec