Data commit

Task/Rot-13/Elixir/rot-13-1.elixir

@@ -0,0 +1,12 @@
+defmodule RC do
+  def rot13(clist) do
+    f = fn(c) when (?A <= c and c <= ?M) or (?a <= c and c <= ?m) -> c + 13
+          (c) when (?N <= c and c <= ?Z) or (?n <= c and c <= ?z) -> c - 13
+          (c) -> c
+        end
+    Enum.map(clist, f)
+  end
+end
+
+IO.inspect encode = RC.rot13('Rosetta Code')
+IO.inspect RC.rot13(encode)

Task/Rot-13/Elixir/rot-13-2.elixir

@@ -0,0 +1,46 @@
+defmodule Rot13 do
+  @moduledoc """
+  ROT13 encoding program. Takes user input and outputs encoded text.
+  """
+
+  @spec sign(integer | float) :: -1 | 1
+  def sign(int) do
+    if int >= 0 do 1
+    else          -1
+    end
+  end
+
+  @spec rotate(charlist) :: charlist
+  def rotate(string_chars) do
+    string_chars
+      |> Enum.map(
+        fn char ->
+          char_up = << char :: utf8 >>
+            |> String.upcase()
+            |> String.to_charlist()
+            |> Enum.at(0)
+          if ?A <= char_up and char_up <= ?Z do
+            <<
+              char + (-13 * trunc(sign(char_up - 77.5))) :: utf8
+            >>
+          else
+            << char :: utf8 >>
+          end
+        end)
+  end
+
+  @spec start(any, any) :: {:ok, pid}
+  def start(_type, _args) do
+    IO.puts("Enter string to encode:")
+    IO.puts(
+      [
+        "Encoded string:\n",
+        IO.read(:line)
+          |> String.trim()
+          |> String.to_charlist()
+          |> rotate()
+      ]
+    )
+    Task.start(fn -> :timer.sleep(1000) end)
+  end
+end