trackler 2.2.1.155 → 2.2.1.156

data/tracks/powershell/exercises/bob/BobResponse.ps1

@@ -0,0 +1,8 @@
+Function Get-BobResponse() {
+    [CmdletBinding()]
+    Param(
+        [string]$HeyBob
+    )
+
+    Throw "Function not implemented"
+}

data/tracks/powershell/exercises/bob/BobResponse.tests.ps1

@@ -0,0 +1,109 @@
+$here = Split-Path -Parent $MyInvocation.MyCommand.Path
+$sut = (Split-Path -Leaf $MyInvocation.MyCommand.Path) -replace '\.tests\.', '.'
+. "$here\$sut"
+
+Describe "Test Get-BobResponse" {
+
+    It "stating something" {
+        Get-BobResponse -HeyBob "Tom-ay-to, tom-aaaah-to." | Should -BeExactly "Whatever."
+    }
+
+    It "shouting" {
+        Get-BobResponse -HeyBob "WATCH OUT!" | Should -BeExactly "Whoa, chill out!"
+    }
+
+    It "shouting gibberish" {
+        Get-BobResponse -HeyBob "FCECDFCAAB" | Should -BeExactly "Whoa, chill out!"
+    }
+
+    It "asking a question" {
+        Get-BobResponse -HeyBob "Does this cryogenic chamber make me look fat?" | Should -BeExactly "Sure."
+    }
+
+    It "asking a numeric question" {
+        Get-BobResponse -HeyBob "You are, what, like 15?" | Should -BeExactly "Sure."
+    }
+
+    It "asking gibberish" {
+        Get-BobResponse -HeyBob "fffbbcbeab?" | Should -BeExactly "Sure."
+    }
+
+    It "talking forcefully" {
+        Get-BobResponse -HeyBob "Let's go make out behind the gym!" | Should -BeExactly "Whatever."
+    }
+
+    It "using acronyms in regular speech" {
+        Get-BobResponse -HeyBob "It's OK if you don't want to go to the DMV." | Should -BeExactly "Whatever."
+    }
+
+    It "forceful question" {
+        Get-BobResponse -HeyBob "WHAT THE HELL WERE YOU THINKING?" | Should -BeExactly "Calm down, I know what I'm doing!"
+    }
+
+    It "shouting numbers" {
+        Get-BobResponse -HeyBob "1, 2, 3 GO!" | Should -BeExactly "Whoa, chill out!"
+    }
+
+    It "only numbers" {
+        Get-BobResponse -HeyBob "1, 2, 3" | Should -BeExactly "Whatever."
+    }
+
+    It "question with only numbers" {
+        Get-BobResponse -HeyBob "4?" | Should -BeExactly "Sure."
+    }
+
+    It "shouting with special characters" {
+        Get-BobResponse -HeyBob "ZOMG THE %^*@#`$(*^ ZOMBIES ARE COMING!!11!!1!" | Should -BeExactly "Whoa, chill out!"
+    }
+
+    It "shouting with no exclamation mark" {
+        Get-BobResponse -HeyBob "I HATE YOU" | Should -BeExactly "Whoa, chill out!"
+    }
+
+    It "statement containing question mark" {
+        Get-BobResponse -HeyBob "Ending with ? means a question." | Should -BeExactly "Whatever."
+    }
+
+    It "non-letters with question" {
+        Get-BobResponse -HeyBob ":) ?" | Should -BeExactly "Sure."
+    }
+
+    It "prattling on" {
+        Get-BobResponse -HeyBob "Wait! Hang on. Are you going to be OK?" | Should -BeExactly "Sure."
+    }
+
+    It "silence" {
+        Get-BobResponse -HeyBob "" | Should -BeExactly "Fine. Be that way!"
+    }
+
+    It "prolonged silence" {
+        Get-BobResponse -HeyBob "          " | Should -BeExactly "Fine. Be that way!"
+    }
+
+    It "alternate silence" {
+        Get-BobResponse -HeyBob "                                                                                " | Should -BeExactly "Fine. Be that way!"
+    }
+
+    It "multiple line question" {
+        Get-BobResponse -HeyBob "
+Does this cryogenic chamber make me look fat?
+no" | Should -BeExactly "Whatever."
+    }
+
+    It "starting with whitespace" {
+        Get-BobResponse -HeyBob "         hmmmmmmm..." | Should -BeExactly "Whatever."
+    }
+
+    It "ending with whitespace" {
+        Get-BobResponse -HeyBob "Okay if like my  spacebar  quite a bit?   " | Should -BeExactly "Sure."
+    }
+
+    It "other whitespace" {
+        Get-BobResponse -HeyBob "
+        " | Should -BeExactly "Fine. Be that way!"
+    }
+
+    It "non-question ending with whitespace" {
+        Get-BobResponse -HeyBob "This is a statement ending with whitespace      " | Should -BeExactly "Whatever."
+    }
+}

