trackler 2.1.0.27 → 2.1.0.28

data/tracks/fortran/exercises/difference-of-squares/difference_of_squares.fun

@@ -0,0 +1,42 @@
+test_suite difference_of_squares
+
+setup
+end setup
+
+test square_of_sum_1
+  assert_equal( 1, square_of_sum(1) )
+end test
+
+Xtest square_of_sum_5
+  assert_equal( 225, square_of_sum(5) )
+end test
+
+Xtest square_of_sum_100
+  assert_equal( 25502500, square_of_sum(100) )
+end test
+
+Xtest sum_of_squares_1
+  assert_equal( 1, sum_of_squares(1) )
+end test
+
+Xtest sum_of_squares_5
+  assert_equal( 55, sum_of_squares(5) )
+end test
+
+Xtest sum_of_squares_100
+  assert_equal( 338350, sum_of_squares(100) )
+end test
+
+Xtest difference_of_squares_1
+  assert_equal( 0, difference(1) )
+end test
+
+Xtest difference_of_squares_5
+  assert_equal( 170, difference(5) )
+end test
+
+Xtest difference_of_squares_100
+ assert_equal( 25164150, difference(100) )
+end test
+
+end test_suite

data/tracks/fortran/exercises/difference-of-squares/example.f90

@@ -0,0 +1,35 @@
+module difference_of_squares
+  contains
+  integer function square_of_sum(n)
+    implicit none
+    integer :: i,n
+
+    square_of_sum = 0
+
+    do i = 1,n
+      square_of_sum = square_of_sum + i
+    end do
+
+    square_of_sum = square_of_sum * square_of_sum
+  end function square_of_sum
+
+  integer function sum_of_squares(n)
+    implicit none
+    integer :: i, n
+
+    sum_of_squares = 0
+
+    do i = 1,n
+      sum_of_squares = sum_of_squares + i**2
+    end do
+
+  end function sum_of_squares
+
+  integer function difference(n)
+    implicit none
+    integer :: n
+
+    difference = square_of_sum(n) - sum_of_squares(n)
+  end function difference
+
+end module difference_of_squares

data/tracks/fortran/exercises/raindrops/example.f90

@@ -0,0 +1,26 @@
+module raindrops
+  contains
+  function convert(i)
+    implicit none
+    integer :: i
+    character(20) :: convert
+
+    convert = ''
+
+    if ( mod(i,3) .eq. 0 ) then
+      convert = 'Pling'
+    end if
+    if ( mod(i,5) .eq. 0 ) then
+      convert = trim(convert)//'Plang'
+    end if
+    if ( mod(i,7) .eq. 0 ) then
+      convert = trim(convert)//'Plong'
+    end if
+
+    if (convert .eq. '') then
+      write( convert, '(i20)' ) i
+      convert = trim(adjustl(convert))
+    end if
+
+  end function convert
+end module raindrops

data/tracks/fortran/exercises/raindrops/raindrops.fun

