trackler 2.0.8.24 → 2.0.8.26

data/tracks/kotlin/exercises/luhn/src/test/kotlin/LuhnTest.kt

@@ -1,86 +1,88 @@
 import org.junit.Test
 import org.junit.Ignore
-import kotlin.test.assertEquals
+import kotlin.test.assertFalse
+import kotlin.test.assertTrue
 
 class LuhnTest {
 
 
     @Test
-    fun checkDigitIsRightMostDigit() {
-        val expectedOutput = 7
-
-        assertEquals(expectedOutput, Luhn(34567).checkDigit)
+    fun singleDigitStringsCannotBeValid() {
+        assertFalse(Luhn.isValid("1"))
     }
 
     @Ignore
     @Test
-    fun addendsDoublesEveryOtherNumberFromRight() {
-        val expectedOutput = listOf(1, 4, 1, 4, 1)
-
-        assertEquals(expectedOutput, Luhn(12121).addends)
+    fun singleZeroIsInvalid() {
+        assertFalse(Luhn.isValid("0"))
     }
 
     @Ignore
     @Test
-    fun addendsSubtracts9WhenDoubledNumberIsMoreThan9() {
-        val expectedOutput = listOf(7, 6, 6, 1)
-
-        assertEquals(expectedOutput, Luhn(8631).addends)
+    fun simpleValidSINThatRemainsValidIfReversed() {
+        assertTrue(Luhn.isValid("059"))
+        assertTrue(Luhn.isValid("950"))
     }
 
     @Ignore
     @Test
-    fun checkSumAddsAddendsTogether1() {
-        val expectedOutput = 22
-
-        assertEquals(expectedOutput, Luhn(4913).checksum)
+    fun simpleValidSINThatBecomesInvalidIfReversed() {
+        assertTrue(Luhn.isValid("59"))
+        assertFalse(Luhn.isValid("95"))
     }
 
     @Ignore
     @Test
-    fun checkSumAddsAddendsTogether2() {
-        val expectedOutput = 21
-
-        assertEquals(expectedOutput, Luhn(201773).checksum)
+    fun validCanadianSIN() {
+        assertTrue(Luhn.isValid("055 444 285"))
     }
 
     @Ignore
     @Test
-    fun numberIsValidWhenChecksumMod10IsZero1() {
-        val expectedOutput = false
-
-        assertEquals(expectedOutput, Luhn(738).isValid)
+    fun invalidCanadianSIN() {
+        assertFalse(Luhn.isValid("055 444 286"))
     }
 
     @Ignore
     @Test
-    fun numberIsValidWhenChecksumMod10IsZero2() {
-        val expectedOutput = true
-
-        assertEquals(expectedOutput, Luhn(8739567).isValid)
+    fun invalidCreditCard() {
+        assertFalse(Luhn.isValid("8273 1232 7352 0569"))
     }
 
     @Ignore
     @Test
-    fun luhnCanCreateSimpleNumbersWithValidCheckDigit() {
-        val expectedOutput = 1230L
+    fun validStringsWithNonDigitIncludedBecomeInvalid() {
+        assertFalse(Luhn.isValid("055a 444 285"))
+    }
 
-        assertEquals(expectedOutput, Luhn(123).create)
+    @Ignore
+    @Test
+    fun validStringsWithPunctuationIncludedBecomeInvalid() {
+        assertFalse(Luhn.isValid("055-444-285"))
     }
 
     @Ignore
     @Test
-    fun luhnCanCreateLargeNumbersWithValidCheckDigit() {
-        val expectedOutput = 8739567L
+    fun validStringsWithSymbolsIncludedBecomeInvalid() {
+        assertFalse(Luhn.isValid("055£ 444$ 285"))
+    }
 
-        assertEquals(expectedOutput, Luhn(873956).create)
+    @Ignore
+    @Test
+    fun singleZeroWithSpaceIsInvalid() {
+        assertFalse(Luhn.isValid(" 0"))
     }
 
     @Ignore
     @Test
-    fun luhnCanCreateHugeNumbersWithValidCheckDigit() {
-        val expectedOutput = 8372637564L
+    fun moreThanSingleZeroIsValid() {
+        assertTrue(Luhn.isValid("0000 0"))
+    }
 
-        assertEquals(expectedOutput, Luhn(837263756).create)
+    @Ignore
+    @Test
+    fun inputDigit9IsCorrectlyConvertedToOutputDigit9() {
+        assertTrue(Luhn.isValid("091"))
     }
+
 }

data/tracks/php/README.md

@@ -1,6 +1,6 @@
 # xPHP
 
-[![Build Status](https://travis-ci.org/exercism/xphp.png?branch=master)](https://travis-ci.org/exercism/xphp)
+[![Build Status](https://travis-ci.org/exercism/xphp.svg?branch=master)](https://travis-ci.org/exercism/xphp)
 
 Exercism exercises in PHP
 

data/tracks/php/config.json

@@ -367,6 +367,11 @@
     "slug": "luhn",
     "difficulty": 4,
     "topics": []
+  },
+  {
+      "slug": "perfect-numbers",
+      "difficulty": 1,
+      "topics": []
   }
   ]
 }

data/tracks/php/exercises/perfect-numbers/example.php

@@ -0,0 +1,23 @@
+<?php
+
+function getClassification($number)
+{
+    if ($number <= 0) {
+         throw new InvalidArgumentException("You must supply a natural number (positive integer)");
+    }
+
+    $sum = 0 ;
+    for ($i = 1; $i < $number; $i++) {
+        if ($number % $i == 0) {
+            $sum += $i ;
+        }
+    }
+
+    if ($sum == $number) {
+        return "perfect" ;
+    } elseif ($sum < $number) {
+        return "deficient" ;
+    } else {
+        return "abundant" ;
+    }
+}

data/tracks/php/exercises/perfect-numbers/perfect-numbers_test.php

@@ -0,0 +1,99 @@
+<?php
+
+require "perfect-numbers.php";
+
+class PerfectNumbersTest extends PHPUnit\Framework\TestCase
+{
+    public function testSmallPerfectNumberIsClassifiedCorrectly()
+    {
+        $this->assertEquals("perfect", getClassification(6));
+    }
+
+    public function testMediumPerfectNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("perfect", getClassification(28));
+    }
+
+    public function testLargePerfectNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("perfect", getClassification(33550336));
+    }
+
+    public function testSmallAbundantNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("abundant", getClassification(12));
+    }
+
+    public function testMediumAbundantNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("abundant", getClassification(30));
+    }
+
+    public function testLargeAbundantNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("abundant", getClassification(33550335));
+    }
+
+    public function testSmallestPrimeDeficientNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("deficient", getClassification(2));
+    }
+
+    public function testSmallestNonPrimeDeficientNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("deficient", getClassification(4));
+    }
+
+    public function testMediumDeficientNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("deficient", getClassification(32));
+    }
+
+    public function testLargeDeficientNumberIsClassifiedCorrectly()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("deficient", getClassification(33550337));
+    }
+
+    public function testThatOneIsCorrectlyClassifiedAsDeficient()
+    {
+        $this->markTestSkipped();
+
+        $this->assertEquals("deficient", getClassification(1));
+    }
+
+    public function testThatNonNegativeIntegerIsRejected()
+    {
+        $this->markTestSkipped();
+
+        $this->expectException(InvalidArgumentException::class) ;
+
+        getClassification(0) ;
+    }
+
+    public function testThatNegativeIntegerIsRejected()
+    {
+        $this->markTestSkipped();
+
+        $this->expectException(InvalidArgumentException::class) ;
+
+        getClassification(-1) ;
+    }
+}

data/tracks/purescript/.travis.yml

@@ -15,3 +15,4 @@ script:
 cache:
   directories:
   - $HOME/.cache/bower/
+  - $HOME/.exercise_cache/

data/tracks/purescript/bin/test.sh

@@ -2,21 +2,45 @@
 
 # TEST
 
+xpurescript=$(dirname "$BASH_SOURCE")
+xpurescript=$(readlink -f "$xpurescript/..")
+cd "$xpurescript"
+echo "xpurescript: $xpurescript"
+
+cache_dir="$HOME"
+if [ -z "$TRAVIS" ]; then
+  cache_dir="$xpurescript"
+fi
+cache_dir="$cache_dir/.exercise_cache"
+echo "cache_dir: $cache_dir"
+
 declare -i TEST_RESULT=0
 FAILED_EXERCISES=''
 
-for exercise_dir in exercises/**
-do
-  exercise_src="$exercise_dir/src"
-  exercise_examples_src="$exercise_dir/examples/src"
-
-  mv "$exercise_src" "$exercise_src.impl"
-  mv "$exercise_examples_src" "$exercise_src"
+cd exercises
 
+for exercise_dir in *
+do
   echo "-------------------------------------------------------"
   echo "Testing $exercise_dir"
 
   cd "$exercise_dir"
+
+  exercise_src=src
+  exercise_examples_src=examples/src
+
+  # Setup Travis cache
+  for dir in bower_components output; do
+    cache="$cache_dir/$exercise_dir/$dir"
+
+    mkdir -p "$cache"
+    ln -f -s "$cache"
+    echo "cache: $(ls -l "$dir")"
+  done
+
+  mv "$exercise_src" "$exercise_src.impl"
+  mv "$exercise_examples_src" "$exercise_src"
+
   bower install
   pulp test
 
@@ -27,9 +51,10 @@ do
   fi
 
   # be kind, rewind
-  cd -
   mv "$exercise_src" "$exercise_examples_src"
   mv "$exercise_src.impl" "$exercise_src"
+
+  cd -
 done
 
 if [ $TEST_RESULT -ne 0 ]; then

data/tracks/purescript/config.json

@@ -79,6 +79,13 @@
       "topics": [
         "strings"
       ]
+    },
+    {
+      "slug": "meetup",
+      "difficulty": 1,
+      "topics": [
+        "dates"
+      ]
     }
   ],
   "deprecated": [

data/tracks/purescript/exercises/meetup/bower.json

@@ -0,0 +1,17 @@
+{
+  "name": "meetup",
+  "ignore": [
+    "**/.*",
+    "node_modules",
+    "bower_components",
+    "output"
+  ],
+  "dependencies": {
+    "purescript-prelude": "^2.5.0",
+    "purescript-datetime": "^2.2.0"
+  },
+  "devDependencies": {
+    "purescript-psci-support": "^2.0.0",
+    "purescript-test-unit": "^10.1.0"
+  }
+}

