class Dry::Logic::Operations::And

def [](input)
  left[input] && right[input]
end

def call(input)
  left_result = left.(input)
  if left_result.success?
    right_result = right.(input)
    if right_result.success?
      Result::SUCCESS
    else
      Result.new(false, id) { right_result.ast(input) }
    end
  else
    Result.new(false, id) do
      left_ast = left_result.to_ast
      hints ? [type, [left_ast, [:hint, right.ast(input)]]] : left_ast
    end
  end
end

def initialize(*, **)
  super
  @hints = options.fetch(:hints, true)
end

def type
  :and
end