Random Hi Messages - 7 Actors

# Create 7 actors that randomly send :hi messages to each other
# Using fixed random seed for reproducible results

# Set random seed for reproducibility
:rand.seed(:exs1024, {12_345, 67_890, 11_111})

# Create list of all actor names for random selection
all_actors = [:alice, :bob, :charlie, :diana, :eve, :frank, :grace]

# Function to randomly select a target (excluding self)
random_target = fn sender, targets ->
  available_targets = Enum.reject(targets, fn target -> target == sender end)
  if available_targets != [] do
    Enum.random(available_targets)
  else
    nil
  end
end

# Handler that sends random :hi messages
random_hi_handler = fn msg, state ->
  case msg do
    :hi ->
      # Randomly choose target and send :hi back
      target = random_target.(state.name, state.all_actors)
      if target do
        {:send, [{target, :hi}], state}
      else
        {:ok, state}
      end
    _ ->
      {:ok, state}
  end
end

simulation =
  ActorSimulation.new(trace: true)  # Enable tracing for sequence diagram
  |> ActorSimulation.add_actor(:alice,
    send_pattern: {:periodic, 200, :hi},
    targets: [:bob, :charlie, :diana, :eve, :frank, :grace],
    on_receive: random_hi_handler,
    initial_state: %{name: :alice, all_actors: all_actors}
  )
  |> ActorSimulation.add_actor(:bob,
    targets: [:alice, :charlie, :diana, :eve, :frank, :grace],
    on_receive: random_hi_handler,
    initial_state: %{name: :bob, all_actors: all_actors}
  )
  |> ActorSimulation.add_actor(:charlie,
    targets: [:alice, :bob, :diana, :eve, :frank, :grace],
    on_receive: random_hi_handler,
    initial_state: %{name: :charlie, all_actors: all_actors}
  )
  |> ActorSimulation.add_actor(:diana,
    targets: [:alice, :bob, :charlie, :eve, :frank, :grace],
    on_receive: random_hi_handler,
    initial_state: %{name: :diana, all_actors: all_actors}
  )
  |> ActorSimulation.add_actor(:eve,
    targets: [:alice, :bob, :charlie, :diana, :frank, :grace],
    on_receive: random_hi_handler,
    initial_state: %{name: :eve, all_actors: all_actors}
  )
  |> ActorSimulation.add_actor(:frank,
    targets: [:alice, :bob, :charlie, :diana, :eve, :grace],
    on_receive: random_hi_handler,
    initial_state: %{name: :frank, all_actors: all_actors}
  )
  |> ActorSimulation.add_actor(:grace,
    targets: [:alice, :bob, :charlie, :diana, :eve, :frank],
    on_receive: random_hi_handler,
    initial_state: %{name: :grace, all_actors: all_actors}
  )
  |> ActorSimulation.run(duration: 3000)  # Run for 3 seconds to get many interactions

# Draw the message flow
mermaid = ActorSimulation.trace_to_mermaid(simulation, enhanced: true)

{:ok, _path} =
  ActorSimulation.write_flowchart_report(simulation, "random_hi_report.html",
    title: "Random Hi Messages - 7 Actors",
    model_source: model_source
  )