daniel42

    my $acc = sum(map { calc($_, $settings, $self) } @desc);

daniel42

// To compile: fsc -r ~/workplace/repos/suave/Suave/Suave.dll simplesuave.fs
// To run: MONO_PATH=$MONO_PATH:/Users/dc/workplace/repos/suave/Suave mono simplesuave.exe 
open Suave.Web
open Suave.Combinator

choose [ url "/hello" >>= ok ("Hello World" |> cnst); ] 
|> web_server [|HTTP, "127.0.0.1",8080|]                   
|> Async.RunSynchronously                                 
|> ignore ;; 

daniel42

/**
 * On my mac, compile single file like this:
 * clang -DUSEMAIN bit_vector.c
 * gcc -DUSEMAIN bit_vector.c
 *
 * TODO: Run this through valgrind. I don't think I'm leaking memory
 * TODO: This implementation could probably do more error checking. It
 * does'nt validate the values being passed in.
 */
#include <stdio.h>

daniel42

#ifndef _BIT_VECTOR_H
#define _BIT_VECTOR_H

typedef struct bit_vector {
    // Bits for the bit vector
    unsigned char* bits;

    // Number of bits in the vector
    unsigned int size;
} bit_vector_t;