Кооперативные потоки с нуля в 33 строках на Хаскеле

[roman_kashitsyn]

Материал Габриеля как всегда восхитителен, а вот перевод мне не понравился, извините.

[kirichenko]

Прикольно, хоть и ничего не понятно

[omnisens]

Осталось только рейс кондишены заимплементить, и можно смело выкидывать сишные потоки!

[Vitter]

)) Если учесть, что у Хаскеля есть легковесные настоящие потоки — параллельно программировать становится невероятно легче

[Voviandr]

Есть исходник с компилируемым рабочим кодом к этой статье (правда, слегка отредактированный). основные изменения — расширения компилятора {-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE DeriveAnyClass #-},
data ThreadF next = Fork next next
| Yield next
| Done
deriving (Functor,Applicative, Monad,MonadIO),
liftIO вместо lift. Полный исходник здесь — gist.github.com/SergeyStretovich/43e7dfd93a125131bb2b62216cb19691

[roman_kashitsyn]

Кстати, принципам описанным в статье есть весьма полезные применения: https://www.thev.net/PaulLiu/invert-inversion.html