Andrew Cooke | Contents | Latest | RSS | Previous | Next

C[omp]ute

Welcome to my blog, which was once a mailing list of the same name and is still generated by mail. Please reply via the "comment" links.

Always interested in offers/projects/new ideas. Eclectic experience in fields like: numerical computing; Python web; Java enterprise; functional languages; GPGPU; SQL databases; etc. Based in Santiago, Chile; telecommute worldwide. CV; email.

Personal Projects

Choochoo Training Diary

Last 100 entries

[Programming] React Leaflet; AliExpress Independent Sellers; Applebaum - Twilight of Democracy; [Politics] Back + US Elections; [Programming,Exercise] Simple Timer Script; [News] 2019: The year revolt went global; [Politics] The world's most-surveilled cities; [Bike] Hope Freehub; [Restaurant] Mama Chau's (Chinese, Providencia); [Politics] Brexit Podcast; [Diary] Pneumonia; [Politics] Britain's Reichstag Fire moment; install cairo; [Programming] GCC Sanitizer Flags; [GPU, Programming] Per-Thread Program Counters; My Bike Accident - Looking Back One Year; [Python] Geographic heights are incredibly easy!; [Cooking] Cookie Recipe; Efficient, Simple, Directed Maximisation of Noisy Function; And for argparse; Bash Completion in Python; [Computing] Configuring Github Jekyll Locally; [Maths, Link] The Napkin Project; You can Masquerade in Firewalld; [Bike] Servicing Budget (Spring) Forks; [Crypto] CIA Internet Comms Failure; [Python] Cute Rate Limiting API; [Causality] Judea Pearl Lecture; [Security, Computing] Chinese Hardware Hack Of Supermicro Boards; SQLAlchemy Joined Table Inheritance and Delete Cascade; [Translation] The Club; [Computing] Super Potato Bruh; [Computing] Extending Jupyter; Further HRM Details; [Computing, Bike] Activities in ch2; [Books, Link] Modern Japanese Lit; What ended up there; [Link, Book] Logic Book; Update - Garmin Express / Connect; Garmin Forerunner 35 v 230; [Link, Politics, Internet] Government Trolls; [Link, Politics] Why identity politics benefits the right more than the left; SSH Forwarding; A Specification For Repeating Events; A Fight for the Soul of Science; [Science, Book, Link] Lost In Math; OpenSuse Leap 15 Network Fixes; Update; [Book] Galileo's Middle Finger; [Bike] Chinese Carbon Rims; [Bike] Servicing Shimano XT Front Hub HB-M8010; [Bike] Aliexpress Cycling Tops; [Computing] Change to ssh handling of multiple identities?; [Bike] Endura Hummvee Lite II; [Computing] Marble Based Logic; [Link, Politics] Sanity Check For Nuclear Launch; [Link, Science] Entropy and Life; [Link, Bike] Cheap Cycling Jerseys; [Link, Music] Music To Steal 2017; [Link, Future] Simulated Brain Drives Robot; [Link, Computing] Learned Index Structures; Solo Air Equalization; Update: Higher Pressures; Psychology; [Bike] Exercise And Fuel; Continental Race King 2.2; Removing Lowers; Mnesiacs; [Maths, Link] Dividing By Zero; [Book, Review] Ray Monk - Ludwig Wittgenstein: The Duty Of Genius; [Link, Bike, Computing] Evolving Lacing Patterns; [Jam] Strawberry and Orange Jam; [Chile, Privacy] Biometric Check During Mail Delivery; [Link, Chile, Spanish] Article on the Chilean Drought; [Bike] Extended Gear Ratios, Shimano XT M8000 (24/36 Chainring); [Link, Politics, USA] The Future Of American Democracy; Mass Hysteria; [Review, Books, Links] Kazuo Ishiguro - Never Let Me Go; [Link, Books] David Mitchell's Favourite Japanese Fiction; [Link, Bike] Rear Suspension Geometry; [Link, Cycling, Art] Strava Artwork; [Link, Computing] Useful gcc flags; [Link] Voynich Manuscript Decoded; [Bike] Notes on Servicing Suspension Forks; [Links, Computing] Snap, Flatpack, Appimage; [Link, Computing] Oracle is leaving Java (to die); [Link, Politics] Cubans + Ultrasonics; [Book, Link] Laurent Binet; VirtualBox; [Book, Link] No One's Ways; [Link] The Biggest Problem For Cyclists Is Bad Driving; [Computing] Doxygen, Sphinx, Breathe; [Admin] Brokw Recent Permalinks; [Bike, Chile] Buying Bearings in Santiago; [Computing, Opensuse] Upgrading to 42.3; [Link, Physics] First Support for a Physics Theory of Life; [Link, Bike] Peruvian Frame Maker; [Link] Awesome Game Theory Tit-For-Tat Thing; [Food, Review] La Fabbrica - Good Italian Food In Santiago; [Link, Programming] MySQL UTF8 Broken; [Link, Books] Latin American Authors

