Packages

algae

1.2.3
1.3.1 1.3.0 1.2.5 1.2.4 1.2.3 1.2.2 1.2.1 1.2.0 1.1.0 1.0.0 0.12.2 0.12.1 0.12.0 0.11.0 0.10.0 0.9.1 0.9.0 0.8.0 0.7.0 0.6.1 0.6.0 0.5.2 0.5.1

Bootstrapped algebraic data types for Elixir

HexDocs

Current section

Files

Jump to
Readme
23 Versions
3 Dependencies
Dependants
Files
Activity
algae lib algae tree binary_search generator.ex
Raw

lib/algae/tree/binary_search/generator.ex 

alias Algae.Tree.BinarySearch.{Empty, Node}

use Witchcraft



defimpl TypeClass.Property.Generator, for: Algae.Tree.BinarySearch.Empty do

  def generate(_), do: Empty.new()

end



defimpl TypeClass.Property.Generator, for: Algae.Tree.BinarySearch.Node do

  def generate(_) do

    random_node()

  end



  def random_node do

    case Enum.random(Enum.to_list(0..5)) do

      0 ->

        %Node{node: random_value()}



      1 ->

        %Node{node: random_value()}



      2 ->

        %Node{

          node:  random_value(),

          left:  random_node(),

          right: random_node()

    }



      _ ->

        %Empty{}

    end

  end



  def random_value do

    [1, 1.1, "", []]

    |> Enum.random()

    |> TypeClass.Property.Generator.generate()

  end

end