aliozgur

using System;
using System.Threading.Tasks;
using ModernHttpClient;
using System.Net.Http;
using System.Collections.Generic;
using System.Threading;
using System.Text;

namespace MyNamespace
{

aliozgur

using System;

namespace MyNamespace
{
    
    public enum DeviceOrientation
    {
       Landscape,
        Portrait
    }

aliozgur

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

using MonoTouch.Foundation;
using MonoTouch.UIKit;

using Xamarin.Forms;
using System.Net;

aliozgur

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

using MonoTouch.Foundation;
using MonoTouch.UIKit;

using Xamarin.Forms;
using System.Net;

aliozgur

using System;
using System.IO;
using System.Xml;
using System.Xml.Serialization;
using MonoTouch.UIKit;
using System.Collections;
using System.Collections.Generic;
using MonoTouch.Foundation;

/// <summary>

aliozgur

msgid ""
msgstr ""
"Project-Id-Version: MyProject\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: \n"
"PO-Revision-Date: \n"
"Last-Translator: Ali Özgür\n"
"Language-Team: Turkish\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"

aliozgur

// "Elves Look, Elves Say" - Day 10 - Advent of Code http://adventofcode.com/day/10 #AdventOfCode
let lookAndSay(input : string array) = 
    input
    |> Array.fold (fun acc el -> 
           match acc with
           | [||] -> [|(1, el)|]
           | _ -> 
               let count, item = acc.[acc.Length - 1]
               if el = item then 
                   acc.[acc.Length - 1] <- (count + 1, el)

aliozgur

(* 
    Sprinkles: capacity 5, durability -1, flavor 0, texture 0, calories 5
    PeanutButter: capacity -1, durability 3, flavor 0, texture 0, calories 1
    Frosting: capacity 0, durability -1, flavor 4, texture 0, calories 6
    Sugar: capacity -1, durability 0, flavor 0, texture 2, calories 8
*)

let myIngredientsNoCalories = 
    [|[|5L; -1L; 0L; 0L|];
      [|-1L; 3L; 0L; 0L|];

aliozgur

using System;
using System.Collections.Generic;
using System.Data.SqlClient;
using System.Linq;
using System.Collections;
using System.Data;

namespace SqlParameterHelper
{
    /// <summary>

aliozgur

// Taken from http://fsharpforfunandprofit.com/posts/recipe-part2/

// the two-track type
type Result<'TSuccess,'TFailure> = 
    | Success of 'TSuccess
    | Failure of 'TFailure

// convert a single value into a two-track result
let succeed x = 
    Success x