trackler 2.0.6.28 → 2.0.6.29

data/tracks/erlang/exercises/accumulate/accumulate_tests.erl

@@ -1,28 +0,0 @@
-% To run tests:
-% erl -make
-% erl -noshell -eval "eunit:test(accumulate, [verbose])" -s init stop
-
--module(accumulate_tests).
--include_lib("eunit/include/eunit.hrl").
-
-accumulate_squares_test() ->
-	Fn = fun(Number) -> Number * Number end,
-	Ls = [1, 2, 3],
-	?assertEqual([1, 4, 9], accumulate:accumulate(Fn, Ls)).
-
-accumulate_upcases_test() ->
-	Fn = fun(Word) -> string:to_upper(Word) end,
-	Ls = string:tokens("hello world", " "),
-	?assertEqual(["HELLO", "WORLD"], accumulate:accumulate(Fn, Ls)).
-
-accumulate_reversed_strings_test() ->
-	Fn = fun(Word) -> lists:reverse(Word) end,
-	Ls = string:tokens("the quick brown fox etc", " "),
-	?assertEqual(["eht", "kciuq", "nworb", "xof", "cte"], accumulate:accumulate(Fn, Ls)).
-
-accumulate_recursively_test() ->
-	Chars = string:tokens("a b c", " "),
-	Nums  = string:tokens("1 2 3", " "),
-	Fn    = fun(Char) -> [Char ++ Num || Num <- Nums] end,
-	?assertEqual([["a1", "a2", "a3"], ["b1", "b2", "b3"], ["c1", "c2", "c3"]], accumulate:accumulate(Fn, Chars)).
-

data/tracks/erlang/exercises/anagram/anagram_tests.erl

@@ -1,39 +0,0 @@
--module(anagram_tests).
--include_lib("eunit/include/eunit.hrl").
-
-no_matches_test() ->
-  ?assertEqual(
-     [], anagram:find("diaper", ["hello", "world", "zombies", "pants"])).
-
-detect_simple_anagram_test() ->
-  ?assertEqual(
-     ["tan"], anagram:find("ant", ["tan", "stand", "at"])).
-
-does_not_confuse_different_duplicates_test() ->
-  ?assertEqual(
-     [], anagram:find("galea", ["eagle"])).
-
-eliminate_anagram_subsets_test() ->
-  ?assertEqual(
-     [], anagram:find("good", ["dog", "goody"])).
-
-detect_anagram_test() ->
-  ?assertEqual(
-     ["inlets"], anagram:find("listen", ["enlists", "google", "inlets", "banana"])).
-
-multiple_anagrams_test() ->
-  ?assertEqual(
-     ["gallery", "regally", "largely"],
-     anagram:find("allergy", ["gallery", "ballerina", "regally", "clergy", "largely", "leading"])).
-
-case_insensitive_subject_test() ->
-  ?assertEqual(
-     ["carthorse"], anagram:find("Orchestra", ["cashregister", "carthorse", "radishes"])).
-
-case_insensitive_candidate_test() ->
-  ?assertEqual(
-     ["Carthorse"], anagram:find("orchestra", ["cashregister", "Carthorse", "radishes"])).
-
-does_not_detect_a_word_as_its_own_anagram_test() ->
-  ?assertEqual(
-     ["cron"], anagram:find("corn", ["corn", "dark", "Corn", "rank", "CORN", "cron", "park"])).

data/tracks/erlang/exercises/bank-account/bank_account_tests.erl