@@ -0,0 +1,78 @@
+test_suite raindrops
+
+setup
+end setup
+
+test the_sound_for_1_is_1
+  assert_equal( '1', convert(1) )
+end test
+
+Xtest the_sound_for_3_is_pling
+  assert_equal( 'Pling', convert(3) )
+end test
+
+Xtest the_sound_for_5_is_plang
+  assert_equal( 'Plang', convert(5) )
+end test
+
+Xtest the_sound_for_7_is_plong
+  assert_equal( 'Plong', convert(7) )
+end test
+
+Xtest the_sound_for_6_is_pling_as_it_has_a_factor_3
+  assert_equal( 'Pling', convert(6) )
+end test
+
+Xtest two_to_the_power_3_does_not_make_a_raindrop_sound
+  assert_equal( '8', convert(8) )
+end test
+
+Xtest the_sound_for_9_is_pling_as_it_has_factor_3
+  assert_equal( 'Pling', convert(9) )
+end test
+
+Xtest the_sound_for_10_is_plang_as_it_has_a_factor_5
+  assert_equal( 'Plang', convert(10) )
+end test
+
+Xtest the_sound_for_14_is_plong_as_it_has_a_factor_of_7
+  assert_equal( 'Plong', convert(14) )
+end test
+
+Xtest the_sound_for_15_is_plingplang_as_it_has_factors_3_and_5
+  assert_equal( 'PlingPlang', convert(15) )
+end test
+
+Xtest the_sound_for_21_is_plingplong_as_it_has_factors_3_and_7
+  assert_equal( 'PlingPlong', convert(21) )
+end test
+
+Xtest the_sound_for_25_is_plang_as_it_has_a_factor_of_5
+  assert_equal( 'Plang', convert(25) )
+end test
+
+Xtest the_sound_for_27_is_pling_as_it_has_a_factor_of_3
+  assert_equal( 'Pling', convert(27) )
+end test
+
+Xtest the_sound_for_35_is_plangplong_as_it_has_factors_5_and_7
+  assert_equal( 'PlangPlong', convert(35) )
+end test
+
+Xtest the_sound_for_49_is_plong_as_it_has_a_factor_of_7
+  assert_equal( 'Plong', convert(49) )
+end test
+
+Xtest the_sound_for_105_is_plingplangplong
+  assert_equal( 'PlingPlangPlong', convert(105) )
+end test
+
+Xtest the_sound_for_3125_is_plang_as_it_has_a_factor_5
+  assert_equal( 'Plang', convert(3125) )
+end test
+
+Xtest the_sound_for_3131_is_3131
+  assert_equal( '3131', convert(3131) )
+end test
+
+end test_suite

data/tracks/fortran/exercises/rna-transcription/example.f90

@@ -0,0 +1,27 @@
+module rna_transcription
+  contains
+  function complement(dna)
+      implicit none
+      character(*) :: dna
+      character(len(dna)) :: complement
+      integer :: i
+
+      do i = 1,len(dna)
+        select case (dna(i:i))
+            case ('G')
+                complement(i:i) = 'C'
+            case ('C')
+                complement(i:i) = 'G'
+            case ('T')
+                complement(i:i) = 'A'
+            case ('A')
+                complement(i:i) = 'U'
+            case default
+                complement = ''
+                return
+        end select
+      end do
+
+  end function complement
+end module rna_transcription
+

data/tracks/fortran/exercises/rna-transcription/rna_transcription.fun

@@ -0,0 +1,38 @@
+test_suite rna_transcription
+
+setup
+end setup
+
+test rna_complement_of_cytosine_is_guanine
+  assert_equal( 'G', complement('C') )
+end test
+
+Xtest rna_complement_of_guanine_is_cytosine
+  assert_equal( 'C', complement('G') )
+end test
+
+Xtest rna_complement_of_thymine_is_adenine
+  assert_equal( 'A', complement('T') )
+end test
+
+Xtest rna_complement_of_adenine_is_uracil
+  assert_equal( 'U', complement('A') )
+end test
+
+Xtest rna_complement
+  assert_equal( 'UGCACCAGAAUU', complement('ACGTGGTCTTAA') )
+end test
+
+Xtest dna_correctly_handles_invalid_input
+  assert_equal( '', complement('U') )
+end test
+
+Xtest dna_correctly_handles_completely_invalid_input
+  assert_equal( '', complement('XXX') )
+end test
+
+Xtest dna_correctly_handles_partially_invalid_input
+  assert_equal( '', complement('ACGTXXXCTTAA') )
+end test
+
+end test_suite

data/tracks/go/exercises/acronym/.meta/gen.go

@@ -0,0 +1,51 @@
+package main
+
+import (
+	"log"
+	"text/template"
+
+	"../../../gen"
+)
+
+func main() {
+	t, err := template.New("").Parse(tmpl)
+	if err != nil {
+		log.Fatal(err)
+	}
+	var j js
+	if err := gen.Gen("acronym", &j, t); err != nil {
+		log.Fatal(err)
+	}
+}
+
+// The JSON structure we expect to be able to unmarshal into
+type js struct {
+	Cases []struct {
+		Description string
+		Cases       []struct {
+			Description string
+			Property    string
+			Phrase      string
+			Expected    string
+		}
+	}
+}
+
+// template applied to above data structure generates the Go test cases
+var tmpl = `package acronym
+
+{{.Header}}
+
+type acronymTest struct {
+	input    string
+	expected string
+}
+
+var stringTestCases = []acronymTest {
+{{range .J.Cases}} {{range .Cases}}{
+	input: {{printf "%q" .Phrase }},
+	expected: {{printf "%q" .Expected }},
+},
+{{end}}{{end}}
+}
+`

