Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

type IParams =
abstract F1: int -> unit
abstract F2: int -> unit
//abstract F3: int -> unit
//abstract F4: int -> unit
//abstract F5: int -> unit
//abstract F6: int -> unit
type C(p: IParams, count: int, size: int) =
namespace DesignTime
module ABC =
let checkLocalCache() =
async {
while true do
try
[17/09/2021 15:38:49] [Pid:23356, Tid:1, Apid:1] initAndGenerate: starting
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] [Get server]
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] [Check last server]
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] [Make new server]
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] Starting new connection to server from client
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] Starting server 'E:\GitHub\dsyme\RProvider\src\RProvider\bin\Debug\net5.0\RProvider.Server.dll' with arguments 'RInteropServer_23356_98672906_74542540 "C:\Users\dsyme\AppData\Local\Temp\tmpA10A.tmp"' (exists=true)
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] R_HOME not set
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] findRLocation
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] getRLocation
[17/09/2021 15:38:50] [Pid:23356, Tid:1, Apid:1] Scanning the registry
namespace System
open System
///<summary>Represents a character as a UTF-16 code unit.</summary>
type Char =
///<summary>Converts the specified Unicode code point into a UTF-16 encoded string.</summary>
///<param name="utf32">A 21-bit Unicode code point.</param>
namespace FSComp
type internal SR =
class
private new : unit -> SR
static member
ArgumentsInSigAndImplMismatch : a0:System.String * a1:System.String ->
int * string
static member
CallerMemberNameIsOverriden : a0:System.String -> int * string
static member
[<ShapeCheck>]
type NeuralStyles(C: Int, H: Int, W: Int) =
    inherit Model()

    let instance_norm (channels: Int, h, w) = 
        model { 
            let! shift = Weight.uniform (Shape [| channels; h; w |], 0.0)
            and! scale = Weight.uniform (Shape [| channels; h; w |], 1.0)
            return (fun input  ->
open System
type T() =
member this.Item
with get ([<ParamArray>] indices: int[]) = "_"
and set ([<ParamArray>] indices: int[]) (value: string) = ()
let t = T()
// Works correctly
printfn "%A" t.[2, 1, 0]
class='parameter'>recordType</span></dt><dd><p>The type of record to construct.</p></dd><dt><span class='parameter'>bindingFlags</span></dt><dd><p>Optional binding flags.</p></dd></dl><p class='returns'><p>Returns: A function to construct records of the given type.</p><table class='inner-list exception-list'><tr><td><a href=\"https://docs.microsoft.com/dotnet/api/system.argumentexception\">ArgumentException</a></td><td>Thrown when the input type is not a record type.</td></tr></table>"
},
{
"uri": "https://fsharp.github.io/fsharp-core-api-docs/reference/fsharp-reflection-fsharpvalue.html#PreComputeRecordConstructorInfo",
"title": "FSharpValue.PreComputeRecordConstructorInfo",
"content": "FSharpValue.PreComputeRecordConstructorInfo \nPreComputeRecordConstructorInfo \n<p class='summary'>Get a ConstructorInfo for a record type</p><dl><dt><span class='parameter'>recordType</span></dt><dd><p>The record type.</p></dd><dt><span class='parameter'>bindingFlags</span></dt><dd><p>Optional
Topics
1. tokenization
2. parsing
3. checking and elaboration (i.e. producing TypedTree)
- $" " plain
- $"..." as FormattableString

Fyro

Fyro Models

An Fyro model is an F# definition of the form:

[<ReflectedDefinition>]
let model (param1, .... paramN) = <distribution-expression>