@@ -1,95 +0,0 @@
--module(bank_account_tests).
--include_lib("eunit/include/eunit.hrl").
-
-
-create_test() ->
-  Bank_account = bank_account:create(),
-  ?assert(bank_account:balance( Bank_account ) =:= 0).
-
-close_account_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, 1 ),
-  Amount = bank_account:close( Bank_account ),
-  ?assert(Amount =:= 1),
-  ?assertEqual({error, account_closed}, bank_account:balance( Bank_account )).
-
-deposit_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, 1 ),
-  ?assert(bank_account:balance( Bank_account ) =:= 1).
-
-deposit_fail_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, -1 ),
-  ?assert(bank_account:balance( Bank_account ) =:= 0).
-
-deposit_many_test() ->
-  Bank_account = bank_account:create(),
-  [erlang:spawn( fun () -> bank_account:deposit(Bank_account, X) end ) || X <- lists:seq(1, 10)],
-  First = bank_account:balance( Bank_account ),
-  timer:sleep( 100 ),
-  Last = bank_account:balance( Bank_account ),
-  ?assert(First < 55),
-  ?assert(Last =:= 55).
-
-withdraw_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, 10 ),
-  Amount = bank_account:withdraw( Bank_account, 1 ),
-  ?assert(Amount =:= 1),
-  ?assert(bank_account:balance( Bank_account ) =:= 9).
-
-withdraw_fail_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, 10 ),
-  Amount = bank_account:withdraw( Bank_account, -1 ),
-  ?assert(Amount =:= 0),
-  ?assert(bank_account:balance( Bank_account ) =:= 10).
-
-withdraw_excessive_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, 10 ),
-  Amount = bank_account:withdraw( Bank_account, 20 ),
-  ?assert(Amount =:= 10),
-  ?assert(bank_account:balance( Bank_account ) =:= 0).
-
-withdraw_many_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit(Bank_account, 55 ),
-  [erlang:spawn( fun () -> bank_account:withdraw(Bank_account, X) end ) || X <- lists:seq(1, 10)],
-  First = bank_account:balance( Bank_account ),
-  timer:sleep( 100 ),
-  Last = bank_account:balance( Bank_account ),
-  ?assert(First > 0),
-  ?assert(Last =:= 0).
-
-charge_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, 10 ),
-  Amount = bank_account:charge( Bank_account, 2 ),
-  ?assert(Amount =:= 2),
-  ?assert(bank_account:balance( Bank_account ) =:= 8).
-
-charge_fail_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, 10 ),
-  Amount = bank_account:charge( Bank_account, -2 ),
-  ?assert(Amount =:= 0),
-  ?assert(bank_account:balance( Bank_account ) =:= 10).
-
-charge_excessive_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit( Bank_account, 10 ),
-  Amount = bank_account:charge( Bank_account, 20 ),
-  ?assert(Amount =:= 0),
-  ?assert(bank_account:balance( Bank_account ) =:= 10).
-
-charge_many_test() ->
-  Bank_account = bank_account:create(),
-  bank_account:deposit(Bank_account, 55 ),
-  [erlang:spawn( fun () -> bank_account:charge(Bank_account, 10) end ) || _X <- lists:seq(1, 10)],
-  First = bank_account:balance( Bank_account ),
-  timer:sleep( 100 ),
-  Last = bank_account:balance( Bank_account ),
-  ?assert(First > 0),
-  ?assert(Last =:= 5).

data/tracks/erlang/exercises/circular-buffer/circular_buffer_tests.erl

