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