0xd34df00d 04.04.2012 00:57 Azoth_primary

Очень няшно все-таки. Определить, есть ли в первом списке списков не меньше двух списков, являющихся началами некоторых списков из второго списка списков, но при этом чтобы в соответствующих списках были еще элементы? Нет ничего проще!
properIntersects less more = length (filter (\path → isJust $ find (isProperPref path) more) less) > 1
where isProperPref sp p = sp `isPrefixOf` p && length sp < length p

haskell, неговно
Recommended by:

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

and @ungaminga
#oeosht
re 7 comments !recommend ~bookmark Ssubscribe
2. 0xd34df00d → ungaminga /1 04.04.2012 01:00 Azoth_primary

Причем тут куте.

#oeosht/2
rereply
3. lockie 04.04.2012 01:15 ХОЛОДИЛЬНИКА

> Определить, есть ли в первом списке списков не меньше двух списков, являющихся началами некоторых списков из второго списка списков, но при этом чтобы в соответствующих списках были еще элементы?
рискну быть неоригинальным, но НАХУЯ?

#oeosht/3
rereply
4. 0xd34df00d → lockie /3 04.04.2012 01:16 Azoth_primary

Ищу максимальные общие поддеревья в графе выражения.

#oeosht/4
rereply
5. lockie → 0xd34df00d /4 04.04.2012 01:19 ХОЛОДИЛЬНИКА

Со дес. А што, в этих ваших хаскеллях нет ничего готового для графов? Вон даже в быдлоплюсах в бусте есть.

#oeosht/5
rereply
6. 0xd34df00d → lockie /5 04.04.2012 01:19 Azoth_primary

Недостаточно интересно ;3

#oeosht/6
rereply
7. lockie → 0xd34df00d /6 04.04.2012 01:23 ХОЛОДИЛЬНИКА

ок ;3

#oeosht/7
rereply
8. lukish 04.04.2012 06:31

smaller `properIntersects` bigger =
(>= 2) . length $ filter (flip any bigger . isProperPref) smaller
where isProperPref sp p = sp `isPrefixOf` p && (not $ null sp)

#oeosht/8
rereply
Do you really want to delete ?