This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
namespace HandWrittenSchemas | |
open System | |
open System.IO | |
open Swashbuckle.AspNetCore.Swagger | |
open Swashbuckle.AspNetCore.SwaggerGen | |
open Microsoft.OpenApi.Readers | |
open Microsoft.OpenApi.Models |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
open System | |
module Game = | |
type Point = int * int | |
type Board = Map<Point, bool> | |
let empty m n = | |
[for y in 0 .. n - 1 do | |
for x in 0 .. m - 1 do |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns sherlock-and-array.core | |
(:require | |
[clojure.string :as string])) | |
(defn sum [coll] | |
(reduce + 0 coll)) | |
(defn solve | |
[s] | |
(loop [left [] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
namespace SO44893428 | |
module Generic = | |
let nextId = | |
let mutable i = 0 | |
let help (key:obj) = | |
i <- i + 1 | |
i | |
help |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Lazy = | |
open System | |
type LazyAlt<'a> private (f: unit -> 'a) = | |
let sync = Object() | |
let cons : (unit -> 'a) ref = ref f | |
let getter : (unit -> 'a) ref = ref f |