© 2006-2017 Andrew Cooke (site) / post authors (content).

Y Combinators and Monads - How?

From: "andrew cooke" <andrew@...>

Date: Wed, 2 May 2007 13:38:17 -0400 (CLT)

Search for "unix pipe erlang" and it seems like everyone and their dog has
written code something like that below (they allows functions to be
chained together as parallel processes).

But what if my functions need to manage some state?  I have a rather large
(and useful) (quasi-)monad library.  How do I integrate that?

Andrew

PS "Response" doesn't make much sense out of context, but provides some
information for logging.

-module(chain).

-import(choopa_util, [res_info/2, res_info/3]).
-export([new_end/3, new_link/4, echo/2]).


bootstrap(Fun) ->
    Pid = spawn(fun() -> Fun(Fun) end),
    fun(Message) -> Pid ! Message end.

new_end(Response, Filter, Name) ->
    bootstrap(fun(Self) ->
                      receive
                          {data, Data} ->
                              Filter(Data),
                              Self(Self);
                          exit ->
                              res_info(Response, "Exiting ~s", [Name]);
                          Other ->
                              res_info(Response, "~s: unexpected ~p ",
                                       [Name, Other]),
                              Self(Self)
                      end
              end).

new_link(Response, Filter, Name, Next) ->
    bootstrap(fun(Self) ->
                      receive
                          {data, Data} ->
                              Next({data, Filter(Data)}),
                              Self(Self);
                          exit ->
                              Next(exit),
                              res_info(Response, "Exiting ~s", [Name]);
                          Other ->
                              res_info(Response, "~s: unexpected ~p ",
                                       [Name, Other]),
                              Self(Self)
                      end
              end).

echo(Response, Tag) ->
    fun(Message) -> res_info(Response, Tag),
                    Message
    end.

Bananas etc

From: "andrew cooke" <andrew@...>

Date: Wed, 2 May 2007 13:45:56 -0400 (CLT)

Some answers after sleeping on this (original post was sent yesterday;
reposted today due to svn shenanigans - not having a very good day,
svn-wise).

1 - What I keep calling monads are really bananas and folds and all that
stuff - ana-thing and cata-wotsist - and I really need to get those clear
(and their relation to monads).  For example, the most popular of my
"monad" functions is really a fold that cleans up after a A -> B -> (C *
A) converts [B] to [C] (and what is that thing called? - it's the A that
is my "monad").

2 - This is kind-of irrelevant to what I was stuck on because the levels
are different.  My monads/folds/whatevers are processing (individual items
in) lists of data, while the processes are processing (passing around)
chunks of data (sub-lists).

3 - (2) is kind-of related to streams and protocols.  Working on Mule has
made me more interested in how you define and separate protocols at
different layers (in theory easy, but in practice you seem to need to make
certain compromises).

Andrew

Comment on this post