trackler 1.0.1.1 → 1.0.1.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 9afe3a2389f45df29805ba631f6e4c4afc5c66ef
-  data.tar.gz: bebab04f762c5ee338b0e5a4d645985db6b5034b
+  metadata.gz: 46eba216917195005f43b257524ef79a75d0fcce
+  data.tar.gz: bf6317aaf2b8742bd480e33ea4e06bcbce0081f8
 SHA512:
-  metadata.gz: 744116cb977fbed40d585e95a734cedf12e60c2277a703826e39e74e4525881333fed0ca7e4cc3d3add5432df76b6a681bf2c12c3ae7f2223c0bb83313cfd6fd
-  data.tar.gz: 3932ddf8a13ac14ab7e0c0c4baaccb9cf15f7e0b4278d3411c34c07523dae0d07ff397d474a2c0e2904c71b6add9887d8c4f30d6882b6839dd1824f007c91688
+  metadata.gz: 323e53e441f4c400f84a4d0d0123d57e1c20ecee05c684c2df0788c678dc15cab9f6e32fb661e9bf4908fa3033051350e08eda69063add138f6077c927ca36ff
+  data.tar.gz: d7f42fc7e36ea22693526fcb80f2507492e59646361786e662e7ed1c02f7cc6cf19b7c3740469cae392e6a5c3ecb285de3edd3ec8e764b104764a9c48ba71217

data/.gitmodules

@@ -160,3 +160,6 @@
 [submodule "tracks/pascal"]
 	path = tracks/pascal
 	url = https://github.com/exercism/xpascal.git
+[submodule "tracks/prolog"]
+	path = tracks/prolog
+	url = https://github.com/exercism/xprolog

data/README.md

@@ -64,7 +64,17 @@ end
 
 After checking out the repo, run `bin/setup` to install dependencies. You can also run `bin/console` for an interactive prompt that will allow you to experiment.
 
-To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org).
+To install this gem onto your local machine, run `bundle exec rake install`.
+
+To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org).
+
+## Adding a new language track
+
+Language tracks are included as submodules. To add a new one, run the following command, defining the track id as an environment variable. Shown here with `prolog` as an example.
+
+```
+$ TRACK_ID=prolog; git submodule add https://github.com/exercism/x$TRACK_ID tracks/$TRACK_ID
+```
 
 ## Contributing
 

data/bin/setup

@@ -4,5 +4,7 @@ IFS=$'\n\t'
 set -vx
 
 bundle install
+git submodule init
+git submodule update
 
 # Do any other automated setup that you need to do here

data/lib/trackler/version.rb

@@ -1,3 +1,3 @@
 module Trackler
-  VERSION = "1.0.1.1"
+  VERSION = "1.0.1.2"
 end

data/tracks/prolog/.git

@@ -0,0 +1 @@
+gitdir: ../../.git/modules/tracks/prolog

data/tracks/prolog/.gitignore

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

data/tracks/prolog/.travis.yml

@@ -0,0 +1,12 @@
+language: bash
+
+install:
+before_script:
+  - sudo apt-add-repository ppa:swi-prolog/devel -y
+  - sudo apt-get update -q
+  - sudo apt-get install swi-prolog-nox
+
+script:
+  - bin/fetch-configlet
+  - bin/configlet .
+  - bin/build.sh

data/tracks/prolog/LICENSE

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2016 Katrina Owen, _@kytrinyx.com
+
+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.

data/tracks/prolog/README.md

