ABE Kosei kos59125

kos59125 / Program.fs

Created September 14, 2020 10:00

コンピュテーション式でセットアップ

	type ServerSettings = {
	Host : string
	Port : int
	}
	type ServerSettingsBuilder() =
	member _.Yield (_) = None, None
	member _.Run((host, port)) = { Host = Option.get host; Port = Option.get port }
	[<CustomOperation("host")>]
	member _.SetHost ((_:string option, port:int option), host:string) = Some(host), port
	[<CustomOperation("port")>]

kos59125 / Program.fs

Created March 3, 2020 03:11

Computation Expression with Dependency Injection

	module Program

	open Microsoft.Extensions.DependencyInjection
	open Microsoft.Extensions.Logging

	type ResultBuilder(logger:ILogger<ResultBuilder>) =
	member _.Return x = Ok(x)
	member _.ReturnFrom (m:Result<_, _>) = m
	member _.Bind (m, f) = Result.bind f m
	member _.Delay f =

kos59125 / duplicate.fsx

Created February 4, 2020 09:18

	open System.Text

	let append : string list -> string =
	List.fold (fun (builder:StringBuilder) -> builder.Append) (StringBuilder())
	>> fun builder -> builder.ToString()

	// aA
	append ["a"; "A"] \|> printfn "%s"
	// aAbB
	append ["b"; "B"] \|> printfn "%s"

kos59125 / config.yml

Created August 16, 2018 03:21

DB connection using config package

kos59125 / c.py

Last active February 28, 2018 12:02

emurate c function in R

kos59125 / logrus_cloudwatchlogs.go

Created August 7, 2016 14:29

github.com/Sirupsen/logrus hook for logging to CloudWatch Logs

	package logrus_ext

	import (
	"encoding/json"
	"fmt"
	"github.com/Sirupsen/logrus"
	"github.com/aws/aws-sdk-go/aws"
	"github.com/aws/aws-sdk-go/aws/session"
	"github.com/aws/aws-sdk-go/service/cloudwatchlogs"
	"github.com/oleiade/lane"

kos59125 / linebot.R

Last active April 30, 2016 16:31

R で LINEBOT を作ろう http://blog.recyclebin.jp/archives/4573

	suppressPackageStartupMessages({
	library(magrittr)
	library(stringr)
	library(Rook)
	library(shadowy)
	library(logging)
	library(aws.s3)
	library(ggplot2)
	library(scales)
	})

kos59125 / kansuuji.R

Last active January 15, 2020 20:44

漢数字を数値に変換する

kos59125 / Unmerge.bas

Last active September 4, 2015 09:09

アクティブシートの結合されたセルの結合を解除して，すべてのセルの値を結合元のセルの値で埋めます。

	Option Explicit

	' アクティブシートの結合されたセルの結合を解除して，すべてのセルの値を結合元のセルの値で埋めます。
	Public Sub Unmerge()
	Dim OuterCell As Variant
	Dim InnerCell As Variant
	Dim Value As Variant
	Dim MergeArea As Object
	Dim Updating As Boolean ' 現在のスクリーン更新状態

kos59125 / poisson.sh

Created August 11, 2015 15:25

Generates a random number on Poisson distribution