Здарова, у меня взырвается мозг с этими байтстрингами, помогите разобраться пор фавор. Код: {-# Language OverloadedStrings #-} import Network.HTTP.Simple import Control.Monad import Data.Char import System.Random import System.Environment import qualified Data.ByteString as S agents=["example1","example2"]; len=subtract 1 $ length agents genHeaders::IO [(a,S.ByteString)] genHeaders=do ua<-pickrandom agents ka<-randomRIO(110,120)::IO Int ref<-genStr (-1) [] return [("user-agent",ua),("Cache-Control","no-cahce"), ("Accept-Charset","ISO-8859-1,utf-8;q=0.7,*;q=0.7"), ("Referer","http://www.google.com/?q="++ref), ("Keep-Alive",(show ka)), ("Connection","keep-alive")] --main=getArgs >>= parseArgs >>= wordPressDos main=do h<-genHeaders sendreq h "http://locahost" sendreq headers host=(\req->httpNoBody $ setRequestHeaders headers req) =<< (parseRequest host) parseArgs=return . head wordPressDos=print pickrandom list=fmap (list !!) $ randomRIO (0,len) --genStr::Int->[Char]->IO [Char] genStr size str | size==(-1) = genStr 13 str | size==0 = return (S.pack str) | otherwise =join $ (randomRIO(65,90)>>=(\x->return (genStr (size-1) ((chr x):str))))

а в чём вопрос?

ща я скину выхлоп

в общем getStr возвращает строку, а должна байтстроку, поэтому внутри генератора задан тип стринг из-за строки ".."++ref

как пофиксить

я подписал в конце S.pack, как видно в коде

но это дало еще больше выхлопа на ошибки

сигнатура закомечена, если не заметили

++ - это для строк <> - это для моноида

ещё genHeaders::IsString a => IO [(a,S.ByteString)]

к примеру

в getStr путаются типы

S.pack пакует [Word8], а у тебя String, т.е. [Char]

последний кейс там проще в ду-нотации

| otherwise = do x <- randomRIO(65,90) genStr (size-1) ((chr x):str)

а вообще есть ramdoms

а как чар конвертнуть тогда

или заменить функцию

chr

S.pack пакует [Word8], а у тебя String, т.е. [Char]

в соседнем модуле Data.ByteString.Char8 как раз есть искомый pack

или заменить функцию

^

убрать просто chr

и тип аккумулятора будет [Word8]

в no-cache опечатка кстати

а про остальное вроде ответили

@nzvtrk будет жить. Поприветствуем!

Всем доброго времени суток)

Хотел у Вас спросить(очень банальный вопрос), но все же: За что Вы любите Haskell(его ленивый и чисто функциональный подход в решении задач)?

Хотел у Вас спросить(очень банальный вопрос), но все же: За что Вы любите Haskell(его ленивый и чисто функциональный подход в решении задач)?

Ну хаскелл привлекает тем, что он красив и тешит эго

Можно конечно чесать про безопасность и всё такое, но глубинная причина именно в этом

на хаскеле очень удобно рефакторить код, когда компилятор оказывает офигенную помощь, которые случаи рефакторинга из того, что делал и получалось легко и непренуждённо, я просто не представляю можно ли вообще сделать без косяков в каком-нибудь питоне, скажем

Хотел у Вас спросить(очень банальный вопрос), но все же: За что Вы любите Haskell(его ленивый и чисто функциональный подход в решении задач)?

я постепенно начал рассматривать языки как выборки фич и соединяющий их клей, в хаскеле просто этих фич больше всего, и они очень ненавязчивы в плане реализации, в естественном виде так сказать (пусть даже это может быть неудобно для программиста, это максимально гибко)

я постепенно начал рассматривать языки как выборки фич и соединяющий их клей, в хаскеле просто этих фич больше всего, и они очень ненавязчивы в плане реализации, в естественном виде так сказать (пусть даже это может быть неудобно для программиста, это максимально гибко)

О, у меня такая же философия

О, у меня такая же философия

Ты это, не септапод часом?

