Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

ITT: cons in our favorite language

Name: Anonymous 2008-10-03 23:43



typedef struct

{

    void * car;

    void * cdr;

}pair;



pair * cons(void * car, void * cdr)

{

    pair * toCons = malloc(sizeof(pair));

    toCons->car = car;

    toCons->cdr = cdr;

    return toCons;

}

Name: Anonymous 2008-10-03 23:49

car :: [a] -> a
car = head
cdr :: [a] -> [a]
cdr = tail

Newer Posts