@@ -1,54 +0,0 @@
--module( circular_buffer_tests ).
--include_lib( "eunit/include/eunit.hrl" ).
-
-create_test() ->
-  Pid = circular_buffer:create( 5 ),
-  ?assert( {ok, 5} =:= circular_buffer:size(Pid) ).
-
-write_read_test() ->
-  Pid = circular_buffer:create( 4 ),
-  ?assert( {error, empty} =:= circular_buffer:read(Pid) ),
-  circular_buffer:write( Pid, 1 ),
-  ?assert( {ok, 1} =:= circular_buffer:read(Pid) ).
-
-write_read_many_test() ->
-  Pid = circular_buffer:create( 3 ),
-  circular_buffer:write( Pid, 1 ),
-  circular_buffer:write( Pid, 2 ),
-  circular_buffer:write( Pid, 3 ),
-  ?assert( {ok, 1} =:= circular_buffer:read(Pid) ),
-  ?assert( {ok, 2} =:= circular_buffer:read(Pid) ),
-  ?assert( {ok, 3} =:= circular_buffer:read(Pid) ).
-
-over_write_read_test() ->
-  Pid = circular_buffer:create( 2 ),
-  circular_buffer:write( Pid, 1 ),
-  circular_buffer:write( Pid, 2 ),
-  circular_buffer:write( Pid, 3 ),
-  circular_buffer:write( Pid, 4 ),
-  ?assert( {ok, 3} =:= circular_buffer:read(Pid) ),
-  ?assert( {ok, 4} =:= circular_buffer:read(Pid) ),
-  ?assert( {error, empty} =:= circular_buffer:read(Pid) ).
-
-write_attempt_test() ->
-  Pid = circular_buffer:create( 1 ),
-  Attempt1 = circular_buffer:write_attempt( Pid, 1 ),
-  ?assert( ok =:= Attempt1 ),
-  Attempt2 = circular_buffer:write_attempt( Pid, 2 ),
-  ?assert( {error, full} =:= Attempt2 ),
-  ?assert( {ok, 1} =:= circular_buffer:read(Pid) ).
-
-producer_consumer_test() ->
-  Pid = circular_buffer:create( 3 ),
-  erlang:spawn( fun() ->
-                    [circular_buffer:write(Pid, X) || X <- [1,2,3]]
-                end ),
-  My_pid = erlang:self(),
-  Ref = erlang:make_ref(),
-  erlang:spawn( fun() ->
-                    My_pid ! {Ref, [circular_buffer:read(Pid) || _X <- [1,2,3]]}
-                end ),
-  Reads = receive
-            {Ref, R} -> R
-          end,
-  ?assert( Reads =:= [{ok, 1}, {ok, 2}, {ok, 3}] ).

data/tracks/erlang/exercises/clock/clock.erl

@@ -1,14 +0,0 @@
--module('clock').
-
--export([create/2,
-  is_equal/2,
-  minutes_add/2,
-  to_string/1]).
-
-create(Hour, Minute) -> [].
-
-is_equal(Clock1, Clock2) -> [].
-
-minutes_add(Clock, Minutes) -> [].
-
-to_string(Clock) -> [].

data/tracks/erlang/exercises/gigasecond/gigasecond_tests.erl

@@ -1,29 +0,0 @@
--module(gigasecond_tests).
--include_lib("eunit/include/eunit.hrl").
-
-% To run tests:
-% erl -make
-% erl -noshell -eval "eunit:test(gigasecond, [verbose])" -s init stop
-
-one_test() ->
-  Gs = gigasecond:from({2011, 4, 25}),
-  ?assertEqual({{2043, 1, 1}, {1, 46, 40}}, Gs).
-
-two_test() ->
-  Gs = gigasecond:from({1977, 6, 13}),
-  ?assertEqual({{2009, 2, 19}, {1, 46, 40}}, Gs).
-
-three_test() ->
-  Gs = gigasecond:from({1959, 7, 19}),
-  ?assertEqual({{1991, 3, 27}, {1, 46, 40}}, Gs).
-
-four_with_seconds_test() ->
-  Gs = gigasecond:from({{1959, 7, 19}, {23, 59, 59}}),
-  ?assertEqual({{1991, 3, 28}, {1, 46, 39}}, Gs).
-
-% modify the test to test your 1 Gs anniversary
-% with_your_birthday_test() ->
-%   YourBirthday = {Year, Month, Day},
-%   Gs = gigasecond:from(YourBirthday),
-%   ?assertEqual({2009, 1, 31, 1, 46, 39}, Gs).
-

data/tracks/erlang/exercises/grade-school/grade_school_tests.erl

