jamessdixon

#original
def do_fourth_thing(spectrum, b_sorted_clusters, y_sorted_clusters, prec_tol):
    start_time = time.time()
    hybrid_merged = clustering.get_hybrid_matches(b_sorted_clusters, y_sorted_clusters, spectrum.precursor_mass, prec_tol, spectrum.precursor_charge)
    end_time = time.time() - start_time
    with open('Timing_data.txt', 'a') as t:
        t.write("Finding hybrid merges took:" + '\t' + str(end_time) + "\n")
    return hybrid_merged

#reduces to

jamessdixon

def write_masses_to_disk(matched_masses, flavor):
    file_name = 'matched_masses_' + flavor + '.csv'
    with open(file_name, 'w') as t:
        header = 'precursor_weight'+ '\t'+ 'matched_weight'+ '\t'+ 'start_index'+ '\t'+ 'end_index'+ '\t'+ 'b_ion'+ '\t'+ 'single_charge'+ '\t'+ 'protein_number'+ "\n"
        t.write(header)    
    for key, values in matched_masses.items():
        for value in values:  
            first,second,third,fourth,fifth,sixth = value      
            item = str(key) + '\t' + str(first)+ '\t' + str(second)+ '\t' + str(third)+ '\t' + str(fourth)+ '\t' + str(fifth)+ '\t' + str(sixth) + "\n"
            with open(file_name, 'a') as t:

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 =