Packages

algae

1.2.2
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 rose generator.ex
Raw

lib/algae/tree/rose/generator.ex 

alias  Algae.Tree.Rose

alias  TypeClass.Property.Generator



defimpl TypeClass.Property.Generator, for: Algae.Tree.Rose do

  def generate(_) do

    case Enum.random(0..2) do

      0 -> Rose.new(rose(), forest())

      _ -> Rose.new(rose())

    end

  end



  def forest do

    fn ->

      case Enum.random(0..10) do

        0 -> Rose.new(rose(), forest())

        _ -> Rose.new(rose())

      end

    end

    |> Stream.repeatedly()

    |> Enum.take(Enum.random(0..5))

  end



  def rose do

    [1, 1.1, "", []]

    |> Enum.random()

    |> Generator.generate()

  end

end