Steve Goguen sgoguen

## memoize-fib.fsx
//  Today's example is courtesy of @jindraivanek

//  https://gist.github.com/jindraivanek/5ff029577d2b544b2cd739d994750a18#file-memoizerec-fsx

//  As you remember, there was a warning on line 14

//  For a good explaination, see @tomaspetricek's Stack Overflow post.

//  http://stackoverflow.com/questions/8636630/recursive-objects-in-f

## merkle-tree.fsx
open System.IO
open System.Collections.Concurrent

// A Merkle tree for a file system might look like this

// PASTE!!
let isDirectory(path:string) =
  let attr = File.GetAttributes(path)
  attr.HasFlag(FileAttributes.Directory)

## object-navigator.cs
public class Nav {

  public static HelperResult NavAndPrint(object obj, string path) {
    var printer = Nav.GetPrinter().SetValue(obj);
    return printer.NavigateTo(path).TryToShowObject();
  }

  private static UiContext GetPrinter() {
    return new UiContext(
        displayRules: new Func<UiContext, Maybe<HelperResult>>[] {

## _article.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                sgoguen
                / _article.md
            
            
              Last active
              June 23, 2017 01:24
            
              
                Multiple File Test
              
          
    A Better Way to Compose Web Applications

I don't care for the MVC pattern most of us use for building web applications.  What I like about
frameworks like ASP.MVC is how is automatically maps URLs to an idiomatic C# method.
public class PersonController : Controller {
  public ActionResult Get(int id) {
     return View(new { Id = id, Name = "Bob" });
 }

  
## gist:79f6adc595abed0cc551e692dbc9f52f
@import url( https://fonts.googleapis.com/css?family=Raleway:200,600 );

html, body { height: 100%; }

.wrapper {
  position: absolute;
    width: 727px !important;
	left:-233px !important;
  top: 0;
  right: 0;

## index.html
<!DOCTYPE html>
<html>
<head>
    <title>Object Watcher</title>
</head>
<body>
    <div id="output"></div>
    <!--Script references. -->
    <!--Reference the jQuery library. -->
    <script src="Scripts/jquery-2.0.3.min.js"></script>

## enumInvalidInstances.fs
//  In this example, we're using FsCheck in an unorthodox way.
//  Typically you tell FsCheck to look for something that violates
//  your rule.  Here, we're reappropriating FsCheck's fuzz testing
//  capabilities to enumerate everything that has been deemed
//  "valid" to see if it's actually valid to help us figure out the rules.

type Money = decimal
type CouponType = FreeMail | FreeSide

type PaymentOption =

## gist:1058974
//  This will generate a database, but EF will not materialize the objects
//  because our types do not have default parameterless constructors

namespace DataModel
  open System
  open System.ComponentModel.DataAnnotations
  open System.Data.Entity

  type User = { mutable ID : int; mutable Name: string; mutable DB: DateTime; mutable Tasks: Task[];
                mutable Projects: Project[] }

## livehub.cs
void Main() {
    Util.CurrentQueryPath.Dump();
    string url = "http://localhost:8080";


    using (WebApp.Start(url, Configuration)) {
        //Task.Run(DoTask);

        Console.ReadLine();
    }

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                sgoguen
                / keybase.md
            
            
              Created
              November 7, 2017 02:24
            
          
    Keybase proof

I hereby claim:

I am sgoguen on github.
I am sgoguen (https://keybase.io/sgoguen) on keybase.
I have a public key ASB7lHbtpeTVKV_POAjX-YXpSjuk3i7VMIMeAKJ0cFCrOgo

To claim this, I am signing this object:
	// Today's example is courtesy of @jindraivanek

	// https://gist.github.com/jindraivanek/5ff029577d2b544b2cd739d994750a18#file-memoizerec-fsx

	// As you remember, there was a warning on line 14

	// For a good explaination, see @tomaspetricek's Stack Overflow post.

	// http://stackoverflow.com/questions/8636630/recursive-objects-in-f
	open System.IO
	open System.Collections.Concurrent

	// A Merkle tree for a file system might look like this

	// PASTE!!
	let isDirectory(path:string) =
	let attr = File.GetAttributes(path)
	attr.HasFlag(FileAttributes.Directory)
	public class Nav {

	public static HelperResult NavAndPrint(object obj, string path) {
	var printer = Nav.GetPrinter().SetValue(obj);
	return printer.NavigateTo(path).TryToShowObject();
	}

	private static UiContext GetPrinter() {
	return new UiContext(
	displayRules: new Func<UiContext, Maybe<HelperResult>>[] {
	@import url( https://fonts.googleapis.com/css?family=Raleway:200,600 );

	html, body { height: 100%; }

	.wrapper {
	position: absolute;
	width: 727px !important;
	left:-233px !important;
	top: 0;
	right: 0;
	<!DOCTYPE html>
	<html>
	<head>
	<title>Object Watcher</title>
	</head>
	<body>
	<div id="output"></div>
	<!--Script references. -->
	<!--Reference the jQuery library. -->
	<script src="Scripts/jquery-2.0.3.min.js"></script>
	// In this example, we're using FsCheck in an unorthodox way.
	// Typically you tell FsCheck to look for something that violates
	// your rule. Here, we're reappropriating FsCheck's fuzz testing
	// capabilities to enumerate everything that has been deemed
	// "valid" to see if it's actually valid to help us figure out the rules.

	type Money = decimal
	type CouponType = FreeMail \| FreeSide

	type PaymentOption =
	// This will generate a database, but EF will not materialize the objects
	// because our types do not have default parameterless constructors

	namespace DataModel
	open System
	open System.ComponentModel.DataAnnotations
	open System.Data.Entity

	type User = { mutable ID : int; mutable Name: string; mutable DB: DateTime; mutable Tasks: Task[];
	mutable Projects: Project[] }
	void Main() {
	Util.CurrentQueryPath.Dump();
	string url = "http://localhost:8080";


	using (WebApp.Start(url, Configuration)) {
	//Task.Run(DoTask);

	Console.ReadLine();
	}