manofstick

open System.Diagnostics

module ``TheBurningMonk - Euler`` =
    // collated from :- https://github.com/theburningmonk/ProjectEuler-FSharp-Solutions/tree/master/ProjectEulerSolutions/ProjectEulerSolutions
    // documentation :- http://theburningmonk.com/project-euler-solutions/
    open System
    open System.Numerics

    let inline private validate expected received =
        if expected <> received then

manofstick

open System.Diagnostics

#if !INCLUDE_PROJECT_INFO
module ProjectInfo =
    let Name = "Unknown"
    let AppendResultTo = None
#endif

[<AutoOpen>]
module Helpers =

manofstick

let countPrimes n =
    let rec outer count i =
        if i <= n then
            let sqrtI = int (floor (sqrt (float i)))
            let rec inner j =
                if j <= sqrtI then
                    if i % j <> 0 then
                        inner (j+1)
                    else
                        false

manofstick

open System.Diagnostics

let sum1 (a:array<_>) total =
    total := 0
    for i = 0 to a.Length-1 do
        total := !total + a.[i]
    !total

let sum2 (a:array<_>) total =
    total := 0

manofstick

using System;
using Microsoft.VisualStudio.TestTools.UnitTesting;
using System.Threading;
using System.Reflection;

namespace LazyTest
{
    [TestClass]
    public class LazyRegressionTests
    {

manofstick

open System.Diagnostics

let createViaStateMachine data =
    seq {
        for item in data do
            if item % 13L <> 0L then
                let item2 = item * item
                if item2 % 11L <> 0L then
                    yield item2 }

manofstick

// Copyright (c) Microsoft Corporation.  All Rights Reserved.  Licensed under the Apache License, Version 2.0.  See License.txt in the project root for license information.

namespace Microsoft.FSharp.Collections
    #nowarn "52" // The value has been copied to ensure the original is not mutated by this operation

    open System
    open System.Diagnostics
    open System.Collections
    open System.Collections.Generic
    open Microsoft.FSharp.Core

manofstick

open System.Diagnostics

let createSources size f = [
    "array", (lazy (Array.init size f :> seq<_>))

    "list", (lazy (List.init  size f :> seq<_>))

    "computation expression", (lazy (seq {
        let mutable x = 0
        while x < size do

manofstick

open System.Diagnostics
open Nessos.Streams

[<Struct; NoComparison; NoEquality>]
type Chunk<'T> =
    [<DefaultValue false>] val mutable _toProcess : int
    [<DefaultValue false>] val mutable _1 : 'T
    [<DefaultValue false>] val mutable _2 : 'T
    [<DefaultValue false>] val mutable _3 : 'T
    [<DefaultValue false>] val mutable _4 : 'T

manofstick

open BenchmarkDotNet.Running
open BenchmarkDotNet.Attributes
open BenchmarkDotNet.Configs
open BenchmarkDotNet.Diagnostics.Windows
open BenchmarkDotNet.Jobs

open System.Collections.Generic
open System.Collections
open System