|
29.10.2007, 10:19
#34900618
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Сообщения: 1 675
Рейтинг:
0
/ 0
|
|
|
|
Для направленного графа
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
static items:={{ 1 , 2 },{ 1 , 3 },{ 2 , 4 },{ 2 , 5 },{ 3 , 7 },{ 3 , 6 },{ 4 , 7 },{ 7 , 8 },{ 6 , 7 }}
proc main
tree("", 1 , 7 )
proc tree(path,id1,id2)
aeval(child_list(id1),{|id|chk(path+str(id1)+"-",id,id2)})
func child_list(id)
local list:={}
aeval(items,{|item|iif(item[ 1 ]=id,aadd(list,item[ 2 ]),nil)})
return list
proc chk(path,id,id2)
if id=id2
?path+str(id2)
else
tree(path,id,id2)
end
Вывод:
1-2-4-7
1-3-7
1-3-6-7 |
|
|
