trackler 2.0.0.1 → 2.0.0.2

data/tracks/elixir/exercises/diamond/diamond_test.exs

@@ -18,11 +18,11 @@ defmodule DiamondTest do
   test "letter C" do
     shape = Diamond.build_shape(?C)
     assert shape == """
-\s A  
-\sB B 
+\s A \s
+\sB B\s
  C   C
-\sB B 
-\s A  
+\sB B\s
+\s A \s
     """
   end
 
@@ -30,15 +30,15 @@ defmodule DiamondTest do
   test "letter E" do
     shape = Diamond.build_shape(?E)
     assert shape == """
-\s   A    
-\s  B B   
-\s C   C  
-\sD     D 
+\s   A   \s
+\s  B B  \s
+\s C   C \s
+\sD     D\s
  E       E
-\sD     D 
-\s C   C  
-\s  B B   
-\s   A    
+\sD     D\s
+\s C   C \s
+\s  B B  \s
+\s   A   \s
     """
   end
 end

data/tracks/elixir/exercises/grep/example.exs

@@ -0,0 +1,92 @@
+defmodule Grep do
+  use Bitwise
+
+  @line_num_flag 1
+  @file_name 2
+  @case_insensitive 4
+  @invert 8
+  @entire_lines 16
+
+  defp parse_flag("-n"), do: @line_num_flag
+  defp parse_flag("-l"), do: @file_name
+  defp parse_flag("-i"), do: @case_insensitive
+  defp parse_flag("-v"), do: @invert
+  defp parse_flag("-x"), do: @entire_lines
+  defp parse_flag(_), do: 0
+
+  defp parse_flags(flags) do
+    flags
+    |> Enum.map(&parse_flag/1)
+    |> Enum.reduce(0, fn(a,b) -> a ||| b end)
+  end
+
+  defp has_flag(flags, flag), do: (flags &&& flag) > 0
+
+  defp is_match(pattern, flags) do
+    pat = if has_flag(flags, @entire_lines) do
+      "^#{pattern}$"
+    else
+      pattern
+    end
+    cas = if has_flag(flags, @case_insensitive) do
+      "i"
+    else
+      ""
+    end
+
+    regex = Regex.compile!(pat, cas)
+
+    fn line -> Regex.match?(regex, line) != has_flag(flags, @invert) end
+  end
+
+  defp matching_lines(pattern, flags, file) do
+    match_fn = is_match(pattern, flags)
+
+    File.stream!(file)
+    |> Enum.map(fn l -> String.trim_trailing(l, "\n") end)
+    |> Enum.with_index(1)
+    |> Enum.map(fn {l, i} -> {file, i, l} end)
+    |> Enum.filter(fn {_, _, l} -> match_fn.(l) end)
+  end
+
+  defp process_files(pattern, flags, files) do
+    files
+    |> Enum.filter(fn x -> !Enum.empty?(matching_lines(pattern, flags, x)) end)
+  end
+
+  defp line_formatter(flags, single_file?) do
+    print_nums? = has_flag(flags, @line_num_flag)
+
+    fn {f, ix, l} ->
+      case {single_file?, print_nums?} do
+        {true, true} -> "#{ix}:#{l}"
+        {false, true} -> "#{f}:#{ix}:#{l}"
+        {true, false} -> "#{l}"
+        {false, false} -> "#{f}:#{l}"
+      end
+    end
+  end
+
+  defp process_lines(pattern, flags, files) do
+    fmt = line_formatter(flags, length(files) == 1)
+
+    files
+    |> Enum.flat_map(fn x -> matching_lines(pattern, flags, x) end)
+    |> Enum.map(fmt)
+  end
+
+  @spec grep(String.t, [String.t], [String.t]) :: String.t
+  def grep(pattern, flag_args, files) do
+    flags = parse_flags(flag_args)
+
+    output = if has_flag(flags, @file_name) do
+      process_files(pattern, flags, files)
+    else
+      process_lines(pattern, flags, files)
+    end
+
+    output
+    |> Enum.map(fn l -> "#{l}\n" end)
+    |> Enum.reduce("", fn b,a -> "#{a}#{b}" end)
+  end
+end

data/tracks/elixir/exercises/grep/grep.exs

@@ -0,0 +1,6 @@
+defmodule Grep do
+
+  @spec grep(String.t, [String.t], [String.t]) :: String.t
+  def grep(pattern, flags, files) do
+  end
+end