data/tracks/purescript/exercises/meetup/examples/src/Meetup.purs

@@ -0,0 +1,37 @@
+module Meetup
+  ( meetup
+  , Week(..)
+  ) where
+
+import Prelude
+import Data.Array (catMaybes, filter, last, (!!))
+import Data.Date (Date, Month, Weekday, Year, day, exactDate, weekday)
+import Data.Enum (enumFromTo, toEnum)
+import Data.Maybe (Maybe(..))
+
+data Week = First
+          | Second
+          | Third
+          | Fourth
+          | Last
+          | Teenth
+
+sat :: Week -> Array Date -> Maybe Date
+sat First  ds = ds !! 0
+sat Second ds = ds !! 1
+sat Third  ds = ds !! 2
+sat Fourth ds = ds !! 3
+sat Last   ds = last ds
+sat Teenth ds = do
+  lot <- toEnum 13
+  hit <- toEnum 19
+  case filter (day >>> between lot hit) ds of
+    [e] -> pure e
+    _ -> Nothing
+
+meetup :: Year -> Month -> Week -> Weekday -> Maybe Date
+meetup y m w wd = enumFromTo bottom top
+                  # map (exactDate y m)
+                  # catMaybes
+                  # filter (\d -> weekday d == wd)
+                  # sat w

data/tracks/purescript/exercises/meetup/src/Meetup.purs

@@ -0,0 +1,11 @@
+module Meetup
+  ( meetup
+  , Week(..)
+  ) where
+
+data Week = First
+          | Second
+          | Third
+          | Fourth
+          | Last
+          | Teenth