data/tracks/powershell/exercises/bob/README.md

@@ -0,0 +1,20 @@
+# Bob
+
+Bob is a lackadaisical teenager. In conversation, his responses are very limited.
+
+Bob answers 'Sure.' if you ask him a question.
+
+He answers 'Whoa, chill out!' if you yell at him.
+
+He answers 'Calm down, I know what I'm doing!' if you yell a question at him.
+
+He says 'Fine. Be that way!' if you address him without actually saying
+anything.
+
+He answers 'Whatever.' to anything else.
+## Source
+
+Inspired by the 'Deaf Grandma' exercise in Chris Pine's Learn to Program tutorial. [http://pine.fm/LearnToProgram/?Chapter=06](http://pine.fm/LearnToProgram/?Chapter=06)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/powershell/exercises/nucleotide-count/.version

@@ -0,0 +1 @@
+0

data/tracks/powershell/exercises/nucleotide-count/NucleotideCount.example.ps1

@@ -0,0 +1,36 @@
+Function Get-NucleotideCount() {
+    [CmdletBinding()]
+    Param(
+        [string]$Strand = ""
+    )
+
+    $nucleotides = "ACGT"
+    $nucleotideRegEx = "^[$($nucleotides)]+$"
+
+    # Test for valid Strand values (empty string or made up of a string of ACGT characters in any order)
+    If ($Strand -ne "" -and $Strand -notmatch $nucleotideRegEx){
+        Throw "Invalid nucleotide in strand"
+    }
+
+    $result = ""
+
+    # Count the nucleotides in the strand
+    ForEach($nucleotide in $nucleotides.ToCharArray()){
+        $count = 0
+        For($i = 0; $i -lt $Strand.Length; $i++){
+            # Test if the current charcter in the strand is the nucleotide we are counting
+            If ($Strand[$i] -eq $nucleotide){
+                $count ++
+            }
+        }
+
+        # Add a space to the output if needed
+        If ($result -ne "") {
+            $result += " "
+        }
+        
+        $result += ("{0}:{1}" -f $nucleotide, $count)
+    }
+
+    Return $result
+}

data/tracks/powershell/exercises/nucleotide-count/NucleotideCount.ps1

@@ -0,0 +1,8 @@
+Function Get-NucleotideCount() {
+    [CmdletBinding()]
+    Param(
+        [string]$Strand
+    )
+
+    Throw "Not implemented exception"
+}

data/tracks/powershell/exercises/nucleotide-count/NucleotideCount.tests.ps1

@@ -0,0 +1,25 @@
+$here = Split-Path -Parent $MyInvocation.MyCommand.Path
+$sut = (Split-Path -Leaf $MyInvocation.MyCommand.Path) -replace '\.tests\.', '.'
+. "$here\$sut"
+
+Describe "NucleotideCountTests" {
+	It "empty strand" {
+        Get-NucleotideCount -Strand "" | Should -BeExactly "A:0 C:0 G:0 T:0"
+	}
+
+	It "can count one nucleotide in single-character input" {
+		Get-NucleotideCount -Strand "G" | Should -BeExactly "A:0 C:0 G:1 T:0"
+	}
+
+	It "strand with repeated nucleotide" {
+		Get-NucleotideCount -Strand "GGGGGGG" | Should -BeExactly "A:0 C:0 G:7 T:0"
+	}
+
+	It "strand with multiple nucleotides" {
+		Get-NucleotideCount -Strand "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC" | Should -BeExactly "A:20 C:12 G:17 T:21"
+	}
+
+	It "strand with invalid nucleotides" {
+		{ Get-NucleotideCount -Strand "AGXXACT" } | Should -Throw
+	}	
+}