@@ -0,0 +1,12 @@
+# Exercism prolog Track
+![build status](https://travis-ci.org/exercism/xprolog.svg?branch=master)
+
+Exercism exercises in prolog.
+
+## TODO
+
+_Document how to contribute to the prolog track._
+
+## Contributing Guide
+
+Please see the [contributing guide](https://github.com/exercism/x-common/blob/master/CONTRIBUTING.md).

data/tracks/prolog/bin/build.sh

@@ -0,0 +1,25 @@
+declare -i TEST_RESULT=0
+FAILED_EXERCISES=''
+
+for example_file in exercises/**/*.example
+do
+    exercise_dir=$(dirname $example_file)
+    exercise=$(basename $example_file .example)
+    mv "$exercise_dir/$exercise.pl" "$exercise_dir/$exercise.impl"
+    mv "$exercise_dir/$exercise.example" "$exercise_dir/$exercise.pl"
+    echo '-------------------------------------------------------'
+    echo "Testing $exercise"
+    swipl -f  "$exercise_dir/$exercise.pl" -s "$exercise_dir/${exercise}_tests.plt" -g run_tests,halt -t 'halt(1)'
+    if [ $? -ne 0 ]; then
+        TEST_RESULT=1
+        FAILED_EXERCISES+="$exercise\n"
+    fi
+    mv "$exercise_dir/$exercise.pl" "$exercise_dir/$exercise.example"
+    mv "$exercise_dir/$exercise.impl" "$exercise_dir/$exercise.pl"
+done
+
+if [ $TEST_RESULT -ne 0 ]; then
+    echo "The following exercises failed"
+    printf $FAILED_EXERCISES
+    exit $TEST_RESULT
+fi

data/tracks/prolog/bin/fetch-configlet

@@ -0,0 +1,32 @@
+#!/bin/bash
+
+LATEST=https://github.com/exercism/configlet/releases/latest
+
+OS=$(
+case $(uname) in
+    (Darwin*)
+        echo "mac";;
+    (Linux*)
+        echo "linux";;
+    (Windows*)
+        echo "windows";;
+    (*)
+        echo "linux";;
+esac)
+
+ARCH=$(
+case $(uname -m) in
+    (*64*)
+        echo 64bit;;
+    (*686*)
+        echo 32bit;;
+    (*386*)
+        echo 32bit;;
+    (*)
+        echo 64bit;;
+esac)
+
+VERSION="$(curl --head --silent $LATEST | awk -v FS=/ '/Location:/{print $NF}' | tr -d '\r')"
+URL=https://github.com/exercism/configlet/releases/download/$VERSION/configlet-$OS-${ARCH}.tgz
+
+curl -s --location $URL | tar xz -C bin/

data/tracks/prolog/config.json

@@ -0,0 +1,74 @@
+{
+  "slug": "prolog",
+  "language": "prolog",
+  "repository": "https://github.com/exercism/xprolog",
+  "active": false,
+  "exercises": [
+    {
+      "slug": "hello-world" ,
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "sum-of-multiples",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "binary",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "leap",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "triangle",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "space-age",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "grains",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "nucleotide-count" ,
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "hamming",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "anagram",
+      "difficulty": 1,
+      "topics": []
+    },
+    {
+      "slug": "rna-transcription",
+      "difficulty": 1,
+      "topics": []
+    }
+  ],
+  "deprecated": [
+
+  ],
+  "ignored": [
+    "bin",
+    "img",
+    "docs"
+  ],
+  "foregone": [
+
+  ]
+}

data/tracks/prolog/exercises/anagram/anagram.example

@@ -0,0 +1,24 @@
+% turns a string into a sorted list of characters
+format_word(Word, Formatted) :-
+    string_lower(Word, LowercaseWord),
+    string_chars(LowercaseWord, CharList),
+    sort(CharList, Formatted).
+
+anagram(Word, Options, Matching) :-
+    format_word(Word, FormattedWord),
+    anagram(Word, Options, Matching, FormattedWord).
+
+anagram(_, [], [], _) :- !.
+anagram(Word, [Option|Options], Matching, CharList) :-
+    Word \== Option,
+    format_word(Option, FormattedOption),
+    equal_lists(CharList, FormattedOption),
+    anagram(Word, Options, NextMatching, CharList),
+    Matching = [Option | NextMatching],
+    !.
+anagram(Word, [_ | Options], Matching, CharList) :-
+    anagram(Word, Options, Matching, CharList).
+
+equal_lists([], []).
+equal_lists([H|T1], [H|T2]) :-
+    equal_lists(T1, T2).

data/tracks/prolog/exercises/anagram/anagram.pl

@@ -0,0 +1 @@
+anagram(Word, Options, Matching).

data/tracks/prolog/exercises/anagram/anagram_tests.plt

@@ -0,0 +1,57 @@
+:- begin_tests(anagram).
+
+    test(no_matches) :-
+        anagram("diaper", [ "hello", "world", "zombies", "pants"], []).
+
+    test(detects_simple_anagram) :-
+        anagram("ant", ["tan", "stand", "at"], ["tan"]).
+
+    test(does_not_detect_false_positives) :-
+        anagram("galea", ["eagle"], []).
+
+    test(detects_multiple_anagrams) :-
+        anagram("master", ["stream", "pigeon", "maters"], ["stream", "maters"]).
+
+    test(does_not_detect_anagram_subsets) :-
+        anagram("good", ["dog", "goody"], []).
+
+    test(detects_anagram) :-
+        anagram("listen", ["enlists", "google", "inlets", "banana"], ["inlets"]).
+
+    test(detects_multiple_anagrams) :-
+        anagram("allergy", ["gallery", "ballerina", "regally", "clergy", "largely", "leading"], ["gallery", "regally", "largely"]).
+
+    test(does_not_detect_identical_words) :-
+        anagram("corn", ["corn", "dark", "Corn", "rank", "CORN", "cron", "park"], ["cron"]).
+
+    test(does_not_detect_nonanagrams_with_identical_checksum) :-
+        anagram("mass", ["last"], []).
+
+    test(detects_anagrams_case_insensitively) :-
+        anagram("Orchestra", ["cashregister", "Carthorse", "radishes"], ["Carthorse"]).
+
+    test(detects_anagrams_using_case_insensitive_subject) :-
+        anagram("Orchestra", ["cashregister", "carthorse", "radishes"], ["carthorse"]).
+
+    test(detects_anagrams_using_case_insensitive_possible_matches) :-
+        anagram("orchestra", ["cashregister", "Carthorse", "radishes"], ["Carthorse"]).
+
+    test(does_not_detect_a_word_as_its_own_anagram) :-
+        anagram("banana", ["Banana"], []).
+
+    test(does_not_detect_a_anagram_if_the_original_word_is_repeated) :-
+        anagram("go", ["go Go GO"], []).
+
+    test(anagrams_must_use_all_letters_exactly_once) :-
+        anagram("tapper", ["patter"], []).
+
+    test(detects_unicode_anagrams) :-
+        anagram("ΑΒΓ", ["ΒΓΑ", "ΒΓΔ", "γβα"], ["ΒΓΑ", "γβα"]).
+
+    test(eliminates_misleading_unicode_anagrams) :-
+        anagram("ΑΒΓ", ["ABΓ"], []).
+
+    test(capital_word_is_not_own_anagram) :-
+        anagram("BANANA", ["Banana"], []).
+
+:- end_tests(anagram).

data/tracks/prolog/exercises/binary/binary.example

@@ -0,0 +1,11 @@
+binary(Str, Dec) :-
+    string_chars(Str, RevLst),
+    reverse(RevLst, Lst),
+    convert(Lst, Dec).
+
+convert([], 0).
+convert([Head|List], Dec) :-
+    atom_number(Head, Val),
+    (Val is 0, !; Val is 1),
+    convert(List, NextDec),
+    Dec is NextDec*2 + Val.

data/tracks/prolog/exercises/binary/binary.pl

@@ -0,0 +1 @@
+binary(Str, Dec).

data/tracks/prolog/exercises/binary/binary_tests.plt

@@ -0,0 +1,51 @@
+:- begin_tests(binary).
+
+    test(binary_0_is_decimal_0) :-
+        binary("0", 0).
+
+    test(binary_0_is_decimal_0) :-
+        binary("0", 0).
+
+    test(binary_1_is_decimal_1) :-
+        binary("1", 1).
+
+    test(binary_10_is_decimal_2) :-
+        binary("10", 2).
+
+    test(binary_11_is_decimal_3) :-
+        binary("11", 3).
+
+    test(binary_100_is_decimal_4) :-
+        binary("100", 4).
+
+    test(binary_1001_is_decimal_9) :-
+        binary("1001", 9).
+
+    test(binary_11010_is_decimal_26) :-
+        binary("11010", 26).
+
+    test(binary_10001101000_is_decimal_1128) :-
+        binary("10001101000", 1128).
+
+    test(binary_ignores_leading_zeros) :-
+        binary("000011111", 31).
+
+    test(two_is_not_a_valid_binary_digit, [fail]) :-
+        binary("2", _).
+
+    test(nonbinary_digit_is_invalid, [fail]) :-
+        binary("01201", _).
+
+    test(trailing_nonbinary_characters_is_invalid, [fail]) :-
+        binary("10nope", _).
+
+    test(nonbinary_characters_is_invalid, [fail]) :-
+        binary("nope10", _).
+
+    test(internal_nonbinary_characters_is_invalid, [fail]) :-
+        binary("10nope10", _).
+
+    test(whitespace_separated_is_invalid, [fail]) :-
+        binary("001 nope", _).
+
+:- end_tests(binary).

data/tracks/prolog/exercises/grains/grains.example

@@ -0,0 +1,17 @@
+square(1, 1) :- !.
+square(SquareNumber, Value) :-
+    SquareNumber > 1, not(SquareNumber > 64),
+    NextSquare is SquareNumber - 1,
+    square(NextSquare, NewValue),
+    Value is 2 * NewValue,
+    !.
+
+total(Total) :- total(Total, 64).
+
+total(0, 0) :- !.
+total(Total, Square) :-
+    NextSquare is Square - 1,
+    total(NextTotal, NextSquare),
+    square(Square, SquareValue),
+    Total is NextTotal + SquareValue.
+    

data/tracks/prolog/exercises/grains/grains.pl

@@ -0,0 +1,3 @@
+square(SquareNumber, Value).
+
+total(Value).

data/tracks/prolog/exercises/grains/grains_tests.plt

@@ -0,0 +1,39 @@
+:- begin_tests(grains).
+
+    test(first) :-
+        square(1, 1).
+
+    test(second) :-
+        square(2, 2).
+
+    test(third) :-
+        square(3, 4).
+
+    test(sixteen) :-
+        square(16, 32768).
+
+    test(twenty_three) :-
+        square(23, 4194304).
+
+    test(thirty_two) :-
+        square(32, 2147483648).
+
+    test(fifty_five) :-
+        square(55, 18014398509481984).
+
+    test(sixty_four) :-
+        square(64, 9223372036854775808).
+
+    test(total) :-
+        total(18446744073709551615).
+
+    test(zero, [fail]) :-
+        square(0, _).
+
+    test(negative, [fail]) :-
+        square(-1, _).
+
+    test(off_board, [fail]) :-
+        square(65, _).
+
+:- end_tests(grains).

data/tracks/prolog/exercises/hamming/hamming.example

@@ -0,0 +1,15 @@
+hamming_distance(Str1, Str2, Distance) :-
+    string_length(Str1, Length),
+    string_length(Str2, Length),
+    string_chars(Str1, List1),
+    string_chars(Str2, List2),
+    hamming_distance_cmp(List1, List2, Distance).
+
+hamming_distance_cmp([], [], 0) :- !.
+hamming_distance_cmp([Char1|Chars1], [Char2|Chars2], Distance) :-
+    hamming_distance_cmp(Chars1, Chars2, NextDistance),
+    (Char1 == Char2 ->
+        Distance is NextDistance
+    ;
+        Distance is NextDistance + 1
+    ).

data/tracks/prolog/exercises/hamming/hamming.pl

@@ -0,0 +1 @@
+hamming_distance(Str1, Str2, Dist).

data/tracks/prolog/exercises/hamming/hamming_tests.plt

@@ -0,0 +1,48 @@
+:- begin_tests(hamming).
+
+    test(identical_strands) :-
+        hamming_distance("A", "A", 0).
+
+    test(long_identical_strands) :-
+        hamming_distance("GGACTGA", "GGACTGA", 0).
+
+    test(complete_distance_in_single_nucleotide_strands) :-
+        hamming_distance("A", "G", 1).
+
+    test(complete_distance_in_small_strands) :-
+        hamming_distance("AG", "CT", 2).
+
+    test(small_distance_in_small_strands) :-
+        hamming_distance("AT", "CT", 1).
+
+    test(small_distance) :-
+        hamming_distance("GGACG", "GGTCG", 1).
+
+    test(small_distance_in_long_strands) :-
+        hamming_distance("ACCAGGG", "ACTATGG", 2).
+
+    test(nonunique_character_in_first_strand) :-
+        hamming_distance("AGA", "AGG", 1).
+
+    test(nonunique_character_in_second_strand) :-
+        hamming_distance("AGG", "AGA", 1).
+
+    test(same_nucleotides_in_different_positions) :-
+        hamming_distance("TAG", "GAT", 2).
+
+    test(large_distance) :-
+        hamming_distance("GATACA", "GCATAA", 4).
+
+    test(large_distance_in_offbyone_strand) :-
+        hamming_distance("GGACGGATTCTG", "AGGACGGATTCT", 9).
+
+    test(empty_strands) :-
+        hamming_distance("", "", 0).
+
+    test(disallow_first_strand_longer, [fail]) :-
+        hamming_distance("AATG", "AAA", _).
+
+    test(disallow_second_strand_longer, [fail]) :-
+        hamming_distance("ATA", "AGTG", _).
+
+:- end_tests(hamming).

data/tracks/prolog/exercises/hello-world/hello_world.example

@@ -0,0 +1,5 @@
+hello_world('Hello World!').
+    
+hello_world(Name, Phrase) :-
+    atom_concat('Hello ', Name, HelloName),
+    atom_concat(HelloName, '!', Phrase).

data/tracks/prolog/exercises/hello-world/hello_world_tests.plt

@@ -0,0 +1,11 @@
+:- begin_tests(hello_word).
+    test(hello_world) :-
+        hello_world('Hello World!').
+
+    test(hello_world_fail, blocked("Pending")) :-
+        hello_world('Alice', 'Hello Alice!').
+
+    test(hello_world_fail, blocked("Pending")) :-
+        hello_world('Bob', 'Hello Bob!').
+
+:- end_tests(hello_word).

data/tracks/prolog/exercises/leap/leap.example

@@ -0,0 +1,3 @@
+leap(Year) :-
+    0 is mod(Year, 4), not(0 is mod(Year, 100)), !;
+    0 is mod(Year, 400).

data/tracks/prolog/exercises/leap/leap.pl

@@ -0,0 +1 @@
+leap(Year).

data/tracks/prolog/exercises/leap/leap_tests.plt

@@ -0,0 +1,24 @@
+:- begin_tests(leap_tests).
+
+    test(leap_year) :-
+        leap(1996).
+
+    test(standard_and_odd_year) :-
+        not(leap(1997)).
+
+    test(standard_even_year) :-
+        not(leap(1998)).
+
+    test(standard_nineteeth_century) :-
+        not(leap(1900)).
+
+    test(standard_eighteenth_century) :-
+        not(leap(1800)).
+
+    test(leap_twenty_fourth_century) :-
+        leap(2400).
+
+    test(leap_y2k) :-
+        leap(2000).
+
+:- end_tests(leap_tests).

data/tracks/prolog/exercises/nucleotide-count/nucleotide_count.example

@@ -0,0 +1,15 @@
+nucleotide_count(Strand, Counts) :-
+    atom_chars(Strand, Nucleotides),
+    count_nucleotides(Nucleotides, [('A', 0), ('C', 0), ('G', 0), ('T', 0)], Counts).
+
+count_nucleotides([], Counts, Counts).
+count_nucleotides([Nucleotide | Rest], Running, Counts) :-
+    count_single_nucleotide(Nucleotide, Running, NewCounts),
+    count_nucleotides(Rest, NewCounts, Counts).
+
+count_single_nucleotide(Nucleotide, [(OtherNucleotide, OtherCount) | Rest], NewCounts) :-
+    count_single_nucleotide(Nucleotide, Rest, RestCounts),
+    append([(OtherNucleotide, OtherCount)], RestCounts, NewCounts).
+count_single_nucleotide(Nucleotide, [(Nucleotide, Count) | Rest], NewCounts) :-
+    NewCount is Count + 1,
+    append([(Nucleotide, NewCount)], Rest, NewCounts).

data/tracks/prolog/exercises/nucleotide-count/nucleotide_count_tests.plt

@@ -0,0 +1,22 @@
+:- begin_tests(nucleotide_counting).
+
+    test(empty_dna_strand_has_no_adenosine) :-
+        nucleotide_count('', [('A', 0) | _ ]), !.
+
+    test(repetitive_cytidine_gets_counted) :-
+        nucleotide_count('CCCCC', Counts),
+        member(('C', 5), Counts), !.
+
+    test(counts_only_thymidine) :-
+        nucleotide_count('GGGGGTAACCCGG', Counts),
+        member(('T', 1), Counts), !.
+
+    test(counts_only_thymidine) :-
+        nucleotide_count(
+            'AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC',
+            [ ('A' ,20), ('C' , 12), ('G' , 17), ('T', 21) ]), !.
+
+    test(fails_when_not_dns, [fail]) :-
+        nucleotide_count('JOHNNYAPPLESEED', _), !.
+
+:- end_tests(nucleotide_counting).

data/tracks/prolog/exercises/rna-transcription/rna_transcription.example

@@ -0,0 +1,18 @@
+rna_transcription(Rna, Dna) :-
+    string_chars(Rna, RnaList),
+    rna_transcription_list(RnaList, DnaList),
+    string_chars(Dna, DnaList).
+
+rna_transcription_list([], []) :- !.
+rna_transcription_list([RnaBase | Rna], [DnaBase | Dna]) :-
+    (RnaBase = 'C' ->
+        DnaBase = 'G';
+     RnaBase = 'G' ->
+        DnaBase = 'C';
+     RnaBase = 'T' ->
+        DnaBase = 'A';
+     RnaBase = 'A' ->
+        DnaBase = 'U'
+    ),
+    rna_transcription_list(Rna, Dna).
+

data/tracks/prolog/exercises/rna-transcription/rna_transcription.pl

@@ -0,0 +1 @@
+rna_transcription(Rna, Dna).

data/tracks/prolog/exercises/rna-transcription/rna_transcription_tests.plt

@@ -0,0 +1,27 @@
+:- begin_tests(rna_transcription).
+
+    test(rna_complement_of_cytosine_is_guanine) :-
+        rna_transcription("C", "G").
+
+    test(rna_complement_of_guanine_is_cytosine) :-
+        rna_transcription("G", "C").
+
+    test(rna_complement_of_thymine_is_adenine) :-
+        rna_transcription("T", "A").
+
+    test(rna_complement_of_adenine_is_uracil) :-
+        rna_transcription("A", "U").
+
+    test(rna_complement) :-
+        rna_transcription("ACGTGGTCTTAA", "UGCACCAGAAUU").
+
+    test(dna_correctly_handles_invalid_input, [fail]) :-
+        rna_transcription("U", _).
+
+    test(dna_correctly_handles_completely_invalid_input, [fail]) :-
+        rna_transcription("XXX", _).
+
+    test(dna_correctly_handles_partially_invalid_input, [fail]) :-
+        rna_transcription("ACGTXXXCTTAA", _).
+
+:- end_tests(rna_transcription).

data/tracks/prolog/exercises/space-age/space_age.example

@@ -0,0 +1,16 @@
+period("Earth", 1).
+period("Mercury", 0.2408467).
+period("Venus", 0.61519726).
+period("Mars", 1.8808158).
+period("Jupiter", 11.862615).
+period("Saturn", 29.447498).
+period("Uranus", 84.016846).
+period("Neptune", 164.79132).
+
+convYearSec(Year, Sec) :-
+    Year is Sec / 31557600.
+
+space_age(Planet, AgeSec, Years) :-
+    period(Planet, Conv),
+    convYearSec(AgeYear, AgeSec),
+    Years is AgeYear / Conv, !.

data/tracks/prolog/exercises/space-age/space_age.pl

@@ -0,0 +1 @@
+space_age(Planet, AgeSec, Years).

data/tracks/prolog/exercises/space-age/space_age_tests.plt

@@ -0,0 +1,38 @@
+:- begin_tests(space_age).
+
+    float_eq(Real, Expected) :-
+        Expected is round(Real * 100).
+
+    test(earth) :-
+        space_age("Earth", 1000000000, Age),
+        float_eq(Age, 3169).
+
+    test(mercury) :-
+        space_age("Mercury", 2134835688, Age),
+        float_eq(Age, 28088).
+
+    test(venus) :-
+        space_age("Venus", 189839836, Age),
+        float_eq(Age, 978).
+
+    test(mars) :-
+        space_age("Mars", 2329871239, Age),
+        float_eq(Age, 3925).
+
+    test(jupiter) :-
+        space_age("Jupiter", 901876382, Age),
+        float_eq(Age, 241).
+
+    test(saturn) :-
+        space_age("Saturn", 3000000000, Age),
+        float_eq(Age, 323).
+    
+    test(uranus) :-
+        space_age("Uranus", 3210123456, Age),
+        float_eq(Age, 121).
+
+    test(neptune) :-
+        space_age("Neptune", 8210123456, Age),
+        float_eq(Age, 158).
+
+:- end_tests(space_age).

data/tracks/prolog/exercises/sum-of-multiples/sum_of_multiples.example

@@ -0,0 +1,14 @@
+factored([Curr|Factors], Num) :-
+    0 is mod(Num, Curr), !;
+    factored(Factors, Num).
+
+sum_of_multiples(_, 0, 0) :- !.
+sum_of_multiples(Factors, Limit, Sum) :-
+    Next is Limit - 1,
+    sum_of_multiples(Factors, Next, NextSum),
+    (
+        factored(Factors, Limit),
+        Sum is Limit + NextSum, !;
+        Sum is NextSum
+    ).
+

data/tracks/prolog/exercises/sum-of-multiples/sum_of_multiples.pl

@@ -0,0 +1 @@
+sum_of_multiples(Factors, Limit, Sum).

data/tracks/prolog/exercises/sum-of-multiples/sum_of_multiples_tests.plt

@@ -0,0 +1,39 @@
+:- begin_tests(sum_of_multiples).
+
+    test(low_limit) :-
+        sum_of_multiples([3, 5], 1, 0).
+
+    test(just_one_multiple) :-
+        sum_of_multiples([3, 5], 4, 3).
+
+    test(a_few_multiples) :-
+        sum_of_multiples([3, 5], 10, 23).
+
+    test(sum_more_multiples) :-
+        sum_of_multiples([3, 5], 100, 2318).
+
+    test(even_more_multiples) :-
+        sum_of_multiples([3, 5], 1000, 233168).
+
+    test(new_factors) :-
+        sum_of_multiples([7, 13, 17], 20, 51).
+
+    test(sum_more_new_factors) :-
+        sum_of_multiples([4, 6], 15, 30).
+
+    test(even_more_new_factors) :-
+        sum_of_multiples([5, 6, 8], 150, 4419).
+
+    test(divisible_factor) :-
+        sum_of_multiples([5, 25], 51, 275).
+
+    test(large_factors) :-
+        sum_of_multiples([43, 47], 10000, 2203160).
+
+    test(every_num) :-
+        sum_of_multiples([1], 100, 4950).
+
+    test(no_factors) :-
+        sum_of_multiples([], 10000, 0).
+
+:- end_tests(sum_of_multiples).

data/tracks/prolog/exercises/triangle/triangle.example

@@ -0,0 +1,26 @@
+triangle(Side, Side, Side, "equilateral") :-
+    valid_triangle(Side, Side, Side), !.
+
+triangle(SideEq, SideEq, OtherSide, "isosceles") :-
+    valid_triangle(SideEq, SideEq, OtherSide), !.
+
+triangle(SideEq, OtherSide, SideEq, "isosceles") :-
+    valid_triangle(SideEq, SideEq, OtherSide), !.
+
+triangle(OtherSide, SideEq, SideEq, "isosceles") :-
+    valid_triangle(SideEq, SideEq, OtherSide), !.
+
+triangle(Side1, Side2, Side3, "scalene") :-
+    valid_triangle(Side1, Side2, Side3).
+    
+
+valid_triangle(Side1, Side2, Side3) :-
+    Add23 is Side2 + Side3,
+    Add12 is Side1 + Side2,
+    Add13 is Side1 + Side3,
+    not(Side1 > Add23),
+    not(Side2 > Add13),
+    not(Side3 > Add12),
+    Side1 \== 0,
+    Side2 \== 0,
+    Side3 \== 0.

data/tracks/prolog/exercises/triangle/triangle.pl

@@ -0,0 +1 @@
+triangle(Side1, Side2, Side3, Type).

data/tracks/prolog/exercises/triangle/triangle_tests.plt

@@ -0,0 +1,45 @@
+:- begin_tests(triangle).
+
+    test(equilateral_triangle_has_all_sides_equal) :-
+        triangle(2, 2, 2, "equilateral").
+
+    test(larger_equilateral_triangle) :-
+        triangle(10, 10, 10, "equilateral").
+
+    test(isosceles_triangle_with_last_two_sides_equal) :-
+        triangle(3, 4, 4, "isosceles").
+
+    test(isosceles_triangle_with_first_two_sides_equal) :-
+        triangle(4, 4, 3, "isosceles").
+
+    test(isosceles_triangle_with_first_and_last_sides_equal) :-
+        triangle(4, 3, 4, "isosceles").
+
+    test(isosceles_triangle_with_unequal_side_larger_than_equal_sides) :-
+        triangle(4, 7, 4, "isosceles").
+
+    test(scalene_triangle_has_no_equal_sides) :-
+        triangle(3, 4, 5, "scalene").
+
+    test(a2_equals_b_plus_c_isnt_always_equilateral) :-
+        triangle(5, 4, 6, "scalene").
+
+    test(larger_scalene_triangle) :-
+        triangle(10, 11, 12, "scalene").
+
+    test(scalene_triangle_with_sides_in_descending_order) :-
+        triangle(5, 4, 2, "scalene").
+
+    test(small_scalene_triangle_with_floating_point_values) :-
+        triangle((0.4), (0.6), (0.3), "scalene").
+
+    test(a_triangle_violating_the_triangle_inequality_is_illegal, [fail]) :-
+        triangle(7, 3, 2, _).
+
+    test(two_sides_equal_but_violates_triangle_inequality, [fail]) :-
+        triangle(1, 1, 3, _).
+
+    test(triangles_with_all_sides_zero_are_illegal, [fail]) :-
+        triangle(0, 0, 0, _).
+
+:- end_tests(triangle).

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: trackler
 version: !ruby/object:Gem::Version
-  version: 1.0.1.1
+  version: 1.0.1.2
 platform: ruby
 authors:
 - Katrina Owen
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-10-16 00:00:00.000000000 Z
+date: 2016-10-17 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rubyzip
@@ -4956,6 +4956,55 @@ files:
 - tracks/powershell/exercises/hello-world/hello-world.tests.ps1
 - tracks/powershell/exercises/hello-world/hello-world_example.ps1
 - tracks/powershell/img/icon.png
+- tracks/prolog/.git
+- tracks/prolog/.gitignore
+- tracks/prolog/.travis.yml
+- tracks/prolog/LICENSE
+- tracks/prolog/README.md
+- tracks/prolog/SETUP.md
+- tracks/prolog/bin/build.sh
+- tracks/prolog/bin/fetch-configlet
+- tracks/prolog/config.json
+- tracks/prolog/docs/ABOUT.md
+- tracks/prolog/docs/INSTALLATION.md
+- tracks/prolog/docs/LEARNING.md
+- tracks/prolog/docs/RESOURCES.md
+- tracks/prolog/docs/TESTS.md
+- tracks/prolog/exercises/.keep
+- tracks/prolog/exercises/anagram/anagram.example
+- tracks/prolog/exercises/anagram/anagram.pl
+- tracks/prolog/exercises/anagram/anagram_tests.plt
+- tracks/prolog/exercises/binary/binary.example
+- tracks/prolog/exercises/binary/binary.pl
+- tracks/prolog/exercises/binary/binary_tests.plt
+- tracks/prolog/exercises/grains/grains.example
+- tracks/prolog/exercises/grains/grains.pl
+- tracks/prolog/exercises/grains/grains_tests.plt
+- tracks/prolog/exercises/hamming/hamming.example
+- tracks/prolog/exercises/hamming/hamming.pl
+- tracks/prolog/exercises/hamming/hamming_tests.plt
+- tracks/prolog/exercises/hello-world/hello_world.example
+- tracks/prolog/exercises/hello-world/hello_world.pl
+- tracks/prolog/exercises/hello-world/hello_world_tests.plt
+- tracks/prolog/exercises/leap/leap.example
+- tracks/prolog/exercises/leap/leap.pl
+- tracks/prolog/exercises/leap/leap_tests.plt
+- tracks/prolog/exercises/nucleotide-count/nucleotide_count.example
+- tracks/prolog/exercises/nucleotide-count/nucleotide_count.pl
+- tracks/prolog/exercises/nucleotide-count/nucleotide_count_tests.plt
+- tracks/prolog/exercises/rna-transcription/rna_transcription.example
+- tracks/prolog/exercises/rna-transcription/rna_transcription.pl
+- tracks/prolog/exercises/rna-transcription/rna_transcription_tests.plt
+- tracks/prolog/exercises/space-age/space_age.example
+- tracks/prolog/exercises/space-age/space_age.pl
+- tracks/prolog/exercises/space-age/space_age_tests.plt
+- tracks/prolog/exercises/sum-of-multiples/sum_of_multiples.example
+- tracks/prolog/exercises/sum-of-multiples/sum_of_multiples.pl
+- tracks/prolog/exercises/sum-of-multiples/sum_of_multiples_tests.plt
+- tracks/prolog/exercises/triangle/triangle.example
+- tracks/prolog/exercises/triangle/triangle.pl
+- tracks/prolog/exercises/triangle/triangle_tests.plt
+- tracks/prolog/img/.keep
 - tracks/purescript/.git
 - tracks/purescript/.gitignore
 - tracks/purescript/.travis.yml