| ответ юзеру sardv на пост в levada_center |
[Oct. 26th, 2009|02:10 pm] |
знаете в чём ваша проблема?
А в том что: Ходорковского (даже если его три раза незаконно четвертуют) любить не за что.
вы навязываете народу ложную дихотомию: либо пу(тм) либо ходорковский.
и готов спорить (что пу(тм) безумно этому радуется и мысленно вас благодарит)
ЖЖ часто не даёт мне коментить. Поэтому отвечаю здесь. Если скопируете этот ответ в сообщество (тут удалю) |
|
|
| дополнение к коменту юзеру mr-aleph |
[Oct. 26th, 2009|05:08 pm] |
пидарской СУП опять отказывается принимать от меня коменты:
вот мой комент:
module Main where
type Vertex = Int
type Leg = (Vertex,Vertex)
type Graph = [Leg]
isCycle :: Graph -> Bool
isCycle a | isc a == [] = False
| otherwise = True
isc :: Graph -> Graph
isc a | (length a) == (length b) = a
| otherwise = isc b
where b = isc_ a []
isc_ :: Graph -> Graph -> Graph
isc_ [] a = a
isc_ ((f,t):xs) a | and [found f r, found t r] = isc_ xs ((f,t):a)
| otherwise = isc_ xs a
where r = xs++a
found :: Vertex -> Graph -> Bool
found _ [] = False
found x ((xf,xt):xs) | or [x==xf, x==xt] = True
| otherwise = found x xs
|
|
|