rmotyka

// sieve
let sieve (n:int64) =
    let rec aux (list: int64 list) = 
        match list with
        | [] -> []
        | hd::_ -> hd::aux (list |> List.filter (fun x -> x % hd <> 0L) )
    [2L .. n] |> aux

rmotyka

module datab.JwtGenerator

open System
open System.IdentityModel.Tokens.Jwt
open System.Security.Claims
open System.Text
open Microsoft.AspNetCore.Authorization
open Microsoft.AspNetCore.Mvc
open Microsoft.Extensions.Configuration
open Microsoft.IdentityModel.Tokens