摘要: var a:array[1..200] of longint; b:array[1..200] of longint; len1,len2:longint; n:longint; procedure inti; be... 阅读全文
posted @ 2015-09-23 21:18 ROLL-THE-FIRST 阅读(170) 评论(0) 推荐(0) 编辑
摘要: dfs,每次搜到打标签,制成false,把整个图搜一遍,每次搜到联通块时答案加一。var map:array[0..110,0..110] of boolean; i,j,n,c,ans:longint; ok:boolean; ch:char... 阅读全文
posted @ 2015-09-23 21:03 ROLL-THE-FIRST 阅读(134) 评论(0) 推荐(0) 编辑