diff --git a/.github/workflows/CI.yml b/.github/workflows/CI.yml new file mode 100644 index 0000000..741386f --- /dev/null +++ b/.github/workflows/CI.yml @@ -0,0 +1,22 @@ +name: CI + +on: [push] + +jobs: + build: + runs-on: ${{ matrix.os }} + continue-on-error: true + strategy: + matrix: + os: [windows-latest, ubuntu-latest, macOS-latest] + steps: + - uses: actions/checkout@v2 + - uses: actions/setup-dotnet@v1 + with: + dotnet-version: '7.x' + - name: Build + run: $slnInList = Get-ChildItem -Recurse -Filter '*.sln'; foreach ($file in $slnInList) {dotnet build $file.FullName} + shell: pwsh + - name: Run tests + run: $slnInList = Get-ChildItem -Recurse -Filter '*.sln'; foreach ($file in $slnInList) {dotnet test $file.FullName} + shell: pwsh \ No newline at end of file diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..9221f48 --- /dev/null +++ b/.gitignore @@ -0,0 +1,430 @@ +.idea +# User-specific stuff +.idea/**/workspace.xml +.idea/**/tasks.xml +.idea/**/usage.statistics.xml +.idea/**/dictionaries +.idea/**/shelf + +# AWS User-specific +.idea/**/aws.xml + +# Generated files +.idea/**/contentModel.xml + +# Sensitive or high-churn files +.idea/**/dataSources/ +.idea/**/dataSources.ids +.idea/**/dataSources.local.xml +.idea/**/sqlDataSources.xml +.idea/**/dynamic.xml +.idea/**/uiDesigner.xml +.idea/**/dbnavigator.xml + +# Gradle +.idea/**/gradle.xml +.idea/**/libraries + +# Gradle and Maven with auto-import +# When using Gradle or Maven with auto-import, you should exclude module files, +# since they will be recreated, and may cause churn. Uncomment if using +# auto-import. +# .idea/artifacts +# .idea/compiler.xml +# .idea/jarRepositories.xml +# .idea/modules.xml +# .idea/*.iml +# .idea/modules +# *.iml +# *.ipr + +# CMake +cmake-build-*/ + +# Mongo Explorer plugin +.idea/**/mongoSettings.xml + +# File-based project format +*.iws + +# IntelliJ +out/ + +# mpeltonen/sbt-idea plugin +.idea_modules/ + +# JIRA plugin +atlassian-ide-plugin.xml + +# Cursive Clojure plugin +.idea/replstate.xml + +# SonarLint plugin +.idea/sonarlint/ + +# Crashlytics plugin (for Android Studio and IntelliJ) +com_crashlytics_export_strings.xml +crashlytics.properties +crashlytics-build.properties +fabric.properties + +# Editor-based Rest Client +.idea/httpRequests + +# Android studio 3.1+ serialized cache file +.idea/caches/build_file_checksums.ser + + + + + +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. +## +## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore + +# User-specific files +*.rsuser +*.suo +*.user +*.userosscache +*.sln.docstates + +# User-specific files (MonoDevelop/Xamarin Studio) +*.userprefs + +# Mono auto generated files +mono_crash.* + +# Build results +[Dd]ebug/ +[Dd]ebugPublic/ +[Rr]elease/ +[Rr]eleases/ +x64/ +x86/ +[Aa][Rr][Mm]/ +[Aa][Rr][Mm]64/ +bld/ +[Bb]in/ +[Oo]bj/ +[Ll]og/ +[Ll]ogs/ + +# Visual Studio 2015/2017 cache/options directory +.vs/ +# Uncomment if you have tasks that create the project's static files in wwwroot +#wwwroot/ + +# Visual Studio 2017 auto generated files +Generated\ Files/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +# NUnit +*.VisualState.xml +TestResult.xml +nunit-*.xml + +# Build Results of an ATL Project +[Dd]ebugPS/ +[Rr]eleasePS/ +dlldata.c + +# Benchmark Results +BenchmarkDotNet.Artifacts/ + +# .NET Core +project.lock.json +project.fragment.lock.json +artifacts/ + +# StyleCop +StyleCopReport.xml + +# Files built by Visual Studio +*_i.c +*_p.c +*_h.h +*.ilk +*.meta +*.obj +*.iobj +*.pch +*.pdb +*.ipdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*_wpftmp.csproj +*.log +*.vspscc +*.vssscc +.builds +*.pidb +*.svclog +*.scc + +# Chutzpah Test files +_Chutzpah* + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opendb +*.opensdf +*.sdf +*.cachefile +*.VC.db +*.VC.VC.opendb + +# Visual Studio profiler +*.psess +*.vsp +*.vspx +*.sap + +# Visual Studio Trace Files +*.e2e + +# TFS 2012 Local Workspace +$tf/ + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper +*.DotSettings.user + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# AxoCover is a Code Coverage Tool +.axoCover/* +!.axoCover/settings.json + +# Visual Studio code coverage results +*.coverage +*.coveragexml + +# NCrunch +_NCrunch_* +.*crunch*.local.xml +nCrunchTemp_* + +# MightyMoose +*.mm.* +AutoTest.Net/ + +# Web workbench (sass) +.sass-cache/ + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.[Pp]ublish.xml +*.azurePubxml +# Note: Comment the next line if you want to checkin your web deploy settings, +# but database connection strings (with potential passwords) will be unencrypted +*.pubxml +*.publishproj + +# Microsoft Azure Web App publish settings. Comment the next line if you want to +# checkin your Azure Web App publish settings, but sensitive information contained +# in these scripts will be unencrypted +PublishScripts/ + +# NuGet Packages +*.nupkg +# NuGet Symbol Packages +*.snupkg +# The packages folder can be ignored because of Package Restore +**/[Pp]ackages/* +# except build/, which is used as an MSBuild target. +!**/[Pp]ackages/build/ +# Uncomment if necessary however generally it will be regenerated when needed +#!**/[Pp]ackages/repositories.config +# NuGet v3's project.json files produces more ignorable files +*.nuget.props +*.nuget.targets + +# Microsoft Azure Build Output +csx/ +*.build.csdef + +# Microsoft Azure Emulator +ecf/ +rcf/ + +# Windows Store app package directories and files +AppPackages/ +BundleArtifacts/ +Package.StoreAssociation.xml +_pkginfo.txt +*.appx +*.appxbundle +*.appxupload + +# Visual Studio cache files +# files ending in .cache can be ignored +*.[Cc]ache +# but keep track of directories ending in .cache +!?*.[Cc]ache/ + +# Others +ClientBin/ +~$* +*~ +*.dbmdl +*.dbproj.schemaview +*.jfm +*.pfx +*.publishsettings +orleans.codegen.cs + +# Including strong name files can present a security risk +# (https://github.com/github/gitignore/pull/2483#issue-259490424) +#*.snk + +# Since there are multiple workflows, uncomment next line to ignore bower_components +# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622) +#bower_components/ + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file +# to a newer Visual Studio version. Backup files are not needed, +# because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm +ServiceFabricBackup/ +*.rptproj.bak + +# SQL Server files +*.mdf +*.ldf +*.ndf + +# Business Intelligence projects +*.rdl.data +*.bim.layout +*.bim_*.settings +*.rptproj.rsuser +*- [Bb]ackup.rdl +*- [Bb]ackup ([0-9]).rdl +*- [Bb]ackup ([0-9][0-9]).rdl + +# Microsoft Fakes +FakesAssemblies/ + +# GhostDoc plugin setting file +*.GhostDoc.xml + +# Node.js Tools for Visual Studio +.ntvs_analysis.dat +node_modules/ + +# Visual Studio 6 build log +*.plg + +# Visual Studio 6 workspace options file +*.opt + +# Visual Studio 6 auto-generated workspace file (contains which files were open etc.) +*.vbw + +# Visual Studio LightSwitch build output +**/*.HTMLClient/GeneratedArtifacts +**/*.DesktopClient/GeneratedArtifacts +**/*.DesktopClient/ModelManifest.xml +**/*.Server/GeneratedArtifacts +**/*.Server/ModelManifest.xml +_Pvt_Extensions + +# Paket dependency manager +.paket/paket.exe +paket-files/ + +# FAKE - F# Make +.fake/ + +# CodeRush personal settings +.cr/personal + +# Python Tools for Visual Studio (PTVS) +__pycache__/ +*.pyc + +# Cake - Uncomment if you are using it +# tools/** +# !tools/packages.config + +# Tabs Studio +*.tss + +# Telerik's JustMock configuration file +*.jmconfig + +# BizTalk build output +*.btp.cs +*.btm.cs +*.odx.cs +*.xsd.cs + +# OpenCover UI analysis results +OpenCover/ + +# Azure Stream Analytics local run output +ASALocalRun/ + +# MSBuild Binary and Structured Log +*.binlog + +# NVidia Nsight GPU debugger configuration file +*.nvuser + +# MFractors (Xamarin productivity tool) working folder +.mfractor/ + +# Local History for Visual Studio +.localhistory/ + +# BeatPulse healthcheck temp database +healthchecksdb + +# Backup folder for Package Reference Convert tool in Visual Studio 2017 +MigrationBackup/ + +# Ionide (cross platform F# VS Code tools) working folder +.ionide/ \ No newline at end of file diff --git a/EvenNumbers/EvenNumbers.Tests/EvenNumbers.Tests.fsproj b/EvenNumbers/EvenNumbers.Tests/EvenNumbers.Tests.fsproj new file mode 100644 index 0000000..ce4307c --- /dev/null +++ b/EvenNumbers/EvenNumbers.Tests/EvenNumbers.Tests.fsproj @@ -0,0 +1,34 @@ + + + + net7.0 + + false + false + true + + + + + + + + + + + + runtime; build; native; contentfiles; analyzers; buildtransitive +all + + runtime; build; native; contentfiles; analyzers; buildtransitive +all + + + + + + + + + + diff --git a/EvenNumbers/EvenNumbers.Tests/Program.fs b/EvenNumbers/EvenNumbers.Tests/Program.fs new file mode 100644 index 0000000..5da7e48 --- /dev/null +++ b/EvenNumbers/EvenNumbers.Tests/Program.fs @@ -0,0 +1,5 @@ +module Program = + + [] + let main _ = 0 + diff --git a/EvenNumbers/EvenNumbers.Tests/UnitTests.fs b/EvenNumbers/EvenNumbers.Tests/UnitTests.fs new file mode 100644 index 0000000..9ba8f71 --- /dev/null +++ b/EvenNumbers/EvenNumbers.Tests/UnitTests.fs @@ -0,0 +1,35 @@ +module EvenNumbers.Tests + +open NUnit.Framework +open FsUnit +open EvenNumbers.СountEvenNumbers + +let testCases = + seq { + yield (TestCaseData([1; 2; 3; 4; 5; 6; 7; 8], 4)) + yield (TestCaseData([-1; -2; -3; -4; -5; -6; -7; -8], 4)) + } + +[] +let ``Test assert work correctly map`` (list : List, answer : int) = + countEvenMap list |> should equal answer + +[] +let ``Test assert work correctly fold`` (list : List, answer : int) = + countEvenFold list |> should equal answer + +[] +let ``Test assert work correctly filter`` (list : List, answer : int) = + countEvenFilter list |> should equal answer + +[] +let ``Test empty case map`` () = + countEvenMap [] |> should equal 0 + +[] +let ``Test empty case fold`` () = + countEvenFold [] |> should equal 0 + +[] +let ``Test empty case filter`` () = + countEvenFilter [] |> should equal 0 \ No newline at end of file diff --git a/EvenNumbers/EvenNumbers.sln b/EvenNumbers/EvenNumbers.sln new file mode 100644 index 0000000..e15f619 --- /dev/null +++ b/EvenNumbers/EvenNumbers.sln @@ -0,0 +1,31 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 25.0.1706.3 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "EvenNumbers", "EvenNumbers\EvenNumbers.fsproj", "{D0381C5F-A1DD-4DAB-AFAE-B7E4C1C33B7D}" +EndProject +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "EvenNumbers.Tests", "EvenNumbers.Tests\EvenNumbers.Tests.fsproj", "{95DC3707-D258-41D3-83E7-BD516822A830}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {D0381C5F-A1DD-4DAB-AFAE-B7E4C1C33B7D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {D0381C5F-A1DD-4DAB-AFAE-B7E4C1C33B7D}.Debug|Any CPU.Build.0 = Debug|Any CPU + {D0381C5F-A1DD-4DAB-AFAE-B7E4C1C33B7D}.Release|Any CPU.ActiveCfg = Release|Any CPU + {D0381C5F-A1DD-4DAB-AFAE-B7E4C1C33B7D}.Release|Any CPU.Build.0 = Release|Any CPU + {95DC3707-D258-41D3-83E7-BD516822A830}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {95DC3707-D258-41D3-83E7-BD516822A830}.Debug|Any CPU.Build.0 = Debug|Any CPU + {95DC3707-D258-41D3-83E7-BD516822A830}.Release|Any CPU.ActiveCfg = Release|Any CPU + {95DC3707-D258-41D3-83E7-BD516822A830}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {E54E73B0-7B55-4584-ACB7-F0FEACD51C7C} + EndGlobalSection +EndGlobal diff --git a/EvenNumbers/EvenNumbers/EvenNumbers.fs b/EvenNumbers/EvenNumbers/EvenNumbers.fs new file mode 100644 index 0000000..313e7e0 --- /dev/null +++ b/EvenNumbers/EvenNumbers/EvenNumbers.fs @@ -0,0 +1,11 @@ +namespace EvenNumbers + +open System + +module СountEvenNumbers = + + let countEvenFilter list = list |> Seq.filter (fun x -> x % 2 = 0) |> Seq.length + + let countEvenMap list = list |> Seq.map (fun x -> (1 - Math.Abs(x % 2))) |> Seq.sum + + let countEvenFold list = list |> Seq.fold (fun sum element -> (+) sum <| Math.Abs (element + 1) % 2) 0 \ No newline at end of file diff --git a/EvenNumbers/EvenNumbers/EvenNumbers.fsproj b/EvenNumbers/EvenNumbers/EvenNumbers.fsproj new file mode 100644 index 0000000..aefd278 --- /dev/null +++ b/EvenNumbers/EvenNumbers/EvenNumbers.fsproj @@ -0,0 +1,31 @@ + + + + net7.0 + true + + + + + + + + + + + + + + + + + + runtime; build; native; contentfiles; analyzers; buildtransitive + all + + + + + + + diff --git a/ExpressionTree/ExpressionTree.Tests/ExpressionTree.Tests.fsproj b/ExpressionTree/ExpressionTree.Tests/ExpressionTree.Tests.fsproj new file mode 100644 index 0000000..6018871 --- /dev/null +++ b/ExpressionTree/ExpressionTree.Tests/ExpressionTree.Tests.fsproj @@ -0,0 +1,32 @@ + + + + net7.0 + + false + false + true + + + + + + + + + + + + runtime; build; native; contentfiles; analyzers; buildtransitive +all + + + + + + + + + + + diff --git a/ExpressionTree/ExpressionTree.Tests/Program.fs b/ExpressionTree/ExpressionTree.Tests/Program.fs new file mode 100644 index 0000000..5da7e48 --- /dev/null +++ b/ExpressionTree/ExpressionTree.Tests/Program.fs @@ -0,0 +1,5 @@ +module Program = + + [] + let main _ = 0 + diff --git a/ExpressionTree/ExpressionTree.Tests/UnitTests.fs b/ExpressionTree/ExpressionTree.Tests/UnitTests.fs new file mode 100644 index 0000000..8778b0b --- /dev/null +++ b/ExpressionTree/ExpressionTree.Tests/UnitTests.fs @@ -0,0 +1,27 @@ +module ExpressionTree.Tests + +open NUnit.Framework +open FsUnit +open ExpressionTree + +let ``test case zero division`` = + seq { + TestCaseData(ExpressionTree(Division, ExpressionTree( Addition, ExpressionTree (Multiplication, Leaf (3), Leaf (2)), ExpressionTree (Division, Leaf (6), Leaf (2))), Leaf (0))) + } + +[] +let ``test zero division throws division by zero exception``(tree : ExpressionTree) = + (fun () -> countTree tree |> ignore) |> should throw typeof + +let ``test cases basic`` = + seq { + TestCaseData(ExpressionTree(Division, Leaf(12), Leaf(6)), 2) + TestCaseData(ExpressionTree(Multiplication, Leaf(4), Leaf(3)), 12) + TestCaseData(ExpressionTree(Substraction, Leaf(3), Leaf(3)), 0) + TestCaseData(ExpressionTree(Addition, Leaf(1), Leaf(0)), 1) + TestCaseData(ExpressionTree(Addition, ExpressionTree(Multiplication, ExpressionTree(Substraction, Leaf(3), Leaf(1)), Leaf(2)), ExpressionTree(Division, Leaf(6), Leaf(3))), 6) + } + +[] +let ``test case basic`` (tree : ExpressionTree, answer : int)= + countTree tree |> should equal answer \ No newline at end of file diff --git a/ExpressionTree/ExpressionTree.sln b/ExpressionTree/ExpressionTree.sln new file mode 100644 index 0000000..f55cd6d --- /dev/null +++ b/ExpressionTree/ExpressionTree.sln @@ -0,0 +1,31 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 25.0.1706.3 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "ExpressionTree", "ExpressionTree\ExpressionTree.fsproj", "{3D37C15A-7905-4E43-AB6B-97766F74CAF5}" +EndProject +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "ExpressionTree.Tests", "ExpressionTree.Tests\ExpressionTree.Tests.fsproj", "{DA9431A5-61DE-4BCC-8DC5-B0CFBAAD91EE}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {3D37C15A-7905-4E43-AB6B-97766F74CAF5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {3D37C15A-7905-4E43-AB6B-97766F74CAF5}.Debug|Any CPU.Build.0 = Debug|Any CPU + {3D37C15A-7905-4E43-AB6B-97766F74CAF5}.Release|Any CPU.ActiveCfg = Release|Any CPU + {3D37C15A-7905-4E43-AB6B-97766F74CAF5}.Release|Any CPU.Build.0 = Release|Any CPU + {DA9431A5-61DE-4BCC-8DC5-B0CFBAAD91EE}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {DA9431A5-61DE-4BCC-8DC5-B0CFBAAD91EE}.Debug|Any CPU.Build.0 = Debug|Any CPU + {DA9431A5-61DE-4BCC-8DC5-B0CFBAAD91EE}.Release|Any CPU.ActiveCfg = Release|Any CPU + {DA9431A5-61DE-4BCC-8DC5-B0CFBAAD91EE}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {165F7EA4-6DBF-437C-AF12-777F25D2ADAC} + EndGlobalSection +EndGlobal diff --git a/ExpressionTree/ExpressionTree/ExpressionTree.fs b/ExpressionTree/ExpressionTree/ExpressionTree.fs new file mode 100644 index 0000000..7b97c1c --- /dev/null +++ b/ExpressionTree/ExpressionTree/ExpressionTree.fs @@ -0,0 +1,16 @@ +type Operation = Addition | Substraction | Multiplication | Division + +type ExpressionTree = + | ExpressionTree of Operation * ExpressionTree * ExpressionTree + | Leaf of int + +let rec countTree tree = + match tree with + | Leaf n -> n + | ExpressionTree(Addition, l, r) -> countTree l + countTree r + | ExpressionTree(Substraction, l, r) -> countTree l - countTree r + | ExpressionTree(Multiplication, l, r) -> countTree l * countTree r + | ExpressionTree(Division, l, r) -> + let right = countTree r + if right = 0 then raise (System.DivideByZeroException("DivisionByZero")) + else countTree l / right \ No newline at end of file diff --git a/ExpressionTree/ExpressionTree/ExpressionTree.fsproj b/ExpressionTree/ExpressionTree/ExpressionTree.fsproj new file mode 100644 index 0000000..3e582e5 --- /dev/null +++ b/ExpressionTree/ExpressionTree/ExpressionTree.fsproj @@ -0,0 +1,12 @@ + + + + Exe + net7.0 + + + + + + + diff --git a/MapTree/MapTree.Tests/MapTree.Tests.fsproj b/MapTree/MapTree.Tests/MapTree.Tests.fsproj new file mode 100644 index 0000000..2824147 --- /dev/null +++ b/MapTree/MapTree.Tests/MapTree.Tests.fsproj @@ -0,0 +1,32 @@ + + + + net7.0 + + false + false + true + + + + + + + + + + + + runtime; build; native; contentfiles; analyzers; buildtransitive +all + + + + + + + + + + + diff --git a/MapTree/MapTree.Tests/Program.fs b/MapTree/MapTree.Tests/Program.fs new file mode 100644 index 0000000..5da7e48 --- /dev/null +++ b/MapTree/MapTree.Tests/Program.fs @@ -0,0 +1,5 @@ +module Program = + + [] + let main _ = 0 + diff --git a/MapTree/MapTree.Tests/UnitTests.fs b/MapTree/MapTree.Tests/UnitTests.fs new file mode 100644 index 0000000..845fc2a --- /dev/null +++ b/MapTree/MapTree.Tests/UnitTests.fs @@ -0,0 +1,23 @@ +module MapTree.Tests + +open NUnit.Framework +open FsUnit +open MapTree.MapTree + +let ``test case 1`` = + seq { + TestCaseData(Tree(4, Tree(2, Leaf(1), Leaf(3)), Tree(6, Leaf(5), Leaf(7))), Tree(5, Tree(3, Leaf(2), Leaf(4)), Tree(7, Leaf(6), Leaf(8)))) + } + +[] +let ``test 1`` (tree : Tree, answer : Tree) = + mapTree tree (fun x -> x + 1) |> should equal answer + +let ``test case 2`` = + seq { + TestCaseData(Tree("a", Tree("b", Leaf("c"), Leaf("d")), Tree("e", Leaf("f"), Leaf("g"))), Tree("aa", Tree("bb", Leaf("cc"), Leaf("dd")), Tree("ee", Leaf("ff"), Leaf("gg")))) + } + +[] +let ``test 2`` (tree : Tree, answer : Tree) = + mapTree tree (fun x -> x + x) |> should equal answer \ No newline at end of file diff --git a/MapTree/MapTree.sln b/MapTree/MapTree.sln new file mode 100644 index 0000000..96ca238 --- /dev/null +++ b/MapTree/MapTree.sln @@ -0,0 +1,31 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 25.0.1706.3 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "MapTree", "MapTree\MapTree.fsproj", "{76981EB5-C155-4DED-B0AB-8EFE117EF173}" +EndProject +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "MapTree.Tests", "MapTree.Tests\MapTree.Tests.fsproj", "{F252A996-1D2B-4813-BA3D-B4DDA8D8D3F3}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {76981EB5-C155-4DED-B0AB-8EFE117EF173}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {76981EB5-C155-4DED-B0AB-8EFE117EF173}.Debug|Any CPU.Build.0 = Debug|Any CPU + {76981EB5-C155-4DED-B0AB-8EFE117EF173}.Release|Any CPU.ActiveCfg = Release|Any CPU + {76981EB5-C155-4DED-B0AB-8EFE117EF173}.Release|Any CPU.Build.0 = Release|Any CPU + {F252A996-1D2B-4813-BA3D-B4DDA8D8D3F3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {F252A996-1D2B-4813-BA3D-B4DDA8D8D3F3}.Debug|Any CPU.Build.0 = Debug|Any CPU + {F252A996-1D2B-4813-BA3D-B4DDA8D8D3F3}.Release|Any CPU.ActiveCfg = Release|Any CPU + {F252A996-1D2B-4813-BA3D-B4DDA8D8D3F3}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {C838D1EB-9164-4E32-8E9F-541CD4873D91} + EndGlobalSection +EndGlobal diff --git a/MapTree/MapTree/MapTree.fs b/MapTree/MapTree/MapTree.fs new file mode 100644 index 0000000..aa2307c --- /dev/null +++ b/MapTree/MapTree/MapTree.fs @@ -0,0 +1,14 @@ +namespace MapTree + +module MapTree = + + type Tree<'a> = + | Tree of 'a * Tree<'a> * Tree<'a> + | Leaf of 'a + + + + let rec mapTree tree f = + match tree with + | Tree(x, l, r) -> Tree(f x, mapTree l f, mapTree r f) + | Leaf(x) -> Leaf(f x) \ No newline at end of file diff --git a/MapTree/MapTree/MapTree.fsproj b/MapTree/MapTree/MapTree.fsproj new file mode 100644 index 0000000..5d71cde --- /dev/null +++ b/MapTree/MapTree/MapTree.fsproj @@ -0,0 +1,12 @@ + + + + net7.0 + true + + + + + + + diff --git a/PrimeSequence/PrimeSequence.Tests/PrimeSequence.Tests.fsproj b/PrimeSequence/PrimeSequence.Tests/PrimeSequence.Tests.fsproj new file mode 100644 index 0000000..a0299fc --- /dev/null +++ b/PrimeSequence/PrimeSequence.Tests/PrimeSequence.Tests.fsproj @@ -0,0 +1,35 @@ + + + + net7.0 + + false + false + true + + + + + + + + + + + + runtime; build; native; contentfiles; analyzers; buildtransitive +all + + + + + + + + + + + + + + diff --git a/PrimeSequence/PrimeSequence.Tests/Program.fs b/PrimeSequence/PrimeSequence.Tests/Program.fs new file mode 100644 index 0000000..5da7e48 --- /dev/null +++ b/PrimeSequence/PrimeSequence.Tests/Program.fs @@ -0,0 +1,5 @@ +module Program = + + [] + let main _ = 0 + diff --git a/PrimeSequence/PrimeSequence.Tests/UnitTests.fs b/PrimeSequence/PrimeSequence.Tests/UnitTests.fs new file mode 100644 index 0000000..f627aea --- /dev/null +++ b/PrimeSequence/PrimeSequence.Tests/UnitTests.fs @@ -0,0 +1,10 @@ +module PrimeSequence.Tests + +open NUnit.Framework +open FsUnit +open PrimeSequenceGenerator + +[] +let ``compare first 10 numbers`` () = + let correctAnswer = [2; 3; 5; 7; 11; 13; 17; 19; 23; 29] + generatePrimes () |> Seq.take 10 |> Seq.toList |> should equal correctAnswer \ No newline at end of file diff --git a/PrimeSequence/PrimeSequence.sln b/PrimeSequence/PrimeSequence.sln new file mode 100644 index 0000000..5f8ea86 --- /dev/null +++ b/PrimeSequence/PrimeSequence.sln @@ -0,0 +1,31 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 25.0.1706.10 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "PrimeSequence", "PrimeSequence\PrimeSequence.fsproj", "{F23B8FF9-8366-4965-BF60-1B65A2C0CB50}" +EndProject +Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "PrimeSequence.Tests", "PrimeSequence.Tests\PrimeSequence.Tests.fsproj", "{81AFF2B3-FC48-48E2-9353-C3035EC973FD}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {F23B8FF9-8366-4965-BF60-1B65A2C0CB50}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {F23B8FF9-8366-4965-BF60-1B65A2C0CB50}.Debug|Any CPU.Build.0 = Debug|Any CPU + {F23B8FF9-8366-4965-BF60-1B65A2C0CB50}.Release|Any CPU.ActiveCfg = Release|Any CPU + {F23B8FF9-8366-4965-BF60-1B65A2C0CB50}.Release|Any CPU.Build.0 = Release|Any CPU + {81AFF2B3-FC48-48E2-9353-C3035EC973FD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {81AFF2B3-FC48-48E2-9353-C3035EC973FD}.Debug|Any CPU.Build.0 = Debug|Any CPU + {81AFF2B3-FC48-48E2-9353-C3035EC973FD}.Release|Any CPU.ActiveCfg = Release|Any CPU + {81AFF2B3-FC48-48E2-9353-C3035EC973FD}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {52449CA0-4A88-4E56-B449-40B6017917C3} + EndGlobalSection +EndGlobal diff --git a/PrimeSequence/PrimeSequence/PrimeSequence.fs b/PrimeSequence/PrimeSequence/PrimeSequence.fs new file mode 100644 index 0000000..6a426d6 --- /dev/null +++ b/PrimeSequence/PrimeSequence/PrimeSequence.fs @@ -0,0 +1,12 @@ +namespace PrimeSequence + +open System + +module PrimeSequenceGenerator = + let generatePrimes () = + let isPrimeNumber n = + let bound = n |> float |> Math.Sqrt |> Math.Round |> bigint |> (+) (bigint 1) + let rec checkDelimeters delimeter = + delimeter >= bound || (n % (int delimeter) <> 0 && checkDelimeters (delimeter + bigint 1)) + checkDelimeters (bigint 2) + seq {yield! Seq.filter (fun number -> isPrimeNumber number) (Seq.initInfinite (fun i -> i + 2))} \ No newline at end of file diff --git a/PrimeSequence/PrimeSequence/PrimeSequence.fsproj b/PrimeSequence/PrimeSequence/PrimeSequence.fsproj new file mode 100644 index 0000000..e21f50f --- /dev/null +++ b/PrimeSequence/PrimeSequence/PrimeSequence.fsproj @@ -0,0 +1,12 @@ + + + + net7.0 + true + + + + + + +