3 data CP = CP Integer String
\r
5 //cpName :: CP -> String
\r
6 cpName CP cp name = name
\r
8 connectionPoints :: Integer -> [(CP, CP)]
\r
9 connectionPoints n = []
\r
11 hasTerminalProblems :: Integer -> Boolean
\r
12 hasTerminalProblems uc =
\r
13 let cps = connectionPoints uc
\r
14 cpCount = length cps
\r
16 dnames = map cpName dcps
\r
17 dcpNameCount = length $ unique $ sort dnames
\r
18 in cpCount != dcpNameCount
\r