#---------------
# determine which items from a list of integers are closest to a target value
#---------------
# Args:
#   arrows   list of integer
#   target   target value
# Returns:
#   indices of values in the list which are closest to the target value
#
proc closest_hit { arrows target} {

        set last 0
        set res ""
        
        for { set i 0 }  { $i < [llength $arrows] } { incr i } {
                set diff [expr abs($target - [lindex $arrows $i])]
                puts "diff = $diff"
                if { $diff == 0 } { lappend res $i }
                if { $diff < $last } { 
                        puts "$last $diff"
                        set res $i
                        }
                        set last $diff 
        }
        
        return $res
} 


puts [closest_hit "5 6 10 20 30 10" 10]