Skip to content

Instantly share code, notes, and snippets.


Jamie Dixon jamessdixon

View GitHub Profile
jamessdixon / longestConsecutiveSequenece.fsx
Created Feb 27, 2022
Longest Consecutive Sequence In a Sequence of Ints
View longestConsecutiveSequenece.fsx
//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 / Covid
Created Dec 19, 2020
Looking at the COVID Genome Using F#
View Covid
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)
View BioinformnaticsFrequentWords.fsx
let frequentWords (text:string) (k:int) =
let patternCounts =
|> Seq.windowed k
|> c -> new string(c))
|> Seq.countBy(fun s -> s)
|> Seq.sortByDescending(fun (s,c) -> c)
let maxCount = patternCounts |> Seq.head |> snd
|> Seq.filter(fun (s,c) -> c = maxCount)
jamessdixon / BioinformnaticsPatternCount
Created Sep 15, 2020
Bioinformatics: Pattern Count
View BioinformnaticsPatternCount
let patternCount (text:string) (pattern:string) =
|> Seq.windowed pattern.Length
|> c -> new string(c))
|> Seq.filter(fun s -> s = pattern)
|> Seq.length
let pattern = "ACTAT"
patternCount text pattern
jamessdixon / WebCrawling
Last active Dec 19, 2019
WebCrawling With F#
View WebCrawling
#r @"C:\Users\DIXON2019\.nuget\packages\\11.1.0\lib\netstandard2.0\Microsoft.Azure.Storage.Blob.dll"
#r @"C:\Users\DIXON2019\.nuget\packages\\11.1.0\lib\netstandard2.0\Microsoft.Azure.Storage.Common.dll"
#r @"C:\Users\DIXON2019\.nuget\packages\\1.0.5\lib\netstandard2.0\Microsoft.Azure.Cosmos.Table.dll"
#r @"C:\Users\DIXON2019\.nuget\packages\\2.1.3\lib\netstandard1.6\Microsoft.Azure.DocumentDB.Core.dll"
open System
open System.Net
open System.Windows.Forms
View FSAuth0
open System
open Xamarin.Forms
open Auth0.OidcClient
type LoginParameters = { audience : string }
type AuthenticationService() =
View PBP_InitialGameBoard.fs
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">
View PGP_XMLToJSon.fsx
#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 =
View PGP_CreateResourceIdForImages
open System
let getLastDirectory (filePath:string) =
let lastSlashPosition = filePath.LastIndexOf(char 47)
let totalLength = filePath.Length
let tokenLength = totalLength - lastSlashPosition - 1
let subDirectoryInfos (path:string) =
let baseDirectoryInfo = System.IO.DirectoryInfo(path)
View PGP_ParsingCompositeImage
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