trackler 2.1.0.21 → 2.1.0.22

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

@@ -114,20 +114,6 @@ test_that("eliminates anagrams with the same checksum", {
                c())
 })
 
-test_that("detects unicode anagrams", {
-  subject <- "ΑΒΓ"
-  candidates <- c("ΒΓΑ", "ΒΓΔ", "γβα")
-  expect_equal(anagram(subject, candidates),
-               c("ΒΓΑ", "γβα"))
-})
-
-test_that("eliminates misleading unicode anagrams", {
-  subject <- "ΑΒΓ"
-  candidates <- c("ABΓ")
-  expect_equal(anagram(subject, candidates),
-               c())
-})
-
 test_that("capital word is not own anagram", {
   subject <- "BANANA"
   candidates <- c("Banana")
@@ -142,4 +128,4 @@ test_that("anagrams must use all letters exactly once", {
                c())
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: anagram")

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

@@ -1,3 +1,3 @@
-bob <- function() {
+bob <- function(input) {
 
 }

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

@@ -3,7 +3,7 @@ bob <- function(input) {
   # with a couple different sentences
 
   # strip white space
-  input <- gsub("[[:space:]]","",input)
+  input <- gsub("[[:space:]]", "", input)
 
   if (input == "") {
     return("Fine. Be that way!")
@@ -11,7 +11,7 @@ bob <- function(input) {
   if (toupper(input) == input && tolower(input) != input) {
     return("Whoa, chill out!")
   }
-  if (endsWith(input,"?")) {
+  if (endsWith(input, "?")) {
     return("Sure.")
   }
   return("Whatever.")

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

@@ -85,18 +85,6 @@ test_that("talking forcefully", {
                  "Whoa, chill out!")
   })
 
-test_that("shouting with umlauts", {
-  input <- "ÜMLÄÜTS!"
-  expect_equal(bob(input),
-               "Whoa, chill out!")
-})
-
-test_that("calmly speaking with umlauts", {
-  input <- "ÜMLäÜTS!"
-  expect_equal(bob(input),
-               "Whatever.")
-})
-
 test_that("shouting with no exclamation mark", {
   input <- "I HATE YOU"
   expect_equal(bob(input),
@@ -173,4 +161,4 @@ test_that("non-question ending with whitespace", {
                "Whatever.")
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: bob")

data/tracks/r/exercises/difference-of-squares/example.R

@@ -1,6 +1,6 @@
 difference_of_squares <- function(natural_number) {
-  num_sequence <- seq_len(natural_number)
-  square_sums <- sum(num_sequence)^2
-  sum_squares <- sum(num_sequence^2)
-  sum(square_sums - sum_squares)
-}
+    num_sequence <- seq_len(natural_number)
+    square_sums <- sum(num_sequence) ^ 2
+    sum_squares <- sum(num_sequence ^ 2)
+    sum(square_sums - sum_squares)
+}

data/tracks/r/exercises/difference-of-squares/test_difference-of-squares.R

@@ -20,3 +20,5 @@ test_that("difference of squares 100", {
   input <- 100
   expect_equal(difference_of_squares(input), 25164150)
 })
+
+print("All tests passed for exercise: difference-of-squares")

data/tracks/r/exercises/grains/example.R

@@ -1,16 +1,16 @@
 square <- function(n) {
-  
+
   if (n > 0 & n < 65) {
-    2^(n-1)
+    2 ^ (n - 1)
   }
   else {
     stop("Input value should be between 1 and 64")
   }
-  
+
 }
 
 total <- function() {
-  
-  sum(2^(0:63))
-  
+
+  sum(2 ^ (0:63))
+
 }

data/tracks/r/exercises/grains/grains.R

@@ -1,7 +1,7 @@
 square <- function(n) {
-  
+
 }
 
 total <- function() {
-  
+
 }

data/tracks/r/exercises/grains/test_grains.R

@@ -45,5 +45,4 @@ test_that("returns the total number of square on the board", {
   expect_equal(total(), 18446744073709551615)
 })
 
-
-print("All tests passed!")
+print("All tests passed for exercise: grains")

data/tracks/r/exercises/hamming/example.R

@@ -1,8 +1,8 @@
-hamming <- function(strand1,strand2) {
+hamming <- function(strand1, strand2) {
   if (nchar(strand1) != nchar(strand2)) {
     stop("undefined hamming distance")
   }
-  strand1 <- strsplit(strand1,"")[[1]]
-  strand2 <- strsplit(strand2,"")[[1]]
+  strand1 <- strsplit(strand1, "")[[1]]
+  strand2 <- strsplit(strand2, "")[[1]]
   length(strand1) - sum(strand1 == strand2)
 }

data/tracks/r/exercises/hamming/hamming.R

@@ -1,4 +1,4 @@
 # This is a stub function to take two strings
 # and calculate the hamming distance
-hamming <- function(strand1,strand2) {
+hamming <- function(strand1, strand2) {
 }

data/tracks/r/exercises/hamming/test_hamming.R

@@ -85,4 +85,4 @@ test_that("disallow second strand longer", {
   expect_error(hamming(strand1, strand2))
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: hamming")

data/tracks/r/exercises/hello-world/example.R

@@ -1,3 +1,3 @@
 hello_world <- function(name = "World") {
-  paste("Hello, ", name, "!", sep="")
+  paste("Hello, ", name, "!", sep = "")
 }

data/tracks/r/exercises/hello-world/test_hello-world.R

@@ -13,4 +13,4 @@ test_that("other sample name", {
   expect_equal(hello_world("Bob"), "Hello, Bob!")
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: hello-world")

data/tracks/r/exercises/isogram/example.R

@@ -1,9 +1,9 @@
 is_isogram <- function(word) {
-  
+
   func <- function(x) {
     sum(x == unlist(strsplit(tolower(word), "")))
   }
-  
-  all(lapply(letters, FUN = func)<=1)
-  
+
+  all(lapply(letters, FUN = func) <= 1)
+
 }

data/tracks/r/exercises/isogram/isogram.R

@@ -1,3 +1,3 @@
 is_isogram <- function(word) {
-  
+
 }

data/tracks/r/exercises/isogram/test_isogram.R

@@ -41,4 +41,4 @@ test_that("made-up name that is an isogram", {
   expect_equal(is_isogram(word), TRUE)
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: isogram")

data/tracks/r/exercises/largest-series-product/example.R

@@ -1,22 +1,22 @@
-largestSeriesProduct <- function(digits, span){
-  
+largest_series_product <- function(digits, span){
+
   nums <- as.numeric(unlist(strsplit(digits, "")))
-  
+
   if (any(is.na(nums)) || span < 0 || span > length(nums)) {
     stop("Non-numeric characters or span less than digit length")
   }
-  
+
   if (span == 0) {
-    return (1)
+    return(1)
   }
-  
-  indices <- 1:(length(nums)-span+1)
-  
+
+  indices <- 1:(length(nums) - span + 1)
+
   get_prod <- function(index, nums, span) {
-    prod(nums[index:(index+span-1)])
+    prod(nums[index:(index + span - 1)])
   }
-  
+
   products <- sapply(indices, FUN = get_prod, nums, span)
-  
+
   max(products)
 }

data/tracks/r/exercises/largest-series-product/largest-series-product.R

@@ -1,3 +1,3 @@
-largestSeriesProduct <- function(digits, span){
-  
+largest_series_product <- function(digits, span){
+
 }

data/tracks/r/exercises/largest-series-product/test_largest-series-product.R

@@ -4,61 +4,61 @@ library(testthat)
 test_that("finds the largest product if span equals length", {
   digits <- "29"
   span <- 2
-  expect_equal(largestSeriesProduct(digits, span), 18)
+  expect_equal(largest_series_product(digits, span), 18)
 })
 
 test_that("can find the largest product of 2 with numbers in order", {
   digits <- "0123456789"
   span <- 2
-  expect_equal(largestSeriesProduct(digits, span), 72)
+  expect_equal(largest_series_product(digits, span), 72)
 })
 
 test_that("can find the largest product of 2", {
   digits <- "576802143"
   span <- 2
-  expect_equal(largestSeriesProduct(digits, span), 48)
+  expect_equal(largest_series_product(digits, span), 48)
 })
 
 test_that("can find the largest product of 3 with numbers in order", {
   digits <- "0123456789"
   span <- 3
-  expect_equal(largestSeriesProduct(digits, span), 504)
+  expect_equal(largest_series_product(digits, span), 504)
 })
 
 test_that("can find the largest product of 3", {
   digits <- "1027839564"
   span <- 3
-  expect_equal(largestSeriesProduct(digits, span), 270)
+  expect_equal(largest_series_product(digits, span), 270)
 })
 
 test_that("can find the largest product of 5 with numbers in order", {
   digits <- "0123456789"
   span <- 5
-  expect_equal(largestSeriesProduct(digits, span), 15120)
+  expect_equal(largest_series_product(digits, span), 15120)
 })
 
 test_that("can get the largest product of a big number", {
   digits <- "73167176531330624919225119674426574742355349194934"
   span <- 6
-  expect_equal(largestSeriesProduct(digits, span), 23520)
+  expect_equal(largest_series_product(digits, span), 23520)
 })
 
 test_that("reports zero if the only digits are zero", {
   digits <- "0000"
   span <- 2
-  expect_equal(largestSeriesProduct(digits, span), 0)
+  expect_equal(largest_series_product(digits, span), 0)
 })
 
 test_that("reports zero if all spans include zero", {
   digits <- "99099"
   span <- 3
-  expect_equal(largestSeriesProduct(digits, span), 0)
+  expect_equal(largest_series_product(digits, span), 0)
 })
 
 test_that("rejects span longer than string length", {
   digits <- "123"
   span <- 4
-  expect_error(largestSeriesProduct(digits, span))
+  expect_error(largest_series_product(digits, span))
 })
 
 # There may be some confusion about whether this should be 1 or error.
@@ -77,7 +77,7 @@ test_that("rejects span longer than string length", {
 test_that("reports 1 for empty string and empty product (0 span)", {
   digits <- ""
   span <- 0
-  expect_equal(largestSeriesProduct(digits, span), 1)
+  expect_equal(largest_series_product(digits, span), 1)
 })
 
 # As above, there is one 0-character string in "123".
@@ -86,25 +86,25 @@ test_that("reports 1 for empty string and empty product (0 span)", {
 test_that("reports 1 for nonempty string and empty product (0 span)", {
   digits <- "123"
   span <- 0
-  expect_equal(largestSeriesProduct(digits, span), 1)
+  expect_equal(largest_series_product(digits, span), 1)
 })
 
 test_that("rejects empty string and nonzero span", {
   digits <- ""
   span <- 1
-  expect_error(largestSeriesProduct(digits, span))
+  expect_error(largest_series_product(digits, span))
 })
 
 test_that("rejects invalid character in digits", {
   digits <- "1234a5"
   span <- 2
-  expect_error(largestSeriesProduct(digits, span))
+  expect_error(largest_series_product(digits, span))
 })
 
 test_that("rejects negative span", {
   digits <- "12345"
   span <- -1
-  expect_error(largestSeriesProduct(digits, span))
+  expect_error(largest_series_product(digits, span))
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: largest-series-product")

data/tracks/r/exercises/leap/leap.R

@@ -1,3 +1,3 @@
 leap <- function(year) {
-  
+
 }

data/tracks/r/exercises/leap/test_leap.R

@@ -21,4 +21,4 @@ test_that("year divisible by 400: leap year", {
   expect_equal(leap(year), TRUE)
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: leap")

data/tracks/r/exercises/luhn/example.R

@@ -1,23 +1,29 @@
+library(magrittr)
+
 # Determine whether the number is valid.
 is_valid <- function(input) {
-  
+
   # Strip spaces, check length & check for invalid characters
-  input_vector <- strsplit(gsub(pattern = " ", replacement = "", input), "")[[1]]
+  input_vector <- gsub(pattern = " ", replacement = "", input) %>% 
+                    strsplit("") %>% 
+                    unlist()
   if (length(input_vector) < 2 || any(grepl("[^[:digit:]]", input_vector))) {
-    return (FALSE)
+    return(FALSE)
   }
-  
+
   # Convert to numeric
   num_vector <- as.numeric(input_vector)
-  
+
   # Double every second digit starting from the right
   num_vector <- rev(num_vector)
-  num_vector[seq(2,length(num_vector),2)] = num_vector[seq(2,length(num_vector),2)]*2
-  
-  # Subtract 9 if > 9 (can apply to all since no digit can be greater than 9 before doubling)
+  num_vector[seq(2, length(num_vector), 2)] <- 
+    num_vector[seq(2, length(num_vector), 2)] * 2
+
+  # Subtract 9 if > 9 (can apply to all since no
+  # digit can be greater than 9 before doubling)
   num_vector <- ifelse(num_vector > 9, num_vector - 9, num_vector)
-  
+
   # Check checksum is divisible by 10
   sum(num_vector) %% 10 == 0
-  
+
 }

data/tracks/r/exercises/luhn/test_luhn.R

@@ -66,4 +66,4 @@ test_that("nine doubled is nine", {
   expect_equal(is_valid(input), TRUE)
 })
 
-print("All tests passed!")
+print("All tests passed for exercise: luhn")

data/tracks/r/exercises/pascals-triangle/example.R

@@ -1,24 +1,24 @@
-pascalsTriangle <- function(n) {
-  
+pascals_triangle <- function(n) {
+
   if (n == 0) {
-    return (list())
+    return(list())
   }
   else if (n == 1) {
-    return (list(1))
+    return(list(1))
   }
   else if (n == 2) {
-    return (list(1, c(1,1)))
+    return(list(1, c(1, 1)))
   }
   else if (n >= 3) {
-    triangle <- list(1, c(1,1))
+    triangle <- list(1, c(1, 1))
     for (x in 3:n) {
       row <- rep(1, x)
-      for (i in 2:(x-1)) {
-        row[i] = sum(triangle[[x-1]][(i-1):i])
+      for (i in 2:(x - 1)) {
+        row[i] <- sum(triangle[[x - 1]][(i - 1):i])
       }
-      triangle[[x]] = row
+      triangle[[x]] <- row
     }
-    return (triangle)
+    return(triangle)
   }
   else {
     stop("argument n needs to be an integer")