altbodhi

 	public sealed class ValidateResult : Result<bool, string>
	{
	}
  
 public abstract class Result<TValue, TError>
    {
        public bool IsOk => this is Ok;
        public sealed class Ok : Result<TValue, TError>
        {
            public TValue Value { get; }

altbodhi

open System
open System.Threading

let rnd = Random(Environment.TickCount)

let disks = [ 1; 2; 3; 4 ]

type Status =
    | Fail of int
    | Normal of int

altbodhi

// This sample will guide you through elements of the F# language.
//
// *******************************************************************************************************
//   To execute the code in F# Interactive, highlight a section of code and press Alt-Enter in Windows or
//   Ctrl-Enter Mac, or right-click and select "Send Selection to F# Interactive".
//   You can open the F# Interactive Window from the "View" menu.
// *******************************************************************************************************
//
// For more about F#, see:
//     http://fsharp.org

altbodhi

module TickTocks exposing(..)
import Browser
import Html exposing (..)
import Html.Attributes exposing (style)
import Task
import Time
main =
  Browser.element
    { init = init
    , view = view

altbodhi

let now () = System.DateTime.Now.ToString("s")

type CacheCommand<'id, 'result> =
    | Get of 'id * AsyncReplyChannel<Result<'result, string>>
    | Clear


type Cache(getter) =
    let mailbox =
        MailboxProcessor.Start(fun inbox ->

altbodhi

using System.Console;
using System.Threading;
using System.Threading.Tasks;
using Nemerle;
using Nemerle.Async;

enum Tone {
   |  REST   = 0
   |  GbelowC = 196
   |  A      = 220

altbodhi

using System;
using System.Console;
using System.Net;
using System.Net.Sockets;
using System.IO;
using System.Text;
using System.Text.RegularExpressions;
using System.Threading.Tasks;
using Nemerle;
using Nemerle.Async;

altbodhi

    public abstract class Result<TValue, TError>
    {
        public bool IsOk => this is Ok;
        public sealed class Ok : Result<TValue, TError>
        {
            public TValue Value { get; }
            internal Ok(TValue value) => Value = value;
        }

        public sealed class Err : Result<TValue, TError>

altbodhi

open System

type Resource () = 
    interface IDisposable with 
        member it.Dispose() = 
            do printfn "Object %A Disposed" it                
use r  = Resource()


(r :> IDisposable).Dispose()

altbodhi

#pragma indent 
// io.n
using System.Console;
macro writeln (params  a: array[expr])
    mutable exps = [];     
        foreach(e in a)
         exps = <[ Write($e); ]> :: exps;

    exps = <[ WriteLine();]> :: exps;
    exps = exps.Reverse();