data/tracks/go/exercises/acronym/acronym_test.go

@@ -4,21 +4,7 @@ import (
 	"testing"
 )
 
-const targetTestVersion = 2
-
-type testCase struct {
-	input    string
-	expected string
-}
-
-var stringTestCases = []testCase{
-	{"Portable Network Graphics", "PNG"},
-	{"HyperText Markup Language", "HTML"},
-	{"Ruby on Rails", "ROR"},
-	{"PHP: Hypertext Preprocessor", "PHP"},
-	{"First In, First Out", "FIFO"},
-	{"Complementary metal-oxide semiconductor", "CMOS"},
-}
+const targetTestVersion = 3
 
 func TestTestVersion(t *testing.T) {
 	if testVersion != targetTestVersion {

data/tracks/go/exercises/acronym/cases_test.go

@@ -0,0 +1,37 @@
+package acronym
+
+// Source: exercism/x-common
+// Commit: cae7ae1 acronym: remove test case with mixed-case phrase (#788)
+// x-common version: 1.1.0
+
+type acronymTest struct {
+	input    string
+	expected string
+}
+
+var stringTestCases = []acronymTest{
+	{
+		input:    "Portable Network Graphics",
+		expected: "PNG",
+	},
+	{
+		input:    "Ruby on Rails",
+		expected: "ROR",
+	},
+	{
+		input:    "First In, First Out",
+		expected: "FIFO",
+	},
+	{
+		input:    "PHP: Hypertext Preprocessor",
+		expected: "PHP",
+	},
+	{
+		input:    "GNU Image Manipulation Program",
+		expected: "GIMP",
+	},
+	{
+		input:    "Complementary metal-oxide semiconductor",
+		expected: "CMOS",
+	},
+}

data/tracks/go/exercises/acronym/example.go

@@ -6,7 +6,7 @@ import (
 	"strings"
 )
 
-const testVersion = 2
+const testVersion = 3
 
 func Abbreviate(s string) string {
 	regex := regexp.MustCompile("[A-Z]+[a-z]*|[a-z]+")

data/tracks/go/exercises/secret-handshake/.meta/gen.go

@@ -0,0 +1,49 @@
+package main
+
+import (
+	"log"
+	"text/template"
+
+	"../../../gen"
+)
+
+func main() {
+	t, err := template.New("").Parse(tmpl)
+	if err != nil {
+		log.Fatal(err)
+	}
+	var j js
+	if err := gen.Gen("secret-handshake", &j, t); err != nil {
+		log.Fatal(err)
+	}
+}
+
+// The JSON structure we expect to be able to unmarshal into
+type js struct {
+	Cases []struct {
+		Description string
+		Cases       []struct {
+			Description string
+			Property    string
+			Input       uint
+			Expected    []string
+		}
+	}
+}
+
+// template applied to above data structure generates the Go test cases
+var tmpl = `package secret
+
+{{.Header}}
+
+type secretHandshakeTest struct {
+	code uint
+	h []string
+}
+
+var tests = []secretHandshakeTest {
+{{range .J.Cases}} {{range .Cases}}{ {{ .Input }}, {{printf "%#v" .Expected }},
+},
+{{end}}{{end}}
+}
+`

data/tracks/go/exercises/secret-handshake/cases_test.go

@@ -0,0 +1,24 @@
+package secret
+
+// Source: exercism/x-common
+// Commit: 69c8700 secret-handshake: remove tests for numbers > 31 (#794)
+// x-common version: 1.1.0
+
+type secretHandshakeTest struct {
+	code uint
+	h    []string
+}
+
+var tests = []secretHandshakeTest{
+	{1, []string{"wink"}},
+	{2, []string{"double blink"}},
+	{4, []string{"close your eyes"}},
+	{8, []string{"jump"}},
+	{3, []string{"wink", "double blink"}},
+	{19, []string{"double blink", "wink"}},
+	{24, []string{"jump"}},
+	{16, []string{}},
+	{15, []string{"wink", "double blink", "close your eyes", "jump"}},
+	{31, []string{"jump", "close your eyes", "double blink", "wink"}},
+	{0, []string{}},
+}