| open System | |
| type DateOnly with | |
| /// returns the date of Easter Monday for the given year | |
| static member gaussEasterMonday (Y:int) = | |
| let P = float Y / 100.0 |> floor // century | |
| let M = // M depends on the century of year Y. For 19th century, M = 23. For the 21st century, M = 24 and so on | |
| let Q = (13.0 + 8.0 * P) / 25.0 |> floor | |
| int (15.0 - Q + P - (P / 4.0 |> floor)) % 30 | |
| let D = // The number of days to be added to March 21 to find the date of the Paschal Full Moon is |
| open System | |
| open Microsoft.AspNetCore.Builder | |
| open Microsoft.Extensions.Hosting | |
| open Microsoft.Extensions.DependencyInjection | |
| [<EntryPoint>] | |
| let main args = | |
| let builder = WebApplication.CreateBuilder(args) | |
| builder | |
| .Services |
| #!/usr/bin/env -S dotnet fsi /langversion:preview | |
| // - Fetch EPISARI hospitalizations data from podatki.gov.si | |
| // - Fetch vaccination data from api.sledilnik.org/api/vaccinations | |
| // - Mix in static population demography data | |
| // - Render hospitalizatized per 100k population json | |
| #r "nuget: FSharp.Data, 4.2.5" | |
| #r "nuget: FSharp.Json, 0.4.1" |
| <html> | |
| <head> | |
| <title>Covid vaccinations vs hospitalizations</title> | |
| <script src="https://code.highcharts.com/highcharts.src.js"></script> | |
| </head> | |
| <body> | |
| <figure class="highcharts-figure"> | |
| <div id="container" style="width:100%; height:100%;"></div> | |
| </figure> |
| #!/usr/bin/dotnet fsi | |
| #r "nuget: FSharp.Data, 4.2.2" | |
| open FSharp.Data | |
| open System | |
| type RoadsHtml = HtmlProvider<"https://en.wikipedia.org/wiki/List_of_countries_by_road_network_size"> | |
| let roadsHtml = RoadsHtml.GetSample() | |
| let roads = |
| let (|IsMultiple|_|) n x = if x % n = 0 then Some n else None | |
| [1..100] | |
| |> List.map (function | |
| | IsMultiple 15 x -> "FizzBuzz" | |
| | IsMultiple 5 x -> "Buzz" | |
| | IsMultiple 3 x -> "Fizz" | |
| | x -> $"{x}") | |
| |> List.iter (printfn "%s") |
Background:
| module AdaptiveSample | |
| open Fable.React | |
| open Fable.React.Props | |
| open FSharp.Data.Adaptive | |
| let useAdaptive (v: aval<'T>) = | |
| // initialize hook with initial value | |
| let stateHook = Hooks.useState (AVal.force v) | |
| let onChange () = |