@@ -1,49 +0,0 @@
-% To run tests:
-% erl -make
-% erl -noshell -eval "eunit:test(grade_school, [verbose])" -s init stop
-%
-
--module(grade_school_tests).
-
--include_lib("eunit/include/eunit.hrl").
-
-add_student_test() ->
-  S1 = grade_school:add("Aimee", 2, grade_school:new()),
-  Students = grade_school:get(2, S1),
-  ?assertEqual(["Aimee"], lists:sort(Students)).
-
-add_more_students_in_same_class_test() ->
-  S1 = grade_school:add("James", 2, grade_school:new()),
-  S2 = grade_school:add("Blair", 2, S1),
-  S3 = grade_school:add("Paul", 2, S2),
-  Students = grade_school:get(2, S3),
-  ?assertEqual(["Blair","James","Paul"], lists:sort(Students)).
-
-add_students_to_different_grades_test() ->
-  S1 = grade_school:add("Chelsea", 3, grade_school:new()),
-  S2 = grade_school:add("Logan", 7, S1),
-
-  ?assertEqual(["Chelsea"], grade_school:get(3, S2)),
-  ?assertEqual(["Logan"], grade_school:get(7, S2)).
-
-get_students_in_a_grade_test() ->
-  S1 = grade_school:add("Franklin", 5, grade_school:new()),
-  S2 = grade_school:add("Bradley", 5, S1),
-  S3 = grade_school:add("Jeff", 1, S2),
-  Students = grade_school:get(5, S3),
-  ?assertEqual(["Bradley","Franklin"], lists:sort(Students)).
-
-get_students_in_a_non_existant_grade_test() ->
-  ?assertEqual([], grade_school:get(1, grade_school:new())).
-
-sort_school_test() ->
-  S1 = grade_school:add("Jennifer", 4, grade_school:new()),
-  S2 = grade_school:add("Kareem", 6, S1),
-  S3 = grade_school:add("Christopher", 4, S2),
-  S4 = grade_school:add("Kyle", 3, S3),
-
-  Sorted = [{3, ["Kyle"]},
-            {4, ["Christopher", "Jennifer"]},
-            {6, ["Kareem"]}],
-
-  ?assertEqual(Sorted, grade_school:sort(S4)).

data/tracks/erlang/exercises/grains/grains_tests.erl

@@ -1,31 +0,0 @@
--module(grains_tests).
--include_lib("eunit/include/eunit.hrl").
-
-% To run tests:
-% erl -make
-% erl -noshell -eval "eunit:test(grains, [verbose])" -s init stop
-
-square_1_test() ->
-  ?assertEqual(1, grains:square(1)).
-
-square_2_test() ->
-  ?assertEqual(2, grains:square(2)).
-
-square_3_test() ->
-  ?assertEqual(4, grains:square(3)).
-
-square_4_test() ->
-  ?assertEqual(8, grains:square(4)).
-
-square_16_test() ->
-  ?assertEqual(32768, grains:square(16)).
-
-square_32_test() ->
-  ?assertEqual(2147483648, grains:square(32)).
-
-square_64_test() ->
-  ?assertEqual(9223372036854775808, grains:square(64)).
-
-total_grains_test() ->
-  ?assertEqual(18446744073709551615, grains:total()).
-

data/tracks/erlang/exercises/hamming/dna_tests.erl

@@ -1,21 +0,0 @@
--module(dna_tests).
-
--include_lib("eunit/include/eunit.hrl").
-
-empty_test()->
-  ?assertEqual(0, dna:hamming_distance("", "")).
-
-equal_test() ->
-  ?assertEqual(0, dna:hamming_distance("GAGCCTACTAACGGGAT", "GAGCCTACTAACGGGAT")).
-
-all_different_test() ->
-  ?assertEqual(17, dna:hamming_distance("GAGCCTACTAACGGGAT", "FFFFFFFFFFFFFFFFF")).
-
-ends_different_test()->
-  ?assertEqual(2, dna:hamming_distance("GAGCCTACTAACGGGAT", "TAGCCTACTAACGGGAG")).
-
-middle_different_test() ->
-  ?assertEqual(1, dna:hamming_distance("GAGCCTACTAACGGGAT", "GAGCCTACCAACGGGAT")).
-
-some_differences_test() ->
-  ?assertEqual(6, dna:hamming_distance("GAGCCTACTAACGGGAT", "GAACCTCCCAAGGGATT")).

