Skip to content

SequenceOfStaples #5

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
MikePuzanov wants to merge 5 commits into
base: master
Choose a base branch
from
Open

SequenceOfStaples #5

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
2166874
Add half of func
lykwer Mar 23, 2022
ec82020
add tests
lykwer Mar 24, 2022
ff72067
forgot add test
lykwer Apr 26, 2022
9e49fd5
forgot to push commits
lykwer Apr 26, 2022
36383a2
rework func and add test
lykwer May 17, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
26 changes: 26 additions & 0 deletions SequenceOfStaples/SequenceOfStaples.Test/SequenceOfStaples.Test.fsproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,26 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<TargetFramework>net6.0</TargetFramework>

<IsPackable>false</IsPackable>
<GenerateProgramFile>false</GenerateProgramFile>
</PropertyGroup>

<ItemGroup>
<Compile Include="SequenceOfStaplesTest.fs" />
</ItemGroup>

<ItemGroup>
<PackageReference Include="FsUnit" Version="4.2.0" />
<PackageReference Include="Microsoft.NET.Test.Sdk" Version="16.11.0" />
<PackageReference Include="NUnit" Version="3.13.2" />
<PackageReference Include="NUnit3TestAdapter" Version="4.0.0" />
<PackageReference Include="coverlet.collector" Version="3.1.0" />
</ItemGroup>

<ItemGroup>
<ProjectReference Include="..\SequenceOfStaples\SequenceOfStaples.fsproj" />
</ItemGroup>

</Project>
30 changes: 30 additions & 0 deletions SequenceOfStaples/SequenceOfStaples.Test/SequenceOfStaplesTest.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
module SequenceOfStaples.Test

open NUnit.Framework
open FsUnit
open Program

[<Test>]
Copy link

@DedSec256 DedSec256 May 16, 2022

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

не хватает теста на пустую строку

let TestExpTrue () =
let result = checkStaples "({[]})"
result |> should equal true

[<Test>]
let TestWithEmptyString () =
let result = checkStaples ""
result |> should equal true

[<Test>]
let TestExpWrongWithOneMoreStaple () =
let result = checkStaples "(({})))"
result |> should equal false

[<Test>]
let TestExpWrongWithDifferentSides () =
let result = checkStaples ")("
result |> should equal false

[<Test>]
let TestExpWrongWithDifferentStaple () =
let result = checkStaples "(]"
result |> should equal false
22 changes: 22 additions & 0 deletions SequenceOfStaples/SequenceOfStaples.sln
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,22 @@

Microsoft Visual Studio Solution File, Format Version 12.00
Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "SequenceOfStaples", "SequenceOfStaples\SequenceOfStaples.fsproj", "{CD91369A-416D-4D07-A3D1-02F07642D050}"
EndProject
Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "SequenceOfStaples.Test", "SequenceOfStaples.Test\SequenceOfStaples.Test.fsproj", "{E9555365-7F86-4E7B-AD01-033D63F04936}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{CD91369A-416D-4D07-A3D1-02F07642D050}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{CD91369A-416D-4D07-A3D1-02F07642D050}.Debug|Any CPU.Build.0 = Debug|Any CPU
{CD91369A-416D-4D07-A3D1-02F07642D050}.Release|Any CPU.ActiveCfg = Release|Any CPU
{CD91369A-416D-4D07-A3D1-02F07642D050}.Release|Any CPU.Build.0 = Release|Any CPU
{E9555365-7F86-4E7B-AD01-033D63F04936}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{E9555365-7F86-4E7B-AD01-033D63F04936}.Debug|Any CPU.Build.0 = Debug|Any CPU
{E9555365-7F86-4E7B-AD01-033D63F04936}.Release|Any CPU.ActiveCfg = Release|Any CPU
{E9555365-7F86-4E7B-AD01-033D63F04936}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
EndGlobal
17 changes: 17 additions & 0 deletions SequenceOfStaples/SequenceOfStaples/Program.fs
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,17 @@
let checkStaples (exp : string) =
let listOfChar = Seq.toList exp
let reverseStaple staple =
match staple with
| '}' -> '{'
| ']' -> '['
| ')' -> '('
let rec checkExpressionOnStaples (listOfExp : char List) (listOfStaples : char list) =
match listOfExp with
| h :: tail when h = '[' || h = '(' || h = '{' -> (checkExpressionOnStaples tail (h :: listOfStaples))
| h :: tail when (h = ']' || h = ')' || h = '}') && listOfStaples.Length > 0 ->
if reverseStaple h = listOfStaples.Head then
checkExpressionOnStaples tail listOfStaples.Tail
else false
| [] -> listOfStaples.Length = 0
| _ -> false
checkExpressionOnStaples listOfChar []
13 changes: 13 additions & 0 deletions SequenceOfStaples/SequenceOfStaples/SequenceOfStaples.fsproj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
<Project Sdk="Microsoft.NET.Sdk">

<PropertyGroup>
<OutputType>Exe</OutputType>
<TargetFramework>net6.0</TargetFramework>
<DockerDefaultTargetOS>Windows</DockerDefaultTargetOS>
</PropertyGroup>

<ItemGroup>
<Compile Include="Program.fs" />
</ItemGroup>

</Project>