sergey-tihon

#r @"System.Management.Automation.dll"
#r @"PowerShellTypeProvider.dll"

type PS = FSharp.PowerShell.PowerShellTypeProvider< PSSnapIns="", Is64BitRequired=false >

PS.``Get-Item``()

sergey-tihon

    interface I<T>
    {}
    interface I1<T> : I<T>
    {}
    interface I2<T> : I<T>
    {}
    class A : I1<int>, I2<double>
    {}

sergey-tihon

type I<'T> = interface end
type I1<'T> = inherit I<'T>
type I2<'T> = inherit I<'T>

type A = 
    inherit I1<int>
    inherit I2<double>

sergey-tihon

type ChessboardState =
    {Row:bool[]; DiagPlus:bool[]; DiagMin:bool[]}

let inline diagMinInd (chessboard:ChessboardState) (x,y) =
    if x-y>=0 then x-y else x-y+chessboard.DiagMin.Length

let canPlaceOn (chessboard:ChessboardState) (x,y) = 
    chessboard.Row.[y] && chessboard.DiagPlus.[x+y] && chessboard.DiagMin.[diagMinInd chessboard (x,y)]

let changeState (chessboard:ChessboardState) (x,y) = 

sergey-tihon

type Message = 
    | Sleep of int*int
    | SyncPoint of AsyncReplyChannel<unit>

let agent =
    MailboxProcessor.Start(fun inbox ->
        let rec loop() =
            async { 
                    let! msg = inbox.Receive()
                    match msg with

sergey-tihon

open System
open System.Net
open System.Text
open System.IO

let siteRoot = @"D:\mySite\"
let host = "http://localhost:8080/"

let listener (handler:(HttpListenerRequest -> HttpListenerResponse -> Async<unit>)) cancellationToken =
    let hl = new HttpListener()

sergey-tihon

using java.io;

using edu.stanford.nlp.process;
using edu.stanford.nlp.ling;
using edu.stanford.nlp.trees;
using edu.stanford.nlp.parser.lexparser;

namespace Stanford_Parser
{
    class Program

sergey-tihon

module MainApp

open System
open System.Windows
open System.Windows.Controls
open FSharpx

type MainWindow = XAML<"MainWindow.xaml">

let loadWindow() =

sergey-tihon

open System
open ServiceStack.ServiceHost
open ServiceStack.WebHost.Endpoints
open ServiceStack.ServiceInterface
 
type Project() =
    let mutable projectID = 0
    let mutable projectName = ""
    let mutable companyName = ""
    let mutable projectStatus = ""

sergey-tihon

<?xml version="1.0" encoding="utf-8"?>
<ServiceMetadataFiles>
  <ServiceMetadataFile name="developer.atlassian.com.rpc.soap-axis.confluenceservice-v2.wsdl">
    <wsdl:definitions xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:intf="https://developer.atlassian.com/rpc/soap-axis/confluenceservice-v2" xmlns:apachesoap="http://xml.apache.org/xml-soap" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns1="http://rpc.confluence.atlassian.com" xmlns:tns2="http://beans.soap.rpc.confluence.atlassian.com" xmlns:impl="https://developer.atlassian.com/rpc/soap-axis/confluenceservice-v2" targetNamespace="https://developer.atlassian.com/rpc/soap-axis/confluenceservice-v2" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
      <wsdl:types>
        <schema xmlns="http://www.w3.org/2001/XMLSchema" targetNamespace="https://developer.atlassian.com/rpc/soap-axis/confluenceservice-v2">
          <import namespace="http://beans.soap.rpc.confluence.atlassian.co