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;

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

// 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

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

daniel42

" Setup Pathogen
filetype off
call pathogen#runtime_append_all_bundles() 
call pathogen#helptags()

daniel42

{- One solution to fizzbuzz. I think it's correct
 - Took longer than 10 minutes but I'm still pretty
 - new to haskell .
 -}
fizzbuzz n
  | mod3 n && mod5 n = "FizzBuzz"
  | mod3 n = "Fizz"
  | mod5 n = "Buzz"
  | otherwise = show n 
    where mod5 x = x `mod` 5 == 0

daniel42

package MyApp;
use Moose;
use namespace::autoclean;

use Catalyst::Runtime 5.80;

# Set flags and add plugins for the application
#
#         -Debug: activates the debug mode for very useful log messages
#   ConfigLoader: will load the configuration from a Config::General file in the

daniel42

#!/usr/bin/env perl
use 5.12.0;
use warnings;
use Math::Random;
use Data::Dumper;

=pod
A little perl script for determining the draft order for a fantasy football (or any sport) 
league.

daniel42

#!/usr/bin/env perl
use Modern::Perl;
use MooseX::Declare;
use TryCatch;
use 5.12.0;

class BankAccount {
    has 'balance' => ( isa => 'Num', is => 'rw', default => 0 );
    
    method deposit(Num $amount) {

daniel42

#!/opt/personal/pkg/perl5.10/bin/perl 
# A script to combine some files or files in a directory together in a path
use Modern::Perl;
use Cwd 'abs_path';
use File::Find;
use Getopt::Long;

sub main {
    my $regex;
    GetOptions('regex=s' => \$regex);