278
@verb #7165:"find_tri" this none this rxdo #7165
@program #7165:"find_tri" this none this
one_off = $list_utils:make(length(this.graph), {})
for x in [1..length(this.graph)]
  for y in (this.graph[x])
    for z in (this.graph[y])
      if (z != x)
        one_off[x] = setadd(one_off[x], {z, y})
      endif
    endfor
  endfor
endfor
triangles = {}
for x in [1..length(one_off)]
  for y in (one_off[x])
    if (x in this.graph[y[1]])
      triangles = setadd(triangles, $list_utils:sort({x, @y}))
    endif
  endfor
endfor
return triangles
"Last modified by manta (#7165) on Sun Sep 13 01:57:08 1998 EDT."
.

0