performance measurements
Each table row shows performance measurements for this F# Mono program with a particular command-line input value N.
| N | CPU secs | Elapsed secs | Memory KB | Code B | ≈ CPU Load |
|---|---|---|---|---|---|
| 50,000 | 1.84 | 1.94 | 22,380 | 413 | 0% 3% 2% 100% |
| 500,000 | 8.09 | 8.10 | 200,708 | 413 | 0% 0% 1% 100% |
| 5,000,000 | Failed | 413 |
Read the ↓ make, command line, and program output logs to see how this program was run.
Read regex-dna benchmark to see what this program should do.
notes
Microsoft (R) F# 3.0 Compiler version (Mono build)
Mono JIT compiler version 3.0.3 (tarball Tue Feb 12 10:56:44 PST 2013)
LLVM: yes(3.2svn-mono)
regex-dna F# Mono #2 program source code
// The Computer Language Benchmarks Game // http://benchmarksgame.alioth.debian.org/ // // Contributed by Valentin Kraevskiy open System.Text.RegularExpressions let regex s = Regex (s, RegexOptions.Compiled) let input = stdin.ReadToEnd () let text = (regex ">.*\n|\n").Replace (input, "") ["agggtaaa|tttaccct" "[cgt]gggtaaa|tttaccc[acg]" "a[act]ggtaaa|tttacc[agt]t" "ag[act]gtaaa|tttac[agt]ct" "agg[act]taaa|ttta[agt]cct" "aggg[acg]aaa|ttt[cgt]ccct" "agggt[cgt]aa|tt[acg]accct" "agggta[cgt]a|t[acg]taccct" "agggtaa[cgt]|[acg]ttaccct"] |> List.iter (fun s -> printf "%s %i\n" s ((regex s).Matches text).Count) let newText = ["B", "(c|g|t)" "D", "(a|g|t)" "H", "(a|c|t)" "K", "(g|t)" "M", "(a|c)" "N", "(a|c|g|t)" "R", "(a|g)" "S", "(c|g)" "V", "(a|c|g)" "W", "(a|t)" "Y", "(c|t)"] |> List.fold (fun s (code, alt) -> (regex code).Replace (s, alt)) text printf "\n%i\n%i\n%i\n" input.Length text.Length newText.Length
make, command-line, and program output logs
Wed, 13 Feb 2013 02:04:04 GMT MAKE: mv regexdna.fsharp-2.fsharp regexdna.fsharp-2.fs /usr/local/bin/fsharpc --target:exe --platform:x86 -O -o regexdna.fsharp-2.fsharp_run.exe regexdna.fsharp-2.fs Microsoft (R) F# 3.0 Compiler version (Mono build) Copyright (c) Microsoft Corporation. All Rights Reserved. /home/dunham/benchmarksgame_onecore/regexdna/tmp/regexdna.fsharp-2.fs(6,1): warning FS0221: The declarations in this file will be placed in an implicit module 'Regexdna.fsharp-2' based on the file name 'regexdna.fsharp-2.fs'. However this is not a valid F# identifier, so the contents will not be accessible from other files. Consider renaming the file or adding a 'module' or 'namespace' declaration at the top of the file. rm regexdna.fsharp-2.fs 3.56s to complete and log all make actions COMMAND LINE: /usr/local/bin/mono --llvm regexdna.fsharp-2.fsharp_run.exe 0 < regexdna-input5000000.txt PROGRAM FAILED PROGRAM OUTPUT: agggtaaa|tttaccct 356 [cgt]gggtaaa|tttaccc[acg] 1250 a[act]ggtaaa|tttacc[agt]t 4252 ag[act]gtaaa|tttac[agt]ct 2894 agg[act]taaa|ttta[agt]cct 5435 aggg[acg]aaa|ttt[cgt]ccct 1537 agggt[cgt]aa|tt[acg]accct 1431 agggta[cgt]a|t[acg]taccct 1608 agggtaa[cgt]|[acg]ttaccct 2178 <premain>: CommandLine Error: Argument 'misched' defined more than once! <premain>: CommandLine Error: Argument 'print-machineinstrs' defined more than once! -simplifycfg: CommandLine Error: Argument 'misched' defined more than once! -simplifycfg: CommandLine Error: Argument 'print-machineinstrs' defined more than once! Unhandled Exception: OutOfMemoryException [ERROR] FATAL UNHANDLED EXCEPTION: System.OutOfMemoryException: Out of memory at (wrapper managed-to-native) object:__icall_wrapper_mono_string_alloc (intptr) at (wrapper alloc) object:Alloc (intptr,int) at System.Text.StringBuilder.InternalEnsureCapacity (Int32 size) [0x00000] in <filename unknown>:0 at System.Text.StringBuilder.Append (System.String value, Int32 startIndex, Int32 count) [0x00000] in <filename unknown>:0 at System.Text.RegularExpressions.BaseMachine.LTRReplace (System.Text.RegularExpressions.Regex regex, System.String input, System.Text.RegularExpressions.MatchAppendEvaluator evaluator, Int32 count, Int32 startat, Boolean needs_groups_or_captures) [0x00000] in <filename unknown>:0 at System.Text.RegularExpressions.BaseMachine.Replace (System.Text.RegularExpressions.Regex regex, System.String input, System.String replacement, Int32 count, Int32 startat) [0x00000] in <filename unknown>:0 at System.Text.RegularExpressions.Regex.Replace (System.String input, System.String replacement, Int32 count, Int32 startat) [0x00000] in <filename unknown>:0 at System.Text.RegularExpressions.Regex.Replace (System.String input, System.String replacement) [0x00000] in <filename unknown>:0 at Regexdna.fsharp-2+newText@36.Invoke (System.String s, System.Tuple`2 tupledArg) [0x00000] in <filename unknown>:0 at Microsoft.FSharp.Collections.ListModule.loop@151-20[Tuple`2,String] (Microsoft.FSharp.Core.FSharpFunc`3 f, System.String s, Microsoft.FSharp.Collections.FSharpList`1 xs) [0x00000] in <filename unknown>:0 at Microsoft.FSharp.Collections.ListModule.Fold[Tuple`2,String] (Microsoft.FSharp.Core.FSharpFunc`2 folder, System.String state, Microsoft.FSharp.Collections.FSharpList`1 list) [0x00000] in <filename unknown>:0 at <StartupCode$regexdna-fsharp-2-fsharp_run>.$Regexdna.fsharp-2.main@ () [0x00000] in <filename unknown>:0