vasily-kirichenko

open System

type Cylinder = 
    | FourFourEight
    | SixSixTwelve
    | ThreeThreeSix
    | TwoTwoTwo

type CylinderMeasurement = 
    { WidthA: float

mavnn

source https://nuget.org/api/v2

nuget FSharp.Formatting
nuget NUnit 
nuget NUnit.Runners
nuget Nuget.CommandLine
nuget FAKE
nuget SourceLink.Fake

github fsharp/FAKE modules/Octokit/Octokit.fsx

hodzanassredin

let countOfDisks = 10
 
let initialState = [for x in 1..countOfDisks do yield x], List.empty, List.empty 
 
let bottDiskSize = 4.
let cylHeight = 4.0
let diskSize size = size * bottDiskSize / float(countOfDisks)
let diskHeight = cylHeight / float(countOfDisks)
let diskPosition pos = pos * diskHeight
let cyl = 

7shi

open System
open System.Windows
open System.Windows.Controls
open System.Windows.Shapes
open System.Windows.Media

let move sh x y =
    Canvas.SetLeft(sh, x)
    Canvas.SetTop(sh, y)

fahadsuhaib

/// Pit jQuery API - Experimental version, modifies Pit AST to generate proper jQuery output
        document.GetElementById("check")
        |> jQuery.ofEl
        |> jQuery.attr3 ([|"src","/images/hat.gif";"title","jQuery";"alt","jQuery logo"|])
        |> jQuery.css3 ("background","red")
        |> jQuery.ignore

rojepp

namespace GLCameraRipple
  open System
  open System.Drawing
  open System.Runtime.InteropServices
  //open MonoTouch.CoreFoundation
  open Microsoft.FSharp.NativeInterop

  type RippleModel(screenSize : Size, meshFactor: int, touchRadius: int, textureSize: Size) =
    do Console.WriteLine ("New RippleModel");
    let poolWidth  = screenSize.Width  / meshFactor

forki

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="MainWindow" Height="350" Width="525">
    <Grid Name="MainGrid">
        <StackPanel Name="StackPanel1">
            <Button Name="Button1">First Button</Button>
            <Button Name="Button2">Second Button</Button>
        </StackPanel>
    </Grid>
</Window>

forki

open System
open System.Windows
open System.Windows.Controls
open FSharpx

type MainWindow = XAML<"Window.xaml">

let loadWindow() =
    let window = MainWindow()
    window.Button1.Click.Add(fun _ -> 

josejuan

module test

(*
#r "Microsoft.Solver.Foundation.dll";;
#load "test.fs";;
test.computeProblem;;
*)

open Microsoft.SolverFoundation.Common
open Microsoft.SolverFoundation.Services

CarstenKoenig

-- basic implementation of a vector type
-- modeled after the Vec type from Courseras "Coding the Matrix" class

-- | implementation of a sparse-vector representation based on the
-- Courseras "Coding the Matrix" MOOC class
-- this is in no way optimized and is just indended for learning
module Vec where


-- *** I worked with these imports ... you might want others (or not)