altbodhi

using System;
using static System.Console;
using System.Threading.Tasks;
using System.Threading.Tasks.Dataflow;
using System.Threading;
using System.Collections.Generic;
namespace CSharpMailBoxProcessor
{

    public class Reply

altbodhi

const page = "syncSystems";
// "index";


export default {
	input: `src/${page}.ts`,
	output: {
		sourcemap: true,
		exports : 'named',
		format: 'iife',

altbodhi

(defmacro writeln (&rest args)
  `(progn
     (loop for e in '(,@args)
	   do
	      (format t "~A" e))
     (format t "~%")))

(defstruct person name)

(defgeneric hello (obj)

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;