Luiz-Monad

    // mono.cecil
    //let definition = AssemblyNameDefinition ( assemblyName, new Version(1, 0) )
    //let assembly = AssemblyDefinition.CreateAssembly ( definition , moduleName, ModuleKind.Dll ) 
    //let mainModule = assembly.MainModule
    let definition = AssemblyName ()
    definition.Name <- assemblyName
    definition.Version <- new Version(1, 0)
    let assembly = AssemblyBuilder.DefineDynamicAssembly( definition, AssemblyBuilderAccess.Run)
    let mainModule = assembly.DefineDynamicModule ( moduleName )
    //let importedBaseType = mainModule.Import(actualBaseType)

Luiz-Monad

type AsyncResultBuilder ( timeMachine ) =
    let mutable map = emptyMap ()
    
    let mkOperation generator = 
        let intercept = generator ()
        let cmds = side_effect_connection_ctx ()
        let cmdList = sql_to_send cmds

Luiz-Monad

Não tem "enrolação" nenhuma (em QFD - quantum field dynamics), é bem simples por sinal.

por ex, tu tem uma DFT, dai tu vai implementar em um computador quantico. (DFT obviamente é https://en.wikipedia.org/wiki/Discrete_Fourier_transform)

Assim https://en.wikipedia.org/wiki/Quantum_Fourier_transform

QFT : |X> -> 1/sqr(N) \sum_0^{N-1} w_x^k |K>

Luiz-Monad

// Template for webpack.config.js in Fable projects
// Find latest version in https://github.com/fable-compiler/webpack-config-template

// In most cases, you'll only need to edit the CONFIG object (after dependencies)
// See below if you need better fine-tuning of Webpack options

// Dependencies. Also required: core-js, fable-loader, fable-compiler, @babel/core, @babel/preset-env, babel-loader
const webpack = require('webpack');
//const BundleAnalyzerPlugin = require('webpack-bundle-analyzer').BundleAnalyzerPlugin;
const HtmlWebpackPlugin = require('html-webpack-plugin');

Luiz-Monad

function Sort-Json($json) {
  $t = `
      Get-Content $json -Encoding UTF8 | `
      ConvertFrom-Json; 
  $tmp = New-Object -Type psobject; 
  $t.psobject.properties | `
      Select-Object -Expand name | `
      Sort-Object | `
      ForEach-Object { $tmp | `
          Add-Member -Type noteproperty -Name $_ -Value $t.$_ 

Luiz-Monad

F#
--
https://fable.io/
https://fsharpforfunandprofit.com/
https://fsharpforfunandprofit.com/fppatterns/
https://safe-stack.github.io/
https://www.compositional-it.com/consultancy/safe-stack/
http://okmij.org/ftp/ML/index.html
https://nostarch.com/fsharp

Luiz-Monad

  <PropertyGroup Label="Globals">
    <Keyword>Android</Keyword>
    <MinimumVisualStudioVersion>16.0</MinimumVisualStudioVersion>
    <ApplicationType>Android</ApplicationType>
    <ApplicationTypeRevision>3.0</ApplicationTypeRevision>
    <PlatformToolset>Clang_5_0</PlatformToolset>
    <AndroidAPILevel Condition="'$(Platform)'=='ARM64'">android-21</AndroidAPILevel>
    <AndroidAPILevel Condition="'$(Platform)'!='ARM64'">android-19</AndroidAPILevel>
    <UseOfStl>c++_static</UseOfStl>
    <ShowAndroidPathsVerbosity>Low</ShowAndroidPathsVerbosity>

Luiz-Monad

@@ -1,175 +0,0 @@
#include "GraphicBuffer.h"

#include <string>
#include <cstdlib>
#include <iostream>
#include <iostream>
#include <dlfcn.h>

const int GRAPHICBUFFER_SIZE = 1024;

Luiz-Monad

//diferentiable mathematical group/ring
//http://breandan.net/public/masters_thesis.pdf#page=58

interface Group<X : Group<X>>
object Top : Fun<Top>()
    
open class Const<T : Fun<T>>(val number : Double) : Fun<T>() { override fun toString() = "$number" }
class Sum<T : Fun<T>>(val left : Fun<T>, val right : Fun<T>) : Fun<T>() { override fun toString() = "($left + $right)" }
class Prod<T : Fun<T>>(val left : Fun<T>, val right : Fun<T>) : Fun<T>() { override fun toString() = "($left * $right)" }
class Var<T : Fun<T>>(val name: String) : Fun<T>() { override val vars: Set<Var<T>> = setOf(this) ; override fun toString() = "$name" }

Luiz-Monad

type FLeaf<T, N> = { leaf: T; name: N }
type FNode<T, N> = { node: T; name: N }

type Fold<T> = {
    [K in keyof T & string]:
    Lift<T[K], K>
}[keyof T & string];

type Lift<T, K> =