data/tracks/elixir/exercises/grep/grep_test.exs

@@ -0,0 +1,259 @@
+if !System.get_env("EXERCISM_TEST_EXAMPLES") do
+  Code.load_file("grep.exs", __DIR__)
+end
+
+ExUnit.start
+ExUnit.configure exclude: :pending, trace: true
+
+defmodule GrepTest do
+  use ExUnit.Case
+
+  setup context do
+
+    if context[:files] do
+      File.write!("iliad.txt", """
+      Achilles sing, O Goddess! Peleus' son;
+      His wrath pernicious, who ten thousand woes
+      Caused to Achaia's host, sent many a soul
+      Illustrious into Ades premature,
+      And Heroes gave (so stood the will of Jove)
+      To dogs and to all ravening fowls a prey,
+      When fierce dispute had separated once
+      The noble Chief Achilles from the son
+      Of Atreus, Agamemnon, King of men.
+      """)
+
+      File.write!("midsummer-night.txt", """
+      I do entreat your grace to pardon me.
+      I know not by what power I am made bold,
+      Nor how it may concern my modesty,
+      In such a presence here to plead my thoughts;
+      But I beseech your grace that I may know
+      The worst that may befall me in this case,
+      If I refuse to wed Demetrius.
+      """
+      )
+
+      File.write!("paradise-lost.txt", """
+      Of Mans First Disobedience, and the Fruit
+      Of that Forbidden Tree, whose mortal tast
+      Brought Death into the World, and all our woe,
+      With loss of Eden, till one greater Man
+      Restore us, and regain the blissful Seat,
+      Sing Heav'nly Muse, that on the secret top
+      Of Oreb, or of Sinai, didst inspire
+      That Shepherd, who first taught the chosen Seed
+      """)
+
+      on_exit fn ->
+        File.rm!("iliad.txt")
+        File.rm!("midsummer-night.txt")
+        File.rm!("paradise-lost.txt")
+      end
+    end
+  end
+
+  @moduletag :files
+
+  describe "grepping a single file" do
+
+    test "one match, no flags" do
+      assert Grep.grep("Agamemnon", [], ["iliad.txt"]) ==
+        """
+        Of Atreus, Agamemnon, King of men.
+        """
+    end
+
+    @tag :pending
+    test "one match, print line numbers flag" do
+      assert Grep.grep("Forbidden", ["-n"], ["paradise-lost.txt"]) ==
+        """
+        2:Of that Forbidden Tree, whose mortal tast
+        """
+    end
+
+    @tag :pending
+    test "one match, case-insensitive flag" do
+      assert Grep.grep("FORBIDDEN", ["-i"], ["paradise-lost.txt"]) ==
+        """
+        Of that Forbidden Tree, whose mortal tast
+        """
+    end
+
+    @tag :pending
+    test "one match, print file names flag" do
+      assert Grep.grep("Forbidden", ["-l"], ["paradise-lost.txt"]) ==
+        """
+        paradise-lost.txt
+        """
+    end
+
+    @tag :pending
+    test "one match, match entire lines flag" do
+      assert Grep.grep("With loss of Eden, till one greater Man",
+                       ["-x"], ["paradise-lost.txt"]) ==
+        """
+        With loss of Eden, till one greater Man
+        """
+    end
+
+    @tag :pending
+    test "one match, multiple flags" do
+      assert Grep.grep("OF ATREUS, Agamemnon, KIng of MEN.",
+                       ["-n", "-i", "-x"], ["iliad.txt"]) ==
+        """
+        9:Of Atreus, Agamemnon, King of men.
+        """
+    end
+
+    @tag :pending
+    test "several matches, no flags" do
+      assert Grep.grep("may", [], ["midsummer-night.txt"]) ==
+        """
+        Nor how it may concern my modesty,
+        But I beseech your grace that I may know
+        The worst that may befall me in this case,
+        """
+    end
+
+    @tag :pending
+    test "several matches, print line numbers flag" do
+      assert Grep.grep("may", ["-n"], ["midsummer-night.txt"]) ==
+        """
+        3:Nor how it may concern my modesty,
+        5:But I beseech your grace that I may know
+        6:The worst that may befall me in this case,
+        """
+    end
+
+    @tag :pending
+    test "several matches, match entire lines flag" do
+      assert Grep.grep("may", ["-x"], ["midsummer-night.txt"]) == ""
+    end
+
+    @tag :pending
+    test "several matches, case-insensitive flag" do
+      assert Grep.grep("ACHILLES", ["-i"], ["iliad.txt"]) ==
+        """
+        Achilles sing, O Goddess! Peleus' son;
+        The noble Chief Achilles from the son
+        """
+    end
+
+    @tag :pending
+    test "several matches, inverted flag" do
+      assert Grep.grep("Of", ["-v"], ["paradise-lost.txt"]) ==
+        """
+        Brought Death into the World, and all our woe,
+        With loss of Eden, till one greater Man
+        Restore us, and regain the blissful Seat,
+        Sing Heav'nly Muse, that on the secret top
+        That Shepherd, who first taught the chosen Seed
+        """
+    end
+
+    @tag :pending
+    test "no matches, various flags" do
+      assert Grep.grep("Gandalf", ["-n", "-l", "-x", "-i"], ["iliad.txt"]) == ""
+    end
+  end
+
+  describe "grepping multiples files at once" do
+
+    @tag :pending
+    test "one match, no flags" do
+      assert Grep.grep("Agamemnon", [],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
+        """
+        iliad.txt:Of Atreus, Agamemnon, King of men.
+        """
+    end
+
+    @tag :pending
+    test "several matches, no flags" do
+      assert Grep.grep("may", [],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
+        """
+        midsummer-night.txt:Nor how it may concern my modesty,
+        midsummer-night.txt:But I beseech your grace that I may know
+        midsummer-night.txt:The worst that may befall me in this case,
+        """
+    end
+
+    @tag :pending
+    test "several matches, print line numbers flag" do
+      assert Grep.grep("that", ["-n"],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
+        """
+        midsummer-night.txt:5:But I beseech your grace that I may know
+        midsummer-night.txt:6:The worst that may befall me in this case,
+        paradise-lost.txt:2:Of that Forbidden Tree, whose mortal tast
+        paradise-lost.txt:6:Sing Heav'nly Muse, that on the secret top
+        """
+    end
+
+    @tag :pending
+    test "one match, print file names flag" do
+      assert Grep.grep("who", ["-l"],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
+        """
+        iliad.txt
+        paradise-lost.txt
+        """
+    end
+
+    @tag :pending
+    test "several matches, case-insensitive flag" do
+      assert Grep.grep("TO", ["-i"],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
+        """
+        iliad.txt:Caused to Achaia's host, sent many a soul
+        iliad.txt:Illustrious into Ades premature,
+        iliad.txt:And Heroes gave (so stood the will of Jove)
+        iliad.txt:To dogs and to all ravening fowls a prey,
+        midsummer-night.txt:I do entreat your grace to pardon me.
+        midsummer-night.txt:In such a presence here to plead my thoughts;
+        midsummer-night.txt:If I refuse to wed Demetrius.
+        paradise-lost.txt:Brought Death into the World, and all our woe,
+        paradise-lost.txt:Restore us, and regain the blissful Seat,
+        paradise-lost.txt:Sing Heav'nly Muse, that on the secret top
+        """
+    end
+
+    @tag :pending
+    test "several matches, inverted flag" do
+      assert Grep.grep("a", ["-v"],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
+        """
+        iliad.txt:Achilles sing, O Goddess! Peleus' son;
+        iliad.txt:The noble Chief Achilles from the son
+        midsummer-night.txt:If I refuse to wed Demetrius.
+        """
+    end
+
+    @tag :pending
+    test "one match, match entire lines flag" do
+      assert Grep.grep("But I beseech your grace that I may know", ["-x"],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
+        """
+        midsummer-night.txt:But I beseech your grace that I may know
+        """
+    end
+
+    @tag :pending
+    test "one match, multiple flags" do
+      assert Grep.grep("WITH LOSS OF EDEN, TILL ONE GREATER MAN",
+        ["-n", "-x", "-i"],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) ==
+        """
+        paradise-lost.txt:4:With loss of Eden, till one greater Man
+        """
+    end
+
+    @tag :pending
+    test "no matches, various flags" do
+      assert Grep.grep("Frodo", ["-n", "-l", "-x", "i"],
+        ["iliad.txt", "midsummer-night.txt", "paradise-lost.txt"]) == ""
+    end
+  end
+end

data/tracks/elixir/exercises/markdown/markdown.exs

@@ -10,9 +10,66 @@ defmodule Markdown do
     iex> Markdown.parse("#Header!\n* __Bold Item__\n* _Italic Item_")
     "<h1>Header!</h1><ul><li><em>Bold Item</em></li><li><i>Italic Item</i></li></ul>"
   """
-
   @spec parse(String.t) :: String.t
-  def parse(markdown) do
+  def parse(m) do
+    patch(Enum.join(Enum.map(String.split(m, "\n"), fn(t) -> process(t) end)))
+  end
+
+  defp process(t) do
+    if String.starts_with?(t, "#") || String.starts_with?(t, "*") do
+      if String.starts_with?(t, "#") do
+        enclose_with_header_tag(parse_header_md_level(t))
+      else
+        parse_list_md_level(t)
+      end
+    else
+      enclose_with_paragraph_tag(String.split(t))
+    end
+  end
+
+  defp parse_header_md_level(hwt) do
+    [h | t] = String.split(hwt)
+    {to_string(String.length(h)), Enum.join(t, " ")}
+  end
+
+  defp parse_list_md_level(l) do
+    t = String.split(String.trim_leading(l, "* "))
+    "<li>" <> join_words_with_tags(t) <> "</li>"
+  end
+
+  defp enclose_with_header_tag({hl, htl}) do
+    "<h" <> hl <> ">" <> htl <> "</h" <> hl <> ">"
+  end
+
+  defp enclose_with_paragraph_tag(t) do
+    "<p>#{join_words_with_tags(t)}</p>"
+  end
+
+  defp join_words_with_tags(t) do
+    Enum.join(Enum.map(t, fn(w) -> replace_md_with_tag(w) end), " ")
+  end
+
+  defp replace_md_with_tag(w) do
+    replace_suffix_md(replace_prefix_md(w))
+  end
+
+  defp replace_prefix_md(w) do
+    cond do
+      w =~ ~r/^#{"__"}{1}/ -> String.replace(w, ~r/^#{"__"}{1}/, "<strong>", global: false)
+      w =~ ~r/^[#{"_"}{1}][^#{"_"}+]/ -> String.replace(w, ~r/_/, "<em>", global: false)
+      true -> w
+    end
+  end
+
+  defp replace_suffix_md(w) do
+    cond do
+      w =~ ~r/#{"__"}{1}$/ -> String.replace(w, ~r/#{"__"}{1}$/, "</strong>")
+      w =~ ~r/[^#{"_"}{1}]/ -> String.replace(w, ~r/_/, "</em>")
+      true -> w
+    end
+  end
 
+  defp patch(l) do
+    String.replace_suffix(String.replace(l, "<li>", "<ul>" <> "<li>", global: false), "</li>", "</li>" <> "</ul>")
   end
 end

data/tracks/elixir/exercises/nucleotide-count/nucleotide_count_test.exs

@@ -9,17 +9,17 @@ defmodule NucleotideCountTest do
   use ExUnit.Case
 
   # @tag :pending
-  test "empty dna string has no adenosine" do
+  test "empty dna string has no adenine" do
     assert NucleotideCount.count('', ?A) == 0
   end
 
   @tag :pending
-  test "repetitive cytidine gets counted" do
+  test "repetitive cytosine gets counted" do
     assert NucleotideCount.count('CCCCC', ?C) == 5
   end
 
   @tag :pending
-  test "counts only thymidine" do
+  test "counts only thymine" do
     assert NucleotideCount.count('GGGGGTAACCCGG', ?T) == 1
   end
 
@@ -30,7 +30,7 @@ defmodule NucleotideCountTest do
   end
 
   @tag :pending
-  test "repetitive sequence has only guanosine" do
+  test "repetitive sequence has only guanine" do
     expected = %{?A => 0, ?T => 0, ?C => 0, ?G => 8}
     assert NucleotideCount.histogram('GGGGGGGG') == expected
   end

data/tracks/elixir/exercises/phone-number/phone_number_test.exs

@@ -37,6 +37,11 @@ defmodule PhoneTest do
     assert Phone.number("1a2a3a4a5a6a7a8a9a0a") == "0000000000"
   end
 
+  @tag :pending
+  test "invalid with correct number of characters but some are letters" do
+    assert Phone.number("1a2a3a4a5a") == "0000000000"
+  end
+
   @tag :pending
   test "area code" do
     assert Phone.area_code("1234567890") == "123"