We’re rewarding the question askers & reputations are being recalculated! Read more.

2 added 915 characters in body

# R, 47 bytes

function(v,a=v[v>0],b=sort(a))all(v[a]==b&a!=b)


Try it online!

Unrolled code and explanation :

f=
function(v){          # v vector of tunnel indexes (1-based) or values <= 0

a = v[v>0]          # get the tunnel positions

b = sort(a)         # sort the tunnel positions ascending

c1 = v[a]==b        # get the values of 'v' at positions 'a'
# and check if they're equal to the sorted positions 'b'
# (element-wise, returns a vector of TRUE/FALSE)

c2 = a != b         # check if positions 'a' are different from sorted positions 'b'
# (to exclude tunnels pointing to themselves, element-wise,
#  returns a vector of TRUE/FALSE)

all(c1 & c2)        # if all logical conditions 'c1' and 'c2' are TRUE then
# returns TRUE otherwise FALSE
}


# R, 47 bytes

function(v,a=v[v>0],b=sort(a))all(v[a]==b&a!=b)


Try it online!

# R, 47 bytes

function(v,a=v[v>0],b=sort(a))all(v[a]==b&a!=b)


Try it online!

Unrolled code and explanation :

f=
function(v){          # v vector of tunnel indexes (1-based) or values <= 0

a = v[v>0]          # get the tunnel positions

b = sort(a)         # sort the tunnel positions ascending

c1 = v[a]==b        # get the values of 'v' at positions 'a'
# and check if they're equal to the sorted positions 'b'
# (element-wise, returns a vector of TRUE/FALSE)

c2 = a != b         # check if positions 'a' are different from sorted positions 'b'
# (to exclude tunnels pointing to themselves, element-wise,
#  returns a vector of TRUE/FALSE)

all(c1 & c2)        # if all logical conditions 'c1' and 'c2' are TRUE then
# returns TRUE otherwise FALSE
}

1

# R, 47 bytes

function(v,a=v[v>0],b=sort(a))all(v[a]==b&a!=b)


Try it online!