0xd34df00d — Кажется, иногда я переусердствую с ...

0xd34df00d 16.02.2012 13:33 Azoth_primary

Кажется, иногда я переусердствую с лямбдами: http://paste.pocoo.org/show/551968/

c++, говно

Recommended by:

@pooq: моча съела говно

#oisooh

18 comments

recommend

bookmark

tree plain

1. rman 16.02.2012 13:34 Gajim

да нет, ок

#oisooh/1

2. hirthwork 16.02.2012 13:34 mcabber

ты жалкий позер, нихуя не понимающий в «переусердствую»

#oisooh/2

3. 0xd34df00d → hirthwork /2 16.02.2012 13:35 Azoth_primary

Ну расскажи мне.

#oisooh/3

4. magog 16.02.2012 13:48 Azoth

не вижу ничего ужастного. ВОт если бы всен это было ОДНОЙ лямбдой, то да. Был бы пиздец

#oisooh/4

5. magog → hirthwork /2 16.02.2012 13:49 Azoth

двачую этого анализера. Все верно сказал.

#oisooh/5

6. 0xd34df00d → magog /5 16.02.2012 13:52 Azoth_primary

checkFL fl (u, v) = v `IS.member` (fs fl IM.! u)
uniteFL fl (u, v) = FList $ IS.fold (IM.update (\_ → Just set)) fs' set
where fs' = fs fl
set = uncurry IS.union $ join (***) (fs' IM.!) (u, v)
uniteFLChecked fl (u, v) | checkFL fl (u, v) = fl
| otherwise = uniteFL fl (u, v)
fromVerts vs = FList $ foldl' (\m i → IM.insert i (IS.singleton i) m) IM.empty vs
fromVertsA = fromVerts . elems
type KrusState g w = (g w, g w, FList)
stepKrus (g, res, verts) | Just e ← minEdge g = stepKrus $ handleEdge (g, res, verts) e
| otherwise = (g, res, verts)
handleEdge (g, res, verts) we@(e, w) = (remMinEdge g, res', verts')
where (res', verts') | checkFL verts e = (res, verts)
| otherwise = (addEdge we res, uniteFL verts e)

Вот, покушай этих няшных лямбд.

#oisooh/6

7. magog → 0xd34df00d /6 16.02.2012 14:03 Azoth

говно какоето. НАбор букв.

#oisooh/7

8. 0xd34df00d → magog /7 16.02.2012 14:06 Azoth_primary

Нет, хаскель.

#oisooh/8

9. hirthwork → 0xd34df00d /8 16.02.2012 14:06 mcabber

нет говно.

#oisooh/9

10. 0xd34df00d → hirthwork /9 16.02.2012 14:06 Azoth_primary

У тебя баттхерт.