jamessdixon

//Given an unsorted array of integers, return the length of ther longest
//consecutive elements sequence where the integers
//in the sequence are in inremental order.

//eg: [2,1,2,6,4,5,1,7] -> [1,2,4,5,7]

open System

type Token = {Index: int; Number:int}

jamessdixon

open System
open System.IO

let path = "/Users/jamesdixon/Downloads/sequence.fasta"
let file = File.ReadAllText(path)
let totalLength = file.Length
let prefixLength = 97
let suffixLength = 2
let stringSequence = file.Substring(prefixLength,totalLength-prefixLength-suffixLength)

jamessdixon

let frequentWords (text:string) (k:int) =
    let patternCounts =
        text
        |> Seq.windowed k
        |> Seq.map(fun c -> new string(c))
        |> Seq.countBy(fun s -> s)
        |> Seq.sortByDescending(fun (s,c) -> c)
    let maxCount = patternCounts |> Seq.head |> snd
    patternCounts 
        |> Seq.filter(fun (s,c) -> c = maxCount)

jamessdixon

let patternCount (text:string) (pattern:string) =
    text 
    |> Seq.windowed pattern.Length 
    |> Seq.map(fun c -> new string(c))
    |> Seq.filter(fun s -> s = pattern)
    |> Seq.length

let text = "ACAACTCTGCATACTATCGGGAACTATCCT"
let pattern = "ACTAT"
patternCount text pattern

jamessdixon

#r @"C:\Users\DIXON2019\.nuget\packages\microsoft.azure.storage.blob\11.1.0\lib\netstandard2.0\Microsoft.Azure.Storage.Blob.dll"
#r @"C:\Users\DIXON2019\.nuget\packages\microsoft.azure.storage.common\11.1.0\lib\netstandard2.0\Microsoft.Azure.Storage.Common.dll"

#r @"C:\Users\DIXON2019\.nuget\packages\microsoft.azure.cosmos.table\1.0.5\lib\netstandard2.0\Microsoft.Azure.Cosmos.Table.dll"
#r @"C:\Users\DIXON2019\.nuget\packages\microsoft.azure.documentdb.core\2.1.3\lib\netstandard1.6\Microsoft.Azure.DocumentDB.Core.dll"

open System
open System.Net
open System.Windows.Forms

jamessdixon

namespace sameroom.mobile.iOS

open System
open Xamarin.Forms
open sameroom.mobile
open Auth0.OidcClient

type LoginParameters = { audience : string }

type AuthenticationService() =

jamessdixon

namespace ChickenSoftware.PanzerGeneral

open System.IO
open FSharp.Data
open Xamarin.Forms
open System.Reflection

type TileContext = JsonProvider<"Data//Scenario_Tile.json">
type UnitContext = JsonProvider<"Data//Scenario_Unit.json">
type EquipmentContext = JsonProvider<"Data//Equipment.json">

jamessdixon

#r "System.Xml.Linq.dll"
#r "Newtonsoft.Json"

open System.IO
open System.Xml
open System.Xml.Linq
open Newtonsoft.Json

let convert xmlPath jsonPath =

jamessdixon

open System

let getLastDirectory (filePath:string) =
    let lastSlashPosition = filePath.LastIndexOf(char 47)
    let totalLength = filePath.Length
    let tokenLength = totalLength - lastSlashPosition - 1
    filePath.Substring(lastSlashPosition+1,tokenLength)    

let subDirectoryInfos (path:string) =
    let baseDirectoryInfo = System.IO.DirectoryInfo(path)

jamessdixon

open System
open System.IO
open System.Drawing

type PictureFile = {FileName:string; NumberOfColumns:int; NumberOfRows:int}

let createTargetDirectory (fileName:string) =
    let targetDirectory = "//Users//jamesdixon//Desktop//Images//" + fileName
    let directoryinfo = new DirectoryInfo(targetDirectory)
    match directoryinfo.Exists with