altbodhi

(*
Для запуска на виднос выполнить команду:
  dotnet fsi --exec githubEvents.fsx
*)
#r "nuget: FSharp.Data"
open FSharp.Data

let [<Literal>] url = "https://api.github.com/networks/radzenhq/radzen-blazor/events"

type Events = JsonProvider<url>

altbodhi

#r "nuget: FSharp.Data, 5.0.2"
open System
open System.Diagnostics
open FSharp.Data
open System.IO

let [<Literal>] feedUrl = "https://peapix.com/bing/feed"
type BingoImage = JsonProvider<feedUrl>

let out = Path.Combine(__SOURCE_DIRECTORY__, "bing")

altbodhi

/*
2_000_000 => 16 sec
5_ => 32
10_ => 1:10
20_ => 2:58
40_ => 13:44 file size = 2.5 Gb
*/

using System.IO;
using System.Diagnostics;

altbodhi

using System.IO;
using System.Diagnostics;
using static System.Console;
var sw = Stopwatch.StartNew();
var alf = get_alf();
do_it(2_000_000);
sw.Stop();
WriteLine(sw.Elapsed); // <= 00:00:13.4216229 it is very fast! fantasctic!

char[] get_alf()

altbodhi

open System
open System.IO

let num () = Random.Shared.Next(0, 10_000)

let alf =
    [| ' ' |]
    |> Array.append [| 'A' .. 'Z' |]
    |> Array.append [| 'a' .. 'z' |]

altbodhi

using System;
using System.Console;
using System.Collections.Generic;
using System.Diagnostics;

def skip_loop(counter, skip, max, idx, lst) {
  if (idx > max) lst 
  else 
    if ( counter >= skip ) 
      skip_loop(1, skip, max, idx + 1, idx :: lst)

altbodhi

using System.Console;

def skip_loop(counter, skip, max, idx, lst) {
  if (idx >= max) lst 
  else 
    if ( counter >= skip ) 
      skip_loop(1, skip, max, idx + 1, idx :: lst)
    else
      skip_loop(counter + 1, skip, max, idx + 1, lst)    
}

altbodhi

<?xml version="1.0" encoding="utf-8"?>
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
    <NoStdLib>True</NoStdLib>
    <OutputType>exe</OutputType>
    <OutputPath>bin</OutputPath>
    <TargetFrameworkIdentifier>.NETCoreApp</TargetFrameworkIdentifier>
    <TargetFrameworkVersion>6.0</TargetFrameworkVersion>
    <TargetFramework>net6.0</TargetFramework>
  </PropertyGroup>

altbodhi

let color col =
    let old = System.Console.ForegroundColor
    System.Console.ForegroundColor <- col

    { new System.IDisposable with
        member it.Dispose() = System.Console.ForegroundColor <- old }

let red () = color System.ConsoleColor.Red
let cyan () = color System.ConsoleColor.Cyan
let green () = color System.ConsoleColor.Green

altbodhi

type State =
    | Ping
    | Pong

type Command = | Send

type Event = | Received

let apply item =
    function