SteveGilham

<?xml version="1.0" encoding="UTF-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="15.0">

	<ItemGroup>
		<AvailableItemName Include="BundleResource" /> 
	</ItemGroup>

	<PropertyGroup>
		<IsMac Condition="'$(OS)' == 'Unix' and $([System.IO.File]::Exists('/usr/lib/libc.dylib'))">True</IsMac>
		<MacBundleName Condition="'$(MacBundleName)'==''">$(MSBuildProjectName)</MacBundleName>

SteveGilham

// This is the .fsproj file
(*
<Project Sdk="Microsoft.NET.Sdk">

  <PropertyGroup>
    <OutputType>Exe</OutputType>
    <TargetFramework>netcoreapp2.0</TargetFramework>
  </PropertyGroup>

  <ItemGroup>

SteveGilham

namespace Tinesware.GtkSharp

open System
open System.Reflection
open System.Resources
open System.Runtime.InteropServices

open Gdk
open Gtk
open Glade

SteveGilham

"""
@version: 0.3.93.1(2014-Oct-27)
@note:
EasyGui provides an easy-to-use interface for simple GUI interaction
with a user.  It does not require the programmer to know anything about
tkinter, frames, widgets, callbacks or lambda.  All GUI interactions are
invoked by simple function calls that return results.

EasyWPF is an API-compatible implementation for IronPython written against 
the Windows Presentation Foundation

SteveGilham

let chunk n (source : seq<'a>) =
  let makechunk (source : System.Collections.Generic.IEnumerator<'a>) n =
    seq { yield source.Current
          let mutable i = 0
          while (i < n) && source.MoveNext() do
           yield source.Current
           i <- i + 1
    }
  seq { use enumerator = source.GetEnumerator()
        while enumerator.MoveNext() do

SteveGilham

open System.Linq

type Cell = North | East | West | Root
type Connected = { exit: Cell; West : Connected option; South : Connected option; East : Connected option }

let rows = 10
let cols = 10
let rand = System.Random()

let row () = Seq.append (Enumerable.Repeat(East, cols - 1)) (Seq.singleton Root) |> Seq.toList

SteveGilham

open System.Linq

type Cell = North | East | Root

let rows = 10
let cols = 10
let rand = System.Random()

let row () = Seq.append (Enumerable.Repeat(East, cols - 1)) (Seq.singleton Root)

SteveGilham

open System.Linq

type Cell = North | East | Root

let rows = 10
let cols = 10
let rand = System.Random()

let row () = (Seq.singleton Root)
             |> Seq.append (Enumerable.Repeat(East, cols - 1))

SteveGilham

Start-Transcript
$pool = [System.Management.Automation.Runspaces.RunspaceFactory]::CreateRunspacePool(1,1)
$save = [System.Management.Automation.Runspaces.Runspace]::DefaultRunspace
try {
    [System.Management.Automation.Runspaces.Runspace]::DefaultRunspace = $null
    $pool.Open()
    # do stuff...
    $pool.Close()
    # do more stuff...
}

SteveGilham

Start-Transcript
$pool = [System.Management.Automation.Runspaces.RunspaceFactory]::CreateRunspacePool(1,1)
$pool.Open()
# do stuff...
$pool.Close()
# do more stuff...
Stop-Transcript