data/tracks/erlang/exercises/hello-world/hello_world_tests.erl

@@ -1,19 +0,0 @@
-% To run tests:
-% erl -make
-% erl -noshell -eval "eunit:test(hello_world, [verbose])" -s init stop
-%
-
--module(hello_world_tests).
--include_lib("eunit/include/eunit.hrl").
-
-no_name_test() ->
-  ?assertEqual("Hello, World!", hello_world:greet()).
-
-alice_test() ->
-  ?assertEqual("Hello, Alice!", hello_world:greet("Alice")).
-
-bob_test() ->
-  ?assertEqual("Hello, Bob!", hello_world:greet("Bob")).
-
-strange_test() ->
-  ?assertEqual("Hello, !", hello_world:greet("")).

data/tracks/erlang/exercises/largest-series-product/largest_series_product.erl

@@ -1,5 +0,0 @@
--module('largest_series_product').
-
--export([lsp/2]).
-
-lsp(String, Span) -> [].

data/tracks/erlang/exercises/largest-series-product/largest_series_product_tests.erl

@@ -1,54 +0,0 @@
--module('largest_series_product_tests').
--include_lib("eunit/include/eunit.hrl").
-
-
-can_find_the_largest_product_of_2_with_numbers_in_order_test() ->
-  ?assertEqual(72, largest_series_product:lsp("0123456789", 2)).
-
-can_find_the_largest_product_of_2_test() ->
-  ?assertEqual(48, largest_series_product:lsp("576802143", 2)).
-
-finds_the_largest_product_if_span_equals_length_test() ->
-  ?assertEqual(18, largest_series_product:lsp("29", 2)).
-
-can_find_the_largest_product_of_3_with_numbers_in_order_test() ->
-  ?assertEqual(504, largest_series_product:lsp("0123456789", 3)).
-
-can_find_the_largest_product_of_3_test() ->
-  ?assertEqual(270, largest_series_product:lsp("1027839564", 3)).
-
-can_find_the_largest_product_of_5_with_numbers_in_order_test() ->
-  ?assertEqual(15120, largest_series_product:lsp("0123456789", 5)).
-
-can_find_the_largest_product_of_a_big_number_test() ->
-  ?assertEqual(23520, largest_series_product:lsp("73167176531330624919225119674426574742355349194934", 6)).
-
-can_find_the_largest_product_of_a_big_number_ii_test() ->
-  ?assertEqual(28350, largest_series_product:lsp("52677741234314237566414902593461595376319419139427", 6)).
-
-can_find_the_largest_product_of_a_big_number_project_euler_test() ->
-  ?assertEqual(23514624000, largest_series_product:lsp("7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450", 13)).
-
-reports_zero_if_the_only_digits_are_zero_test() ->
-  ?assertEqual(0, largest_series_product:lsp("0000", 2)).
-
-reports_zero_if_all_spans_include_zero_test() ->
-  ?assertEqual(0, largest_series_product:lsp("99099", 3)).
-
-rejects_span_longer_than_string_length_test() ->
-  ?assertMatch(error, largest_series_product:lsp("123", 4)).
-
-reports_1_for_empty_string_and_empty_product_0_span_test() ->
-  ?assertEqual(1, largest_series_product:lsp("", 0)).
-
-reports_1_for_nonempty_string_and_empty_product_0_span_test() ->
-  ?assertEqual(1, largest_series_product:lsp("123", 0)).
-
-rejects_empty_string_and_nonzero_span_test() ->
-  ?assertMatch(error, largest_series_product:lsp("", 1)).
-
-rejects_invalid_character_in_digits_test() ->
-  ?assertMatch(error, largest_series_product:lsp("1234a5", 2)).
-
-rejects_negative_span_test() ->
-  ?assertMatch(error, largest_series_product:lsp("12345", -1)).