7sharp9

namespace ClassLibrary1
open System

module SingleCase =
            
    //definition
    let (|UpperCase|) (x:string) = x.ToUpper()

    //PM usage
    match "foo" with

7sharp9

open System
open Microsoft.FSharp.Quotations
open Microsoft.FSharp.Quotations.Patterns
open Microsoft.FSharp.Quotations.ExprShape
open Microsoft.FSharp.Quotations.DerivedPatterns

let qliteral =
    <@ 
          let addAndMultiply a b =

7sharp9

for i in {1..10}; do time fsharp hello world.fsx; done 2>&1 | grep ^real | sed -e s/.*m// | awk '{sum += $1} END {print sum / NR}'

7sharp9

    let idents tokens =
        //reverse the tokens
        let tokens = tokens |> Array.rev |> List.ofArray
        let rec loop tokens result =
            match tokens with
            | [] -> result
            | (name, token: TokenInformation) :: tail ->
                match token.TokenName with
                | "IDENT" -> loop tail (name :: result)
                | "DOT" -> loop tail result

7sharp9

let things = [|"One";"Two";"Three"|]

let things2 = [|"One"
                "Two"
                "Three"|]

let things3 = [|
    "One"
    "Two"
    "Three"

7sharp9

namespace BasicExample
open Microsoft.Xna.Framework  
    type Basic() as x = 
        inherit Game()
        let graphics = new GraphicsDeviceManager(x)
        override x.Draw (gameTime) = x.GraphicsDevice.Clear(Color.CornflowerBlue)

7sharp9

[ProjectFileTypeDefinition(Name)]
public class HtmlProjectFileType : KnownProjectFileType
{
  public new const string Name = "HTML";
  public const string HTML_EXTENSION = ".html";
  public const string HTM_EXTENSION = ".htm";
  
  public new static readonly HtmlProjectFileType Instance;
 
  private HtmlProjectFileType() : base(Name, "Html", new[] {HTML_EXTENSION, HTM_EXTENSION})  {  }

7sharp9

module compilertesting.Main

open System
open System.IO
open System.Text
open Microsoft.FSharp.Compiler.SimpleSourceCodeServices

[<EntryPoint>]
let main args = 
    

7sharp9

[<Activity (Label = "HelloBarometer", MainLauncher = true)>]
type MainActivity () =
  inherit Activity ()
  
  let calculateAltitudeInFeet hPAs =
      let pstd = 1013.25
      (1.0 - Math.Pow((hPAs/pstd), 0.190284)) * 145366.45
      
  let mainLabel = ref Unchecked.defaultof<_>
  

7sharp9

let colourStyles = Mono.TextEditor.Highlighting.SyntaxModeService.GetColorStyle(MonoDevelop.Ide.IdeApp.Preferences.ColorScheme)

let keywordColour = colourStyle.GetForeground (colourStyle.KeywordProperty)

let cairoToHsl (c:Cairo.Color) = HslColor.op_Implicit(c)
let gdkToHsl (c:Gdk.Color) = HslColor.op_Implicit(c)
let hslToCairo (c:HslColor) : Cairo.Color = HslColor.op_Implicit(c)
let hslToGdk (c:HslColor) : Gdk.Color = HslColor.op_Implicit(c)

let cairoToGdk = cairoToHsl >> hslToGdk