trackler 2.1.0.19 → 2.1.0.20

data/tracks/perl6/bin/README.md

@@ -1,7 +1,7 @@
 The `exercise-gen.pl6` file can be used in the following ways:
-* From within the directory of the exercise you wish to generate a test for.
-* With arguments specifying which exercises you want to generate tests for.  
-  e.g. `./exercise-gen.pl6 hello-world leap`
+* From within the directory of the exercise you wish to generate a test for. [showterm example](http://showterm.io/cc7ddb7b23bb73e784d7d)
+* With arguments specifying which exercises you want to generate tests for
+  e.g. `./exercise-gen.pl6 hello-world leap`. [showterm example](http://showterm.io/54d5cf196eb45a0e40640)
 * With the argument `--all` to run the generator for all exercises.  
   i.e `./exercise-gen.pl6 --all`
 
@@ -30,3 +30,5 @@ tests: |
 ```
 
 You must have `Template::Mustache` and `YAMLish` to run `exercise-gen.pl6`.
+
+Note (2017-05-22): [YAMLish](http://modules.perl6.org/dist/YAMLish) is not yet feature complete, so some valid YAML files may not parse.

data/tracks/perl6/docs/LEARNING.md

@@ -6,3 +6,10 @@ The [Resources](https://perl6.org/resources/) page on [perl6.org](https://perl6.
 * [Learn Perl 6 in Y minutes](https://learnxinyminutes.com/docs/perl6/)
 * [Perl 6 tutorials](https://github.com/perlpilot/perl6-docs)
 * [SixFix](http://sixfix.nigelhamilton.com/) a weekly dose of Perl 6 delivered by email
+
+## Perl 6 from Other Languages - Nutshell
+
+* [Perl 5](https://docs.perl6.org/language/5to6-nutshell)
+* [Haskell](https://docs.perl6.org/language/haskell-to-p6)
+* [Python](https://docs.perl6.org/language/py-nutshell)
+* [Ruby](https://docs.perl6.org/language/rb-nutshell)

data/tracks/r/exercises/anagram/test_anagram.R

@@ -1,164 +1,145 @@
-source('./anagram.R')
+source("./anagram.R")
 library(testthat)
 
 test_that("no matches", {
   subject <- "diaper"
-  candidates <- c("hello","world","zombies","pants")
+  candidates <- c("hello", "world", "zombies", "pants")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("detects simple anagram", {
   subject <- "ant"
-  candidates <- c("tan","stand","at")
+  candidates <- c("tan", "stand", "at")
   expect_equal(anagram(subject, candidates),
-    c("tan")
-  )
+               c("tan"))
 })
 
 test_that("does not detect false positives", {
   subject <- "galea"
   candidates <- c("eagle")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("detects multiple anagrams", {
   subject <- "master"
-  candidates <- c("stream","pigeon","maters")
+  candidates <- c("stream", "pigeon", "maters")
   expect_equal(anagram(subject, candidates),
-    c("stream","maters")
-  )
+               c("stream", "maters"))
 })
 
 test_that("does not detect anagram subsets", {
   subject <- "good"
-  candidates <- c("dog","goody")
+  candidates <- c("dog", "goody")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("detects anagram", {
   subject <- "listen"
-  candidates <- c("enlists","google","inlets","banana")
+  candidates <- c("enlists", "google", "inlets", "banana")
   expect_equal(anagram(subject, candidates),
-    c("inlets")
-  )
+               c("inlets"))
 })
 
 test_that("detects multiple anagrams", {
   subject <- "allergy"
-  candidates <- c("gallery","ballerina","regally","clergy","largely","leading")
+  candidates <-
+    c("gallery", "ballerina", "regally", "clergy", "largely", "leading")
   expect_equal(anagram(subject, candidates),
-    c("gallery","regally","largely")
-  )
+               c("gallery", "regally", "largely"))
 })
 
 test_that("does not detect indentical words", {
   subject <- "corn"
-  candidates <- c("corn","dark","Corn","rank","CORN","cron","park")
+  candidates <- c("corn", "dark", "Corn", "rank", "CORN", "cron", "park")
   expect_equal(anagram(subject, candidates),
-    c("cron")
-  )
+               c("cron"))
 })
 
 test_that("does not detect non-anagrams with identical checksum", {
   subject <- "mass"
   candidates <- c("last")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("detects anagrams case-insensitively", {
   subject <- "Orchestra"
-  candidates <- c("cashregister","Carthorse","radishes")
+  candidates <- c("cashregister", "Carthorse", "radishes")
   expect_equal(anagram(subject, candidates),
-    c("Carthorse")
-  )
+               c("Carthorse"))
 })
 
 test_that("detects anagrams using case-insensitive subject", {
   subject <- "Orchestra"
-  candidates <- c("cashregister","carthorse","radishes")
+  candidates <- c("cashregister", "carthorse", "radishes")
   expect_equal(anagram(subject, candidates),
-    c("carthorse")
-  )
+               c("carthorse"))
 })
 
 test_that("detects anagrams using case-insensitve possible matches", {
   subject <- "orchestra"
-  candidates <- c("cashregister","Carthorse","radishes")
+  candidates <- c("cashregister", "Carthorse", "radishes")
   expect_equal(anagram(subject, candidates),
-    c("Carthorse")
-  )
+               c("Carthorse"))
 })
 
 test_that("does not detect a word as its own anagram", {
   subject <- "banana"
   candidates <- c("Banana")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("does not detect a anagram if the original word is repeated", {
   subject <- "go"
   candidates <- c("go Go GO")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("anagrams must use all letters exactly once", {
   subject <- "tapper"
   candidates <- c("patter")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("eliminates anagrams with the same checksum", {
   subject <- "mass"
   candidates <- c("last")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("detects unicode anagrams", {
   subject <- "ΑΒΓ"
-  candidates <- c("ΒΓΑ","ΒΓΔ","γβα")
+  candidates <- c("ΒΓΑ", "ΒΓΔ", "γβα")
   expect_equal(anagram(subject, candidates),
-    c("ΒΓΑ","γβα")
-  )
+               c("ΒΓΑ", "γβα"))
 })
 
 test_that("eliminates misleading unicode anagrams", {
   subject <- "ΑΒΓ"
   candidates <- c("ABΓ")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("capital word is not own anagram", {
   subject <- "BANANA"
   candidates <- c("Banana")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 test_that("anagrams must use all letters exactly once", {
   subject <- "patter"
   candidates <- c("tapper")
   expect_equal(anagram(subject, candidates),
-    c()
-  )
+               c())
 })
 
 print("All tests passed!")

data/tracks/r/exercises/bob/test_bob.R

@@ -1,197 +1,176 @@
-source('./bob.R')
+source("./bob.R")
 library(testthat)
 
 test_that("stating something", {
   input <- "Tom-ay-to, tom-aaaah-to."
   expect_equal(bob(input),
-    "Whatever."
-  )
+               "Whatever.")
 })
 
 test_that("shouting", {
   input <- "WATCH OUT!"
   expect_equal(bob(input),
-    "Whoa, chill out!"
-  )
+               "Whoa, chill out!")
 })
 
 test_that("shouting gibberish", {
   input <- "FCECDFCAAB"
   expect_equal(bob(input),
-    "Whoa, chill out!"
-  )
+               "Whoa, chill out!")
 })
 
 test_that("asking a question", {
   input <- "Does this cryogenic chamber make me look fat?"
   expect_equal(bob(input),
-    "Sure."
-  )
+               "Sure.")
 })
 
 test_that("asking a numeric question", {
   input <- "You are, what, like 15?"
   expect_equal(bob(input),
-    "Sure."
-  )
+               "Sure.")
 })
 
 test_that("asking gibberish", {
   input <- "fffbbcbeab?"
   expect_equal(bob(input),
-    "Sure."
-  )
+               "Sure.")
 })
 
 test_that("talking forcefully", {
   input <- "Let's go make out behind the gym!"
   expect_equal(bob(input),
-    "Whatever."
+  "Whatever."
   )
 })
-
-test_that("using acronyms in regular speech", {
+  
+  test_that("using acronyms in regular speech", {
   input <- "It's OK if you don't want to go to the DMV."
   expect_equal(bob(input),
-    "Whatever."
+  "Whatever."
   )
-})
-
-test_that("forceful question", {
+  })
+  
+  test_that("forceful question", {
   input <- "WHAT THE HELL WERE YOU THINKING?"
   expect_equal(bob(input),
-    "Whoa, chill out!"
+  "Whoa, chill out!"
   )
-})
-
-test_that("shouting numbers", {
+  })
+  
+  test_that("shouting numbers", {
   input <- "1, 2, 3 GO!"
   expect_equal(bob(input),
-    "Whoa, chill out!"
+  "Whoa, chill out!"
   )
-})
-
-test_that("only numbers", {
+  })
+  
+  test_that("only numbers", {
   input <- "1, 2, 3"
   expect_equal(bob(input),
-    "Whatever."
+  "Whatever."
   )
-})
-
-test_that("question with only numbers", {
+  })
+  
+  test_that("question with only numbers", {
   input <- "4?"
   expect_equal(bob(input),
-    "Sure."
+  "Sure."
   )
-})
-
-test_that("shouting with special characters", {
-  input <- "ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!"
-  expect_equal(bob(input),
-    "Whoa, chill out!"
-  )
-})
+  })
+  
+  test_that("shouting with special characters", {
+  input <- "ZOMG THE % ^  * @#$(*^ ZOMBIES ARE COMING!!11!!1!"
+    expect_equal(bob(input),
+                 "Whoa, chill out!")
+  })
 
 test_that("shouting with umlauts", {
   input <- "ÜMLÄÜTS!"
   expect_equal(bob(input),
-    "Whoa, chill out!"
-  )
+               "Whoa, chill out!")
 })
 
 test_that("calmly speaking with umlauts", {
   input <- "ÜMLäÜTS!"
   expect_equal(bob(input),
-    "Whatever."
-  )
+               "Whatever.")
 })
 
 test_that("shouting with no exclamation mark", {
   input <- "I HATE YOU"
   expect_equal(bob(input),
-    "Whoa, chill out!"
-  )
+               "Whoa, chill out!")
 })
 
 test_that("statement containing question mark", {
   input <- "Ending with ? means a question."
   expect_equal(bob(input),
-    "Whatever."
-  )
+               "Whatever.")
 })
 
 test_that("non-letters with question", {
   input <- ":) ?"
   expect_equal(bob(input),
-    "Sure."
-  )
+               "Sure.")
 })
 
 test_that("prattling on", {
   input <- "Wait! Hang on. Are you going to be OK?"
   expect_equal(bob(input),
-    "Sure."
-  )
+               "Sure.")
 })
 
 test_that("silence", {
   input <- ""
   expect_equal(bob(input),
-    "Fine. Be that way!"
-  )
+               "Fine. Be that way!")
 })
 
 test_that("prolonged silence", {
   input <- "          "
   expect_equal(bob(input),
-    "Fine. Be that way!"
-  )
+               "Fine. Be that way!")
 })
 
 test_that("alternate silence", {
   input <- "										"
   expect_equal(bob(input),
-    "Fine. Be that way!"
-  )
+               "Fine. Be that way!")
 })
 
 test_that("multiple line question", {
   input <- "
-Does this cryogenic chamber make me look fat?
-no"
+  Does this cryogenic chamber make me look fat?
+  no"
   expect_equal(bob(input),
-    "Whatever."
-  )
+               "Whatever.")
 })
 
 test_that("starting with whitespace", {
   input <- "         hmmmmmmm..."
   expect_equal(bob(input),
-    "Whatever."
-  )
+               "Whatever.")
 })
 
 test_that("ending with whitespace", {
   input <- "Okay if like my  spacebar  quite a bit?   "
   expect_equal(bob(input),
-    "Sure."
-  )
+               "Sure.")
 })
 
 test_that("other whitespace", {
   input <- "
-
- 	  "
+  
+  "
   expect_equal(bob(input),
-    "Fine. Be that way!"
-  )
+               "Fine. Be that way!")
 })
 
 test_that("non-question ending with whitespace", {
   input <- "This is a statement ending with whitespace      "
   expect_equal(bob(input),
-    "Whatever."
-  )
+               "Whatever.")
 })
 
 print("All tests passed!")