Packages

caustic

0.1.21
0.1.25 0.1.24 0.1.23 0.1.22 0.1.21 0.1.20 0.1.19 0.1.18 0.1.17 0.1.16 0.1.14 0.1.13 0.1.12 0.1.11 0.1.10 0.1.9 0.1.8 0.1.7 0.1.6 0.1.4 0.1.3 0.1.2

An Elixir cryptocurrency library which contains algorithms used in Bitcoin, Ethereum, and other blockchains. Includes a rich cryptography, number theory, and general mathematics class library.

HexDocs

Current section

Files

Jump to
Readme
22 Versions
0 Dependencies
Dependants
Files
Activity
caustic lib test.ex
Raw

lib/test.ex 

defmodule Test do

  import Caustic.Utils

  import Enum

  @moduledoc false

  def start do

    m = 14

    

    elems = 0..(m - 1) |> filter(&(gcd(m, &1) == 1))

    totient = count elems

    

    table = elems |> map(fn a ->

      2..totient |> map(&pow_mod(a, &1, m))

    end)

    

    col_labels = 2..totient |> map(& "a^#{&1}")

    

    IO.puts("m = #{m}")

    IO.puts("φ(m) = #{totient}")

    print_table(table, elems, col_labels)

    

    IO.puts("")

    

    table2 = elems |> map(fn a ->

      elems |> map(& mod(a * &1, m))

    end)

    print_table(table2, elems, elems)

  end

end