ruxo

def identity(x): return x


def side_effect(f):
    def _from(x):
        f(x)
        return x
    return _from

ruxo

type TravelMode =
  | Walk
  | Bus
  | MRT
  | BTS
  | Motorbike
  | Taxi

[<Measure>] type baht
[<Measure>] type minute

ruxo

open System
open Microsoft.FSharp.Quotations
open Microsoft.FSharp.Quotations.Patterns
open Microsoft.FSharp.Quotations.DerivedPatterns

let rec testQuote (tab: int) (expr: Expr) =
  let p = printfn "%s%s" (String(' ',tab*2))

  match expr with
  | Int32 i -> p <| sprintf "Int %d" i

ruxo

declare module "data.task" {
  type Func<A,B> = (_:A) => B

  class Task<TFail,TOk> {
    constructor(f: (reject: Func<TFail,any>, resolve: Func<TOk,any>) => void)

    static of<TFail,TOk>(v: TOk): Task<TFail,TOk>
    static rejected<TFail,TOk>(v: TFail): Task<TFail,TOk>

    map<C>(f: Func<TOk,C>) :Task<TFail,C>

ruxo

cd W3SVC1
$now = Get-Date
$today = $now.Date
$date_groups = Get-ChildItem *.log | where { $_.Length -gt 0 -and $_.LastWriteTime.Date -lt $today } | group { $_.LastWriteTime.Date }
cd ..
foreach($g in $date_groups){
    $date = $g.Values[0]
    $name = "iis_logs-$($date.Year)$($date.Month.ToString("D2"))$($date.Day.ToString("D2"))"
    $files = $g.Group
    $cmd = "7z a -t7z -mx=9 -mmt=4 -sdel $($name) $($files)"

ruxo

open System
open System.Net
open System.IO

type LogLine =
    { Timestamp: DateTime
      Method: string
      Path: string
      Query: string
      HttpVersion: string

ruxo

// reference MongoDB.Driver 2.11.0
using MongoDB.Bson.Serialization.Attributes;
using MongoDB.Bson.Serialization.Conventions;
using MongoDB.Driver;

void Main()
{
	var client = new MongoClient("mongodb://connection");
	var collection = client.GetDatabase("test").GetCollection<Test>("test");
	

ruxo

namespace Akka.FSharp.Extensions

open Akka.Dispatch
open System.Threading.Tasks

// source: https://github.com/tjaskula/akka.net-fsharp.extensions/blob/master/src/Akka.FSharp.Extensions/FsApi.Extensions.fs

module Actor =
    
    open Akka.Actor

ruxo

module RZ.FSharp.Akka.Extension

open System.Threading.Tasks
open Akka.Actor
open Akka.FSharp
open System.Runtime.CompilerServices

type ReceiveActorFs() =
    inherit ReceiveActor()

ruxo

#r "nuget: Akka.FSharp"

open System
open Akka.FSharp

let system = Configuration.defaultConfig() |> System.create "test"

type Messages =
| Print of string
| Crash