cowlike

module Tests

open Xunit
open Swensen.Unquote
open Monad

[<Fact>]
let ``Maybe bind on Just`` () =
    Just 5 >>= (((*) 10) >> return') =! Just 50

cowlike

module Monad

    /// Maybe (Option)
    type Maybe<'a> = 
        | Nothing 
        | Just of 'a

        static member inline doReturn (v) = Just v

        static member inline doReturnFrom (v) = v

cowlike

fun doTests() {
//  println("run test 1")
//  runTest(::test1)

  println("\nrun test 2")
  runTest(::test2)

  println("\nrun test 3")
  runTest(::test3)
}

cowlike

static bool isArmstrong(int n) {
	var digits = n.ToString().Select(x => (int)(x - '0'));
	return n == digits.Select(x => (int)Math.Pow(x, digits.Count())).Sum();
}

cowlike

fun mkCycle(min: Int, max: Int) = generateSequence(min) {
  if (it < max) it + 1 else min
}

cowlike

let fibos = Seq.unfold (fun (x, y) -> Some(y, (y, x + y))) (0, 1)

cowlike

import kotlin.coroutines.experimental.buildIterator
import kotlin.coroutines.experimental.buildSequence

///not tail recursive!
fun primes(n: Int = 2): Sequence<Int> = buildSequence<Int> {
    yield(n)
    yieldAll(primes(n + 1).filter { x: Int -> x % n != 0 })
}

///tail recursive version

cowlike

module Util

open System
open System.Collections.Generic

let toGenericList lst = List<_>(List.toSeq lst)

let env = 
  let envVars = 
    Environment.GetEnvironmentVariables()

cowlike

Demo dotnet app with Docker

Create an app:

dotnet new console -o myApp
cd myApp/
dotnet publish -o publish -r linux-x64
# add Dockerfile
docker build . -t myapp:latest

cowlike

fun <K> HashMap<K,String>.build() {
    for (i in this.keys) {
        val x = i.toString()
        this.put(i, x)
    }
}

/*
fun HashMap<Int,String>.build() {
    this.put(0, "0")