169 похожих чатов

А вот вопрос куда копать не понимаю, вроде работает функция,

но возращает странное

take 1 ategs
[TagBranch "a" [("href","/?sa=X&ved=0ahUKEwiQ7Pbhzs6FAxURBNsEHVRuDAgQOwgC")] [TagBranch "span" [("class","V6gwVd")] [TagLeaf (TagText "G")],TagBranch "span" [("class","iWkuvd")] [TagLeaf (TagText "o")],TagBranch "span" [("class","cDrQ7")] [TagLeaf (TagText "o")],TagBranch "span" [("class","V6gwVd")] [TagLeaf (TagText "g")],TagBranch "span" [("class","ntlR9")] [TagLeaf (TagText "l")],TagBranch "span" [("class","iWkuvd tJ3Myc")] [TagLeaf (TagText "e")]]]


1 ) тут должны были быть только а теги
2) "/?sa=X&ved=0ahUKEwiQ7Pbhzs6FAxURBNsEHVRuDAgQOwgC" такое в документе сохраненном (https://www.google.com/search?q=haskell) не нашлось....

как дальше разбираться, при чем такое же с поиском тега title работает ожидаемо..

6 ответов

49 просмотров

тут ровно один тэг <a>, но он содержит потомков

а у меня нашлось

Fedor- Автор вопроса
Cheese Syrowiecki
а у меня нашлось

наверное не очень коректно кейт ищет...

вот так будет, если отформатировать [ TagBranch "a" [("href", "/?sa=X&ved=0ahUKEwiQ7Pbhzs6FAxURBNsEHVRuDAgQOwgC")] [ TagBranch "span" [("class", "V6gwVd")] [TagLeaf (TagText "G")] , TagBranch "span" [("class", "iWkuvd")] [TagLeaf (TagText "o")] , TagBranch "span" [("class", "cDrQ7")] [TagLeaf (TagText "o")] , TagBranch "span" [("class", "V6gwVd")] [TagLeaf (TagText "g")] , TagBranch "span" [("class", "ntlR9")] [TagLeaf (TagText "l")] , TagBranch "span" [("class", "iWkuvd tJ3Myc")] [TagLeaf (TagText "e")] ] ]

Fedor- Автор вопроса
Cheese Syrowiecki
вот так будет, если отформатировать [ TagBranch ...

Это я понял, а дальше, если я хочу выкинуть не нужное надо делать что то типа такого upperCase = transformTree f where f (TagBranch name atts inner) = [TagBranch (map toUpper name) atts inner] f x = [x]

Cheese Syrowiecki
вот так будет, если отформатировать [ TagBranch ...

например, можно к этому применить > fold [text | TagLeaf (TagText text) <- universeTree a] "Google"

Похожие вопросы

Обсуждают сегодня

Я тут за тем, чтобы задать вопрос, так как не знаю ассемблер, учу с/с++. Короче, насколько дорога операция перехода в функцию при ее вызове? Дело в том, что в с++ есть макросы...
Максим Рябцев
12
Anyone here suffers from unexplained aural migraines, who would be up for talking for a bit? Doesn't *have* to be aural, but I am not asking about headaches, I mean actual mi...
Martin Rys
55
А какие чаты вообще в ходу? Auto aim? И что еше
do you think you're better off alone? А
13
hello friends. Do you know how can I learn getx? I have a software project that I should deliver it up to 5 weeks later and I need to learn firebase too. I will be thankfull
AmirHossein Razavi
15
Привет, нужен совет старших товарищей. Есть глобальная переменная var DefaultDataFolder:string; инициализируем DefaultDataFolder:='a:\_OUT\'; есть примитивная процедур...
Max Otto
14
Доброе время суток! у меня тут иноды закончились. и понял почему по сути кстит, я периодически очищаю постгрес и сентри контайнер: postgres=# DELETE FROM nodestore_node WHER...
Юсиф Насиров
9
Какой дос блять?
007
9
Вопрос. Теоретический. Есть список команд. Команды отправляю в обработку некой функции, по очереди. Разные команды могут давать разные результаты после обработки. В зависимос...
Serjone
7
lazarus-3.2.0/gtk, linux патч "имя проекта по умолчанию project1 -> prj" день добрый не нравится "именя проекта по умолчанию" (project1), к.раз приходится переименовывать (н...
livontiy
5
Коллеги, а в чём сейчас хорошо писать на перле, в смысле ide? Пробовал в идее с плагином, подсветка есть, даже какие-то предупреждения есть, но рефакторинга считай нет. Перене...
Дмитрий Петров
9
Карта сайта