<commit_before>﻿module main

//NumCIL.cphVB.Utility.Activate()
let timer = new UnitTest.DispTimer("BlackSholes F#")
let res = BlackScholesSolver.Solve(320000L, 36)
timer.Dispose()

printfn "result: %f" res<commit_msg>Updated F# test to accept command line argument --cphvb to specify cphvb usage, to avoid recompilation<commit_after>﻿module main

let cmdargs = System.Environment.GetCommandLineArgs()
let mutable cphvb = false
for arg in cmdargs do
   if arg.Equals("--cphvb", System.StringComparison.InvariantCultureIgnoreCase)
   then cphvb <- true         

let mutable version = "CIL"
if cphvb then 
    NumCIL.cphVB.Utility.Activate()
    version <- "cphVB"

let timer = new UnitTest.DispTimer("BlackSholes F#, " + version)
let res = BlackScholesSolver.Solve(320000L, 36)
timer.Dispose()

printfn "result: %f" res
{'fraction_non_alphanumeric': 0.10880195599022005, 'fraction_numerical': 0.019559902200488997, 'mean_word_length': 4.767605633802817, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4212355', 'n_tokens_mistral': 295, 'n_tokens_neox': 278, 'n_words': 76}