data/tracks/powershell/exercises/nucleotide-count/README.md

@@ -0,0 +1,19 @@
+# Nucleotide Count
+
+Given a single stranded DNA string, compute how many times each nucleotide occurs in the string.
+
+The genetic language of every living thing on the planet is DNA.
+DNA is a large molecule that is built from an extremely long sequence of individual elements called nucleotides.
+4 types exist in DNA and these differ only slightly and can be represented as the following symbols: 'A' for adenine, 'C' for cytosine, 'G' for guanine, and 'T' thymine.
+
+Here is an analogy:
+- twigs are to birds nests as
+- nucleotides are to DNA as
+- legos are to lego houses as
+- words are to sentences as...
+## Source
+
+The Calculating DNA Nucleotides_problem at Rosalind [http://rosalind.info/problems/dna/](http://rosalind.info/problems/dna/)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/powershell/exercises/raindrops/.version

@@ -0,0 +1 @@
+0

data/tracks/powershell/exercises/raindrops/README.md

@@ -0,0 +1,24 @@
+# Raindrops
+
+Convert a number to a string, the contents of which depend on the number's factors.
+
+- If the number has 3 as a factor, output 'Pling'.
+- If the number has 5 as a factor, output 'Plang'.
+- If the number has 7 as a factor, output 'Plong'.
+- If the number does not have 3, 5, or 7 as a factor,
+  just pass the number's digits straight through.
+
+## Examples
+
+- 28's factors are 1, 2, 4, **7**, 14, 28.
+  - In raindrop-speak, this would be a simple "Plong".
+- 30's factors are 1, 2, **3**, **5**, 6, 10, 15, 30.
+  - In raindrop-speak, this would be a "PlingPlang".
+- 34 has four factors: 1, 2, 17, and 34.
+  - In raindrop-speak, this would be "34".
+## Source
+
+A variation on a famous interview question intended to weed out potential candidates. [http://jumpstartlab.com](http://jumpstartlab.com)
+
+## Submitting Incomplete Solutions
+It's possible to submit an incomplete solution so you can see how others have completed the exercise.

data/tracks/powershell/exercises/raindrops/Raindrops.example.ps1

@@ -0,0 +1,32 @@
+Function Get-Raindrops() {
+    [CmdletBinding()]
+    Param(
+        [int]$Rain
+    )
+
+    # Initialize the result
+    [string]$Result = ""
+
+    # Use a hashtable to list the factors and what they are replaced with
+    $factorRain = @{
+        3 = "Pling";
+        5 = "Plang";
+        7 = "Plong";
+    }
+
+    # Loop over the hashtable testing the factors and building up the result.
+    # NOTE: You must sort hashtables if order is important. See: https://blogs.technet.microsoft.com/heyscriptingguy/2014/09/28/weekend-scripter-sorting-powershell-hash-tables/
+    Foreach($factor in ($factorRain.GetEnumerator() | Sort-Object -Property Name)){
+        If($Rain % $factor.Name -eq 0){
+            $Result += $factor.Value
+        }
+    }
+
+    # Deal with the case that no factors are found so passthrough the original value
+    If ([string]::IsNullOrEmpty($Result)){
+        $Result = $Rain.ToString()
+    }
+
+    # Return the resulting string
+    Return $Result
+}

data/tracks/powershell/exercises/raindrops/Raindrops.ps1

@@ -0,0 +1,8 @@
+Function Get-Raindrops() {
+    [CmdletBinding()]
+    Param(
+        [int]$Rain
+    )
+
+    Throw "Not implemented exception"
+}

data/tracks/powershell/exercises/raindrops/Raindrops.tests.ps1

@@ -0,0 +1,34 @@
+$here = Split-Path -Parent $MyInvocation.MyCommand.Path
+$sut = (Split-Path -Leaf $MyInvocation.MyCommand.Path) -replace '\.tests\.', '.'
+. "$here\$sut"
+
+Describe "Test Get-Raindrops" {
+
+	It "Given the number <Number> it should output <Result>" -TestCases @(
+		@{ Number = 1; Result = "1" },
+		@{ Number = 3; Result = "Pling" },
+		@{ Number = 5; Result = "Plang" },
+		@{ Number = 7; Result = "Plong" },
+		@{ Number = 6; Result = "Pling" },
+		@{ Number = 9; Result = "Pling" },
+		@{ Number = 10; Result = "Plang" },
+		@{ Number = 14; Result = "Plong" },
+		@{ Number = 15; Result = "PlingPlang" },
+		@{ Number = 21; Result = "PlingPlong" },
+		@{ Number = 25; Result = "Plang" },
+		@{ Number = 27; Result = "Pling" },
+		@{ Number = 35; Result = "PlangPlong" },
+		@{ Number = 49; Result = "Plong" },
+		@{ Number = 52; Result = "52" },
+		@{ Number = 105; Result = "PlingPlangPlong" },
+		@{ Number = 3125; Result = "Plang" },
+		@{ Number = 12121; Result = "12121" }
+	) {
+		Param(
+			[int]$Number,
+			[string]$Result
+		)
+
+		Get-Raindrops -Rain $Number | Should -BeExactly $Result
+	}
+}

data/tracks/prolog/exercises/complex-numbers/complex_numbers_tests.plt

@@ -4,10 +4,37 @@ pending :-
     write('\nA TEST IS PENDING!\n'),
     fail.
 
+:- begin_tests(real_part).
+
+    test(real_part_of_a_purely_real_number, condition(true)) :-
+        real((1,0),1).
+
+    test(real_part_of_a_purely_imaginary_number, condition(pending)) :-
+        real((0,1),0).
+
+    test(real_part_of_a_number_with_real_and_imaginary_part, condition(pending)) :-
+        real((1,2),1).
+
+:- end_tests(real_part).
+
+
+:- begin_tests(imaginary_part).
+
+    test(imaginary_part_of_a_purely_real_number, condition(pending)) :-
+        imaginary((1,0),0).
+
+    test(imaginary_part_of_a_purely_imaginary_number, condition(pending)) :-
+        imaginary((0,1),1).
+
+    test(imaginary_part_of_a_number_with_real_and_imaginary_part, condition(pending)) :-
+        imaginary((1,2),2).
+
+:- end_tests(imaginary_part).
+
 
 :- begin_tests(addition).
 
-    test(add_purely_real_numbers, condition(true)) :-
+    test(add_purely_real_numbers, condition(pending)) :-
         add((1,0), (2,0), (3,0)).
 
     test(add_purely_imaginary_numbers, condition(pending)) :-
@@ -93,31 +120,3 @@ pending :-
         conjugate((1,1), (1,-1)).
 
 :- end_tests(conjugate).
-
-
-:- begin_tests(real_part).
-
-    test(real_part_of_a_purely_real_number, condition(true)) :-
-        real((1,0),1).
-
-    test(real_part_of_a_purely_imaginary_number, condition(true)) :-
-        real((0,1),0).
-
-    test(real_part_of_a_number_with_real_and_imaginary_part, condition(true)) :-
-        real((1,2),1).
-
-:- end_tests(real_part).
-
-
-:- begin_tests(imaginary_part).
-
-    test(imagianry_part_of_a_purely_real_number, condition(true)) :-
-        imaginary((1,0),0).
-
-    test(imaginary_part_of_a_purely_imaginary_number, condition(true)) :-
-        imaginary((0,1),1).
-
-    test(imaginary_part_of_a_number_with_real_and_imaginary_part, condition(true)) :-
-        imaginary((1,2),2).
-
-:- end_tests(imaginary_part).

data/tracks/reasonml/.gitignore

@@ -0,0 +1,4 @@
+*.swp
+.DS_Store
+bin/configlet
+bin/configlet.exe

data/tracks/reasonml/.travis.yml

@@ -0,0 +1,5 @@
+language: bash
+
+script:
+  - bin/fetch-configlet
+  - bin/configlet lint --track TRACK_ID .

data/tracks/reasonml/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2018 Exercism, Inc
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.