Можно писать большие приложения и самому их поддерживать с удовольствием. С другими [стиральными порошками] получается, как всегда.

Ты это, не септапод часом?

Я не знаю кто это или что это

Я не знаю кто это или что это

Гептапод точнее

Хотел у Вас спросить(очень банальный вопрос), но все же: За что Вы любите Haskell(его ленивый и чисто функциональный подход в решении задач)?

авторы что-то читают, не хотят чтоб программист страдал, потому в языке есть какие-то удобства, да еще и со временем получше становится типичный автор языка просто велосипед с квадратными колесами делает, а иногда еще и с гвоздями на седле, чтоб программисту жизнь медом не казалась, так что выбирать особенно и не из чего

Сразу делать велик - наверное слишком амбициозная задача. Может, начинать с самоката, и потом добавлять остальное?

Гептапод точнее

Гептапод - это типа инопланетянин? Ну да. И я не один такой. Нас 857

Гептапод - это типа инопланетянин? Ну да. И я не один такой. Нас 857

Просто заметил что аватарка похожа на их письмена :D

Ага

Вот так

хм а если я сам заблуждаюсь

это все еще дзен?

хм а если я сам заблуждаюсь

Ну это не возможно

...Тем временем Free-монады идут в блокчейн: https://medium.com/@ENQBlockchain/why-haskell-eacb087f3adb

Пруф? Открытая репа или не было! ;)

Пруф? Открытая репа или не было! ;)

Открыта она: https://github.com/Enecuum/Node

Открыта она: https://github.com/Enecuum/Node

Наверное было бы не плохо ещё оптимизашки от Олега втулить для фри монады

Оптимизации будут тогда, когда станет ясно, что они нужны. И не раньше, чем появятся графики с показателями (у меня в планах это в ближайшие две итерации начать делать)

К тому же недавно в кметтовском стриме он как раз разбирал это

Нельзя просто так брать и "оптимизировать", даже если очень хочется

Может выясниться, что это не главное место, на которое нужно тратить услилия. А главное, оно, например, в сетевом взаимодействии

В общем, никаких оптимизаций, пока сама проблема не обозначена

А перевести это на Church, например, не так уж и сложно

Или что-нибудь другое. У меня был опыт оптимизации free-кода (моя stm либа, причем Haskell и C++). С Кметовскими и Олеговскими предложениями по оптимизации ознакомлюсь

Inlining derived typeclass methods - Stack Overflow https://stackoverflow.com/questions/52601129/inlining-derived-typeclass-methods

Спасибо :)

Спасибо :)

Это не про оптимизации)

Ещё один нубский вопрос - как сделать двусвязный список средствами хаскеля

Как сделать связь в другую сторону? Подозреваю что где - то тут ленивость засела, но не могу понять где.

Tying the knot

??

Комбинатор неподвижной точки порядка 2?

Это общее гуглабельное название метода

Комбинатор неподвижной точки порядка 2?

чо? mutual recursion?

https://github.com/Mojang/DataFixerUpper/blob/master/src/main/java/com/mojang/datafixers/kinds/K2.java https://github.com/Mojang/DataFixerUpper/blob/master/src/main/java/com/mojang/datafixers/kinds/K1.java :D

@hollyyymollyyy будет жить. Поприветствуем!

Как сделать связь в другую сторону? Подозреваю что где - то тут ленивость засела, но не могу понять где.

Zipper не подойдёт, случаем?

Haskell. Zipper — производная от типа https://www.lovemedia.net/articles/haskell-zipper/

Добрый день всем

Все еще борюсь с проблемным ботом

ShouldBeDeleted msg -> model <# do fetch $ banUser msg fetch $ deleteMessage msg return NoOp

Все еще не пойму, как получается, что дальше fetch $ banUser msg не идут вычисления

Может там монада, короткозамыкающая?

Это как?

@PineappleZombie, и что с этим можно сделать?

Что-нибудь вроде ExceptT m

Не вызывать throwException или как его?

Ну или просто блосает где-нибудь исключение