This file contains hidden or 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 Server | |
open System.IO | |
open Giraffe | |
open Saturn | |
open Shared | |
let getFilesDirectory () = | |
Path.Combine [|Directory.GetCurrentDirectory (); "public"|] |
This file contains hidden or 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 UnitTests | |
module ClusterPoolTests = | |
open System.Threading.Tasks | |
open Akka.Routing | |
open Akka.Cluster | |
open Akka.FSharp | |
open Xunit | |
open Xunit.Abstractions |
This file contains hidden or 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
using Akka.Actor; | |
using Akka.Configuration; | |
using Akka.Event; | |
using Akka.Routing; | |
using Xunit; | |
using Xunit.Abstractions; | |
namespace Akka.Cluster.Tests.Routing; | |
public static class PoolConfig |
This file contains hidden or 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
#time "on" | |
open System | |
open System.IO | |
type PulseType = | |
| Low | |
| High | |
type FlipFlopState = |
This file contains hidden or 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 | |
open System.IO | |
type Operator = | Less | Greater | |
type Condition = { | |
Attribute: char | |
Operator: Operator | |
Value: int | |
} |
This file contains hidden or 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
#time "on" | |
open System | |
open System.IO | |
let splitOn c (s: string) = | |
s.Split [|c|] | |
let input = | |
File.ReadAllText(__SOURCE_DIRECTORY__ + "/../data/input15.txt").Replace("\r", "").Replace("\n", "") |
This file contains hidden or 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 | |
open System.IO | |
let input = | |
File.ReadAllLines(__SOURCE_DIRECTORY__ + "/../data/input14.txt") | |
|> Seq.toArray | |
|> Array.map Seq.toArray | |
let swapRowsAndCols (pattern : char array array) = | |
let swapped = Array.zeroCreate<char array> pattern[0].Length |
This file contains hidden or 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
#time "on" | |
open System.IO | |
let input = | |
File.ReadAllLines(__SOURCE_DIRECTORY__ + "/../data/input11.txt") | |
|> Seq.toArray | |
|> Array.map Seq.toArray | |
let grid = |
This file contains hidden or 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
#time "on" | |
open System | |
open System.IO | |
let input = | |
File.ReadAllLines(__SOURCE_DIRECTORY__ + "/../data/input09.txt") | |
|> Seq.map (fun line -> line.Split " " |> Seq.map Int64.Parse |> Seq.toList) | |
|> Seq.toList |
This file contains hidden or 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
#time "on" | |
open System | |
open System.IO | |
open System.Collections.Generic | |
let input = | |
File.ReadAllLines(__SOURCE_DIRECTORY__ + "/../data/input08.txt") | |
let parseLine (str: string) = |