AlexCuse

module Program

#light

open System.Threading
open StructureMap
open BrewTelligence.Domain
open BrewTelligence.Search.Indexing
open BrewTelligence.ApplicationServices
open BrewTelligence.ApplicationServices.Messaging

AlexCuse

ObjectFactory.Initialize(fun x -> x.AddRegistry (new SearchRegistry()))

let write<'T> item =
    async {
        ObjectFactory.GetAllInstances<Indexer<'T>>()
            |> Seq.iter (fun idxr -> idxr.Index item)
    }

let itemsToIndex<'T when 'T:null and 'T:not struct and 'T:equality> =
    let p = QueueProvider<'T>.Create()

AlexCuse

#light
module ProjectEuler.Program
open System;
open System.Diagnostics;
open System.Reflection;

let dynamicExecute prob =
    let probNum = prob.ToString()
    let ass = Assembly.GetExecutingAssembly()
    let modul = ass.GetType("ProjectEuler.Problem" + probNum)

AlexCuse

/*
//Software usage License : Fluent Nhibernate membership and role provider
//--------------------------------------------------
//Copyright (c) 2010, Suhel Shah (suhel.shah@gmail.com)
//All rights reserved.

//Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:

//1.  Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
//2.  Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.