hodzanassredin

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
//http://jazzy.id.au/default/2012/11/06/iteratees_for_imperative_programmers.html
namespace Iteratee
{
    class Program
    {

hodzanassredin

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace FirstClassProperties
{
    class Property<T, CONTAINERT>
    {
        T _val;

hodzanassredin

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

public static class ThreadExpression
{
    public static T Thread<T>(this T obj, params Action<T>[] argsRest)
    {
        foreach (var item in argsRest)

hodzanassredin

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

class Program
{
    static void Main(string[] args)
    {
        var lst = SafeListMethods.Create<String>();

hodzanassredin

public partial class Form1 : Form
    {
        private Model m = new Model();
        public Form1()
        {
            InitializeComponent();
            m.AllowedToReset.AddWatcher(x => button1.Enabled = x);
            m.Count.AddWatcher(x => textBox1.Text = x.ToString());
            m.Init();
        }

hodzanassredin

// Learn more about F# at http://fsharp.net
// See the 'F# Tutorial' project for more help.

type MyObjectMessage = 
    | PrintState
    | Set of int;;

let MyObject() = 
    let refVar = ref 0
    let dispatcher = fun message ->

hodzanassredin

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace Reducable
{
    //https://github.com/clojure/clojure/blob/master/src/clj/clojure/core/reducers.clj
    public static class ReduceExts1
    {

hodzanassredin

type 'a Source =
    | Push of (('a Option -> Unit) -> Unit)
    | Pull of (Unit -> 'a Option)

type 'a Destination =
    | Destination of ('a Option -> Unit)

type Converter<'a,'b> =
    | Converter of ('a Option -> 'b Option)
    

hodzanassredin

type Expr = | ListOfExpr of list<Expr>
            | Func of (list<Expr> -> Expr)
            | Macro of (list<Expr> -> list<Expr>)
            | Int of int 
            | Void;;




let rec evalArgs l = 

hodzanassredin

windowBySecond (tweetsSq: seq<Tweet>) = 
    let tweet = Seq.head tweetsSq
    let currSec = (toDateTime tweet.DateStr).Second
    let tweetsForSecond = Seq.takeWhile (fun elem -> (toDateTime elem.DateStr).Second = currSec) tweetsSq |> Seq.toList
    Some(Some(tweetsForSecond.Length), tweetsSq)

           
let tweetsPerMSecond tracking =
   
    //|> Seq.map (fun t -> (toDateTime t.DateStr))