хм...

а можешь вторую версию питона попробовать

там была ускоренная

щас найду

через join

ну вот оно у меня прямо как есть работает в два раза лучше pypy

Хм. В общем самый бейзлан я причесал, тут https://pastebin.com/JM6qAnUW

вот этот

а не

может, он плох был по стрейсу?

https://pastebin.com/rF5SDH7s

это вроде

по времени

там питоновое что-то

да это более быстрая питоновая версия

с которой я сравнивал

ну у меня вроде такая же

в гисте другая

я hPut смотрел у fast-builder-п

он там был хуже чем кастомные настройки размера чанков

а. да, это опять быстрее, но тут есть нюанс

и ради интереса моя версия за сколько отрабатывает?

я ж вернул субоптимальный парсинг

с векторами и fast-builder

кстати я думаю питон собирает строгий байтстринг

ну аналог

в итоге у него 110000/32678 раз меньше вызовов write

*2

у Haskell ещё и + poll

но это всё мелочи, т.к. ещё gc

Ну у питона полюбому строки строгие. Других нету.

Ну у питона полюбому строки строгие. Других нету.

Я что-то подумал, что вдруг если это прочитал бы не программист...

Сдаётся мне, что придётся запилить бенчмарк.

А не пробовали этот код в eta прогнать? Там бы и jit от жвм из коробки был

Заодно бы узнали какие перспективы у хаскеля в жвм

зачем бенчмарк, чего бенчмарк?

JIT тут не особо поможет, ИМХО, ибо тормозит IO.

у еты никаких, используйте inline-java

нет

GC тоже

и уже обогнали

jit может помочь чанки лучше в fd отдавать и все

и то не факт

а с luajit сравните плз, либо я сам когда дома окажусь

да, короче вообще все, что не относится к IO тут неважно

хоть как парси

хоть где храни

вектор, список...

серьезно? @qnikst вчера наоборот говорил

ну, с некоторыми оговорками. у меня версия на списках примерно так же работает, как и на векторах

т.е основное - это как оно потом выводится.

ну у меня на списках 4с

на векторах 1.5

вот например - довольно быстро, но всё равно медленно: main = do v1 <- V.fromList . BS.words <$> BS.hGetContents stdin let p = V.ifilter (\i _ -> even i) v1 let s = V.ifilter (\i _ -> odd i) v1 hSetBinaryMode stdout True hSetBuffering stdout (BlockBuffering (Just 10485760)) forM p $ \pref -> do let zu = foldMap (\x -> mkb pref x) s B.hPutBuilder stdout zu where mkb s1 s2 = B.byteString s1 <> B.byteString s2 <> B.char7 '\n'

3с на списках

но чтобы это сделать нужно решить все проблемы с IO

@voidlizard @qnikst а ОС у вас какие?

nixos

да это без разницы же

ну винда бы дала отличие

setBinary у меня ни на что не влияет, равно как и BlockBuffering

почему тогда настолько результаты разные?

ну я на ноуте делаю, ноут старый

@voidlizard ты мою версию запускал?

ползти к рабочему месту лень.

сейчас твою запущу

а скинь её еще раз плс

блин я на телефоне

эта - https://gist.github.com/qnikst/a06ebe89274fd56b58372e3f9e37ba76 ?

да похода

похожа

@stupidwasteofspace решением проблем с ИО ускорили с 50 до 4, а всем остальным с 4 до 1.5 так что все из-за ИО не особенно большое преувеличение

fast-builder же стрёмный?

хорошо у меня работал

в два раза быстрее, чем у меня и чем питон

@stupidwasteofspace ну вон похоже результаты сходятся

вообще если хочется правильное быстрое и хорошее решение то это будет c-like с картами отступов mmap и прочей ерундой

короче, мораль в чем - в putStr понасовали poll-ов ?

может даже будет работать для данных не влезающих в память

@voidlizard не

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

как только сделали большие чанки и решили проблемы с ИО