Многие знают, что на моих практических занятиях по ООП студенты пишут интерпретатор функционального языка fun, чем-то похожего на scheme.
Вот как на языке fun выглядит эхо-http-сервер :)
let handler := fun(r) fun(w) do! (writeHeaders w) (w r);
let writeHeaders := fun(w) w "HTTP/1.1 200 OK\r\n\r\n";
listen! 80 handler;
Собственно одна из задач -
(
Read more... )