schemurai 2.1.0 → 2.2.0

data/lib/schemurai/vm/evaluator.rb

@@ -8,8 +8,49 @@ require_relative "compiler"
 
 module Schemurai
   module VM
+    class EvaluationBuffer
+      attr_reader :evaluated_properties, :evaluated_items
+
+      def initialize
+        @evaluated_properties = []
+        @evaluated_items = []
+      end
+
+      def valid? = true
+
+      def reset
+        @evaluated_properties.clear
+        @evaluated_items.clear
+        self
+      end
+
+      def record_property(name)
+        @evaluated_properties << name unless @evaluated_properties.include?(name)
+        self
+      end
+
+      def record_item(index)
+        @evaluated_items << index unless @evaluated_items.include?(index)
+        self
+      end
+
+      def merge(other)
+        return Evaluation.invalid unless other.valid?
+
+        merge_locations(@evaluated_properties, other.evaluated_properties)
+        merge_locations(@evaluated_items, other.evaluated_items)
+        self
+      end
+
+      private def merge_locations(target, locations)
+        locations.each { |location| target << location unless target.include?(location) }
+      end
+    end
+    private_constant :EvaluationBuffer
+
     class Evaluator
       MISSING_SEGMENT = Object.new.freeze
+      DECIMAL_CACHE_LIMIT = 16
 
       def backend = :vm
 
@@ -21,6 +62,14 @@ module Schemurai
         @validate_format = format
         @regexps = nil
         @active = nil
+        @resolved_references = nil
+        @decimals = nil
+        @multiple_results = nil
+        @dynamic_scope = nil
+        @instance_path_buffer = nil
+        @schema_path_buffer = nil
+        @evaluation_pool = nil
+        @evaluation_pool_index = 0
       end
 
       def validate(instance)
@@ -34,31 +83,52 @@ module Schemurai
 
       def valid?(instance)
         @errors = nil
-        prepare_evaluation(paths: @root.tracks_evaluation?)
+        @error_count = 0
+        @dynamic_scope&.clear
+        @instance_path = nil
+        @schema_path = nil
+        reset_evaluation_pool
         evaluate_valid(@root, instance)
       end
 
       private def prepare_evaluation(paths:)
         @error_count = 0
-        @dynamic_scope = nil
-        @instance_path = paths ? [] : nil
-        @schema_path = paths ? [] : nil
+        @dynamic_scope&.clear
+        reset_evaluation_pool
+        if paths
+          (@instance_path_buffer ||= []).clear
+          (@schema_path_buffer ||= []).clear
+          @instance_path = @instance_path_buffer
+          @schema_path = @schema_path_buffer
+        else
+          @instance_path = nil
+          @schema_path = nil
+        end
       end
 
       private def evaluate_valid(program, instance)
-        if program.tracks_evaluation?
-          @instance_path ||= []
-          @schema_path ||= []
-          return evaluate(program, instance).valid?
+        code = program.code
+        flags = code[0]
+        entered_scope = false
+        unless flags.zero?
+          return evaluate(program, instance).valid? if (flags & TRACKS_EVALUATION) != 0
+
+          if (flags & TRACKS_DYNAMIC_SCOPE) != 0
+            resource = program.node.resource
+            unless @dynamic_scope&.last.equal?(resource)
+              (@dynamic_scope ||= []) << resource
+              entered_scope = true
+            end
+          end
         end
-
-        entered_scope = enter_scope(program)
-        program.code.each do |opcode, operand, extra|
+        instruction_index = 1
+        while (opcode = code[instruction_index])
+          operand = code[instruction_index + 1]
           case opcode
           when :boolean
             return operand
           when :ref
-            target = @compiler.resolve(program, operand.value)
+            target = reference_target(program, operand)
             return false unless valid_reference?(program, target, instance)
           when :recursive_ref
             target = recursive_target(program, operand)
@@ -75,11 +145,22 @@ module Schemurai
           when :type_array
             return false unless instance.is_a?(Array)
           when :type_number
-            return false unless number?(instance)
+            return false unless instance.is_a?(Numeric) && !instance.is_a?(Complex)
           when :type_integer
-            return false unless integer?(instance)
+            return false unless instance.is_a?(Numeric) && !instance.is_a?(Complex) && instance.finite? && instance.to_i == instance
           when :type_string
             return false unless instance.is_a?(String)
+          when :typed_number
+            return false unless instance.is_a?(Numeric) && !instance.is_a?(Complex) && valid_number?(operand, instance)
+          when :typed_integer
+            return false unless instance.is_a?(Numeric) && !instance.is_a?(Complex) && instance.finite? &&
+              instance.to_i == instance && valid_number?(operand, instance)
+          when :typed_string
+            return false unless instance.is_a?(String) && valid_string?(operand, instance)
+          when :typed_array
+            return false unless instance.is_a?(Array) && valid_array?(operand, instance)
+          when :typed_object
+            return false unless instance.is_a?(Hash) && valid_object?(operand, instance)
           when :types
             return false if (operand.mask & instance_type_mask(instance, integer: (operand.mask & TYPE_INTEGER) != 0)).zero?
           when :enum
@@ -101,8 +182,8 @@ module Schemurai
             return false if evaluate_valid(operand, instance)
           when :conditional
             if evaluate_valid(operand.condition, instance)
-              return false if operand.has_then && !evaluate_valid(operand.then_branch, instance)
-            elsif operand.has_else && !evaluate_valid(operand.else_branch, instance)
+              return false if operand.then_branch && !evaluate_valid(operand.then_branch, instance)
+            elsif operand.else_branch && !evaluate_valid(operand.else_branch, instance)
               return false
             end
           when :number
@@ -116,6 +197,7 @@ module Schemurai
           else
             raise "unknown VM instruction #{opcode.inspect}"
           end
+          instruction_index += 2
         end
         true
       rescue ResolutionError
@@ -124,12 +206,34 @@ module Schemurai
         leave_scope if entered_scope
       end
 
+      private def reset_evaluation_pool
+        @evaluation_pool_index = 0
+      end
+
+      private def tracked_evaluation
+        pool = (@evaluation_pool ||= [])
+        index = @evaluation_pool_index
+        @evaluation_pool_index += 1
+        (pool[index] ||= EvaluationBuffer.new).reset
+      end
+
       private def evaluate(program, instance)
         before = @error_count
         evaluation = Evaluation.valid
-        entered_scope = enter_scope(program)
+        code = program.code
+        flags = code[0]
+        entered_scope = false
+        if (flags & TRACKS_DYNAMIC_SCOPE) != 0
+          resource = program.node.resource
+          unless @dynamic_scope&.last.equal?(resource)
+            (@dynamic_scope ||= []) << resource
+            entered_scope = true
+          end
+        end
 
-        program.code.each do |opcode, operand, extra|
+        instruction_index = 1
+        while (opcode = code[instruction_index])
+          operand = code[instruction_index + 1]
           case opcode
           when :boolean
             if operand == false
@@ -156,6 +260,42 @@ module Schemurai
             check_compiled_type("integer", integer?(instance), instance)
           when :type_string
             check_compiled_type("string", instance.is_a?(String), instance)
+          when :typed_number
+            if number?(instance)
+              check_number(operand, instance)
+            else
+              check_compiled_type("number", false, instance)
+            end
+          when :typed_integer
+            if instance.is_a?(Numeric) && !instance.is_a?(Complex)
+              integer = instance.finite? && instance.to_i == instance
+              check_compiled_type("integer", integer, instance)
+              check_number(operand, instance)
+            else
+              check_compiled_type("integer", false, instance)
+            end
+          when :typed_string
+            if instance.is_a?(String)
+              check_string(operand, instance)
+            else
+              check_compiled_type("string", false, instance)
+            end
+          when :typed_array
+            if instance.is_a?(Array)
+              result = check_array(operand, instance, evaluation)
+              return Evaluation.invalid if !@errors && (!result.valid? || @error_count != before)
+              evaluation = evaluation.merge(result)
+            else
+              check_compiled_type("array", false, instance)
+            end
+          when :typed_object
+            if instance.is_a?(Hash)
+              result = check_object(operand, instance, evaluation)
+              return Evaluation.invalid if !@errors && (!result.valid? || @error_count != before)
+              evaluation = evaluation.merge(result)
+            else
+              check_compiled_type("object", false, instance)
+            end
           when :types
             check_compiled_types(operand, instance)
           when :enum
@@ -163,50 +303,52 @@ module Schemurai
           when :const
             add_error("const") { Internal::ErrorMessage.const } unless json_equal?(operand, instance)
           when :allOf, :anyOf, :oneOf, :not, :conditional
-            evaluation = evaluation.merge(check_combiner(opcode, operand, instance))
+            result = check_combiner(opcode, operand, instance)
+            return Evaluation.invalid if !@errors && (!result.valid? || @error_count != before)
+            evaluation = evaluation.merge(result)
           when :number
             check_number(operand, instance) if instance.is_a?(Numeric) && !instance.is_a?(Complex)
           when :string
             check_string(operand, instance) if instance.is_a?(String)
           when :array
-            evaluation = evaluation.merge(check_array(operand, instance, evaluation)) if instance.is_a?(Array)
+            if instance.is_a?(Array)
+              result = check_array(operand, instance, evaluation)
+              return Evaluation.invalid if !@errors && (!result.valid? || @error_count != before)
+              evaluation = evaluation.merge(result)
+            end
           when :object
-            evaluation = evaluation.merge(check_object(operand, instance, evaluation)) if instance.is_a?(Hash)
+            if instance.is_a?(Hash)
+              result = check_object(operand, instance, evaluation)
+              return Evaluation.invalid if !@errors && (!result.valid? || @error_count != before)
+              evaluation = evaluation.merge(result)
+            end
           else
             raise "unknown VM instruction #{opcode.inspect}"
           end
+          instruction_index += 2
         end
         (@error_count == before) ? evaluation : Evaluation.invalid
       ensure
         leave_scope if entered_scope
       end
 
-      private def enter_scope(program)
-        return false unless program.tracks_dynamic_scope?
-        return false if @dynamic_scope&.last.equal?(program.node.resource)
-
-        (@dynamic_scope ||= []) << program.node.resource
-        true
-      end
-
       private def leave_scope
         @dynamic_scope.pop
       end
 
       private def recursive_target(program, rules)
-        target = @compiler.resolve(program, rules.value)
+        target = reference_target(program, rules)
         return target unless rules.fragment == "" && target.recursive_anchor?
 
-        dynamic = Array(@dynamic_scope).filter_map do |resource|
-          root = resource.root
-          compiled = @compiler.compile(root)
-          compiled if compiled.recursive_anchor?
-        end.first
-        dynamic || target
+        @dynamic_scope&.each do |resource|
+          compiled = @compiler.compile(resource.root)
+          return compiled if compiled.recursive_anchor?
+        end
+        target
       end
 
       private def dynamic_target(program, rules)
-        target = @compiler.resolve(program, rules.value)
+        target = reference_target(program, rules)
         fragment = rules.fragment
         return target if fragment.nil? || fragment.empty? || fragment.start_with?("/")
 
@@ -221,18 +363,22 @@ module Schemurai
 
       private def valid_reference?(source, target, instance)
         instances = active_instances(source)
-        instance_id = instance.object_id
-        return true if instances[instance_id]
+        return true if instances.key?(instance)
 
-        instances[instance_id] = true
+        instances[instance] = true
         activated = true
         evaluate_valid(target, instance)
       ensure
-        instances&.delete(instance_id) if activated
+        instances&.delete(instance) if activated
+      end
+
+      private def reference_target(program, rules)
+        references = (@resolved_references ||= {}.compare_by_identity)
+        references.fetch(rules) { references[rules] = @compiler.resolve(program, rules.value) }
       end
 
       private def evaluate_ref(source, rules, instance)
-        target = @compiler.resolve(source, rules.value)
+        target = reference_target(source, rules)
         evaluate_reference(source, target, instance, "$ref")
       rescue ResolutionError => error
         unresolved_reference("$ref", error)
@@ -252,14 +398,13 @@ module Schemurai
 
       private def evaluate_reference(source, target, instance, keyword)
         instances = active_instances(source)
-        instance_id = instance.object_id
-        return Evaluation.valid if instances[instance_id]
+        return Evaluation.valid if instances.key?(instance)
 
-        instances[instance_id] = true
+        instances[instance] = true
         activated = true
         evaluate_at(target, instance, MISSING_SEGMENT, keyword)
       ensure
-        instances&.delete(instance_id) if activated
+        instances&.delete(instance) if activated
       end
 
       private def unresolved_reference(keyword, error)
@@ -268,8 +413,8 @@ module Schemurai
       end
 
       private def active_instances(program)
-        active = (@active ||= {})
-        active[program.node.object_id] ||= {}
+        active = (@active ||= {}.compare_by_identity)
+        active[program] ||= {}.compare_by_identity
       end
 
       private def check_compiled_type(name, valid, value)
@@ -301,19 +446,19 @@ module Schemurai
 
       private def valid_number?(rules, value)
         mask = rules.mask
-        actual = decimal(value)
+        actual = (mask & MULTIPLE_OF).zero? ? value : decimal(value)
         return false if (mask & MAXIMUM) != 0 && actual > rules.maximum
         return false if (mask & MINIMUM) != 0 && actual < rules.minimum
         return false if (mask & EXCLUSIVE_MAXIMUM) != 0 && actual >= rules.exclusive_maximum
         return false if (mask & EXCLUSIVE_MINIMUM) != 0 && actual <= rules.exclusive_minimum
         return true if (mask & MULTIPLE_OF).zero?
 
-        rules.multiple_of.positive? && actual.remainder(rules.multiple_of).zero?
+        valid_multiple?(rules, value)
       end
 
       private def check_number(rules, value)
         mask = rules.mask
-        actual = decimal(value)
+        actual = (mask & MULTIPLE_OF).zero? ? value : decimal(value)
         if (mask & MAXIMUM) != 0 && actual > rules.maximum
           add_error("maximum") { Internal::ErrorMessage.numeric_limit("maximum", rules.maximum) }
         end
@@ -333,19 +478,31 @@ module Schemurai
         return if (mask & MULTIPLE_OF).zero?
 
         divisor = rules.multiple_of
-        valid = divisor.positive? && actual.remainder(divisor).zero?
+        valid = valid_multiple?(rules, value)
         add_error("multipleOf") { Internal::ErrorMessage.multiple_of(divisor) } unless valid
       end
 
+      private def valid_multiple?(rules, value)
+        results = (@multiple_results ||= {}.compare_by_identity)
+        values = (results[rules] ||= {})
+        return values[value] if values.key?(value)
+
+        values.clear if values.length >= DECIMAL_CACHE_LIMIT
+        divisor = rules.multiple_of
+        values[value] = divisor.positive? && decimal(value).remainder(divisor).zero?
+      end
+
       private def valid_string?(rules, value)
         length = value.length
-        return false if rules.has_max_length && length > rules.max_length
-        return false if rules.has_min_length && length < rules.min_length
-        return false if rules.has_pattern && !ecma_regexp(rules.pattern).match?(value)
-        if format_asserted?(rules)
+        return false if rules.max_length && length > rules.max_length
+        return false if rules.min_length && length < rules.min_length
+        return false if rules.pattern && !ecma_regexp(rules.pattern).match?(value)
+        if rules.format && (@validate_format || rules.format_assertion)
           return false unless rules.format.call(value)
         end
-        return valid_content?(rules, value) if @validate_content
+        if @validate_content && (rules.decode_base64 || rules.parse_json)
+          return valid_content?(rules, value)
+        end
 
         true
       rescue RegexpError, IPAddr::InvalidAddressError
@@ -354,27 +511,23 @@ module Schemurai
 
       private def check_string(rules, value)
         length = value.length
-        if rules.has_max_length && length > rules.max_length
+        if rules.max_length && length > rules.max_length
           add_error("maxLength") { Internal::ErrorMessage.size("maxLength", rules.max_length, length) }
         end
-        if rules.has_min_length && length < rules.min_length
+        if rules.min_length && length < rules.min_length
           add_error("minLength") { Internal::ErrorMessage.size("minLength", rules.min_length, length) }
         end
-        if rules.has_pattern && !ecma_regexp(rules.pattern).match?(value)
+        if rules.pattern && !ecma_regexp(rules.pattern).match?(value)
           add_error("pattern") { Internal::ErrorMessage.pattern(rules.pattern) }
         end
-        if format_asserted?(rules) && !rules.format.call(value)
+        if rules.format && (@validate_format || rules.format_assertion) && !rules.format.call(value)
           add_error("format") { Internal::ErrorMessage.format(rules.format.name) }
         end
-        check_content(rules, value) if @validate_content
+        check_content(rules, value) if @validate_content && (rules.decode_base64 || rules.parse_json)
       rescue RegexpError
         add_error("pattern") { Internal::ErrorMessage.invalid_pattern(rules.pattern) }
       end
 
-      private def format_asserted?(rules)
-        (@validate_format || rules.format_assertion) && !rules.format.nil?
-      end
-
       private def valid_content?(rules, value)
         decoded = rules.decode_base64 ? Base64.strict_decode64(value) : value
         JSON.parse(decoded) if rules.parse_json
@@ -397,11 +550,17 @@ module Schemurai
 
       private def valid_array?(rules, value)
         length = value.length
-        return false if rules.has_max_items && length > rules.max_items
-        return false if rules.has_min_items && length < rules.min_items
+        return false if rules.max_items && length > rules.max_items
+        return false if rules.min_items && length < rules.min_items
         if rules.unique
-          value.each_with_index do |item, index|
-            return false if value[0...index].any? { |previous| json_equal?(previous, item) }
+          index = 1
+          while index < length
+            previous_index = 0
+            while previous_index < index
+              return false if json_equal?(value[previous_index], value[index])
+              previous_index += 1
+            end
+            index += 1
           end
         end
 
@@ -419,14 +578,18 @@ module Schemurai
             return false unless evaluate_valid(child, value[index])
           end
           if length > items.length && (additional = rules.additional)
-            (items.length...length).each do |index|
+            index = items.length
+            while index < length
               return false unless evaluate_valid(additional, value[index])
+              index += 1
             end
           end
         elsif items
           start = rules.prefix_items&.length || 0
-          (start...length).each do |index|
+          index = start
+          while index < length
             return false unless evaluate_valid(items, value[index])
+            index += 1
           end
         end
 
@@ -442,25 +605,44 @@ module Schemurai
       end
 
       private def check_array(rules, value, prior_evaluation)
-        evaluated = []
-        if rules.has_max_items && value.length > rules.max_items
+        evaluation = nil
+        if rules.max_items && value.length > rules.max_items
+          return Evaluation.invalid unless @errors
+
           add_error("maxItems") { Internal::ErrorMessage.size("maxItems", rules.max_items, value.length) }
         end
-        if rules.has_min_items && value.length < rules.min_items
+        if rules.min_items && value.length < rules.min_items
+          return Evaluation.invalid unless @errors
+
           add_error("minItems") { Internal::ErrorMessage.size("minItems", rules.min_items, value.length) }
         end
         if rules.unique
-          duplicate = value.each_with_index.any? do |item, index|
-            value[0...index].any? { |previous| json_equal?(previous, item) }
+          duplicate = false
+          index = 1
+          while index < value.length && !duplicate
+            previous_index = 0
+            while previous_index < index
+              if json_equal?(value[previous_index], value[index])
+                duplicate = true
+                break
+              end
+              previous_index += 1
+            end
+            index += 1
+          end
+          if duplicate
+            return Evaluation.invalid unless @errors
+
+            add_error("uniqueItems") { Internal::ErrorMessage.unique_items }
           end
-          add_error("uniqueItems") { Internal::ErrorMessage.unique_items } if duplicate
         end
 
         if (prefix_items = rules.prefix_items)
           prefix_items.each_with_index do |child, index|
             break if index >= value.length
-            evaluate_at(child, value[index], index, "prefixItems", index)
-            evaluated << index
+            valid = evaluate_child_at(child, value[index], index, "prefixItems", index)
+            return Evaluation.invalid if !valid && !@errors
+            (evaluation ||= tracked_evaluation).record_item(index)
           end
         end
 
@@ -468,107 +650,144 @@ module Schemurai
         if rules.items_list
           items.each_with_index do |child, index|
             break if index >= value.length
-            evaluate_at(child, value[index], index, "items", index)
-            evaluated << index
+            valid = evaluate_child_at(child, value[index], index, "items", index)
+            return Evaluation.invalid if !valid && !@errors
+            (evaluation ||= tracked_evaluation).record_item(index)
           end
           if value.length > items.length && (additional = rules.additional)
             (items.length...value.length).each do |index|
-              evaluate_at(additional, value[index], index, "additionalItems")
-              evaluated << index
+              valid = evaluate_child_at(additional, value[index], index, "additionalItems")
+              return Evaluation.invalid if !valid && !@errors
+              (evaluation ||= tracked_evaluation).record_item(index)
             end
           end
         elsif items
           start = rules.prefix_items&.length || 0
           (start...value.length).each do |index|
-            evaluate_at(items, value[index], index, "items")
-            evaluated << index
+            valid = evaluate_child_at(items, value[index], index, "items")
+            return Evaluation.invalid if !valid && !@errors
+            (evaluation ||= tracked_evaluation).record_item(index)
           end
         end
 
         if (contains = rules.contains)
-          matched = value.each_index.select do |index|
-            trial_at(contains, value[index], index, "contains").valid?
+          matched = nil
+          index = 0
+          while index < value.length
+            (matched ||= []) << index if trial_at(contains, value[index], index, "contains").valid?
+            index += 1
           end
-          unless matched.length.between?(rules.min_contains, rules.max_contains)
+          matched_count = matched ? matched.length : 0
+          unless matched_count.between?(rules.min_contains, rules.max_contains)
+            return Evaluation.invalid unless @errors
+
             add_error("contains") do
-              Internal::ErrorMessage.contains(matched.length, rules.min_contains, rules.max_contains)
+              Internal::ErrorMessage.contains(matched_count, rules.min_contains, rules.max_contains)
             end
           end
-          evaluated.concat(matched)
+          if matched
+            matched.each { |index| (evaluation ||= tracked_evaluation).record_item(index) }
+          end
         end
 
-        combined = prior_evaluation.evaluated_items | evaluated
         if (unevaluated = rules.unevaluated)
-          ((0...value.length).to_a - combined).each do |index|
-            evaluate_at(unevaluated, value[index], index, "unevaluatedItems")
-            evaluated << index
+          prior_items = prior_evaluation.evaluated_items
+          index = 0
+          while index < value.length
+            if prior_items.include?(index) || evaluation&.evaluated_items&.include?(index)
+              index += 1
+              next
+            end
+            valid = evaluate_child_at(unevaluated, value[index], index, "unevaluatedItems")
+            return Evaluation.invalid if !valid && !@errors
+            (evaluation ||= tracked_evaluation).record_item(index)
+            index += 1
           end
         end
-        Evaluation.valid(evaluated_items: evaluated.uniq)
+        return Evaluation.valid unless evaluation
+
+        evaluation
       end
 
       private def valid_object?(rules, value)
         length = value.length
-        return false if rules.has_max_properties && length > rules.max_properties
-        return false if rules.has_min_properties && length < rules.min_properties
-        if rules.has_required && !rules.required.all? { |name| value.key?(name) }
+        return false if rules.max_properties && length > rules.max_properties
+        return false if rules.min_properties && length < rules.min_properties
+        if rules.required && !rules.required.all? { |name| value.key?(name) }
           return false
         end
 
         properties = rules.properties
         patterns = rules.patterns
         additional = rules.additional
-        value.each do |name, property_value|
-          matched = false
-          if (child = properties[name])
-            matched = true
-            return false unless evaluate_valid(child, property_value)
-          end
-          patterns.each do |pattern, child|
-            next unless ecma_regexp(pattern).match?(name)
-            matched = true
-            return false unless evaluate_valid(child, property_value)
+        unless properties.empty? && patterns.nil? && additional.nil?
+          value.each do |name, property_value|
+            matched = false
+            if (child = properties[name])
+              matched = true
+              return false unless evaluate_valid(child, property_value)
+            end
+            if patterns
+              patterns.each do |pattern, child|
+                next unless ecma_regexp(pattern).match?(name)
+                matched = true
+                return false unless evaluate_valid(child, property_value)
+              end
+            end
+            return false if !matched && additional && !evaluate_valid(additional, property_value)
           end
-          return false if !matched && additional && !evaluate_valid(additional, property_value)
         end
 
         if (property_names = rules.property_names)
           value.each_key { |name| return false unless evaluate_valid(property_names, name) }
         end
-        rules.dependencies.each do |name, dependency|
-          next unless value.key?(name)
-          if dependency.is_a?(Array)
-            return false unless dependency.all? { |required_name| value.key?(required_name) }
-          else
-            return false unless evaluate_valid(dependency, value)
+        if (dependencies = rules.dependencies)
+          dependencies.each do |name, dependency|
+            next unless value.key?(name)
+            if dependency.is_a?(Array)
+              return false unless dependency.all? { |required_name| value.key?(required_name) }
+            else
+              return false unless evaluate_valid(dependency, value)
+            end
           end
         end
-        rules.dependent_required.each do |name, required_names|
-          next unless value.key?(name)
-          return false unless required_names.all? { |required_name| value.key?(required_name) }
+        if (dependent_required = rules.dependent_required)
+          dependent_required.each do |name, required_names|
+            next unless value.key?(name)
+            return false unless required_names.all? { |required_name| value.key?(required_name) }
+          end
         end
-        rules.dependent_schemas.each do |name, child|
-          next unless value.key?(name)
-          return false unless evaluate_valid(child, value)
+        if (dependent_schemas = rules.dependent_schemas)
+          dependent_schemas.each do |name, child|
+            next unless value.key?(name)
+            return false unless evaluate_valid(child, value)
+          end
         end
         true
       end
 
       private def check_object(rules, value, prior_evaluation)
-        evaluated = []
-        if rules.has_max_properties && value.length > rules.max_properties
+        evaluation = nil
+        if rules.max_properties && value.length > rules.max_properties
+          return Evaluation.invalid unless @errors
+
           add_error("maxProperties") do
             Internal::ErrorMessage.size("maxProperties", rules.max_properties, value.length)
           end
         end
-        if rules.has_min_properties && value.length < rules.min_properties
+        if rules.min_properties && value.length < rules.min_properties
+          return Evaluation.invalid unless @errors
+
           add_error("minProperties") do
             Internal::ErrorMessage.size("minProperties", rules.min_properties, value.length)
           end
         end
         if (required = rules.required)
           required.each do |name|
-            add_error("required") { Internal::ErrorMessage.required(name) } unless value.key?(name)
+            next if value.key?(name)
+            return Evaluation.invalid unless @errors
+
+            add_error("required") { Internal::ErrorMessage.required(name) }
           end
         end
 
@@ -578,96 +797,138 @@ module Schemurai
           matched = false
           if (child = properties[name])
             matched = true
-            evaluate_at(child, property_value, name, "properties", name)
-            evaluated << name
+            valid = evaluate_child_at(child, property_value, name, "properties", name)
+            return Evaluation.invalid if !valid && !@errors
+            (evaluation ||= tracked_evaluation).record_property(name)
           end
-          patterns.each do |pattern, child|
-            next unless ecma_regexp(pattern).match?(name)
-            matched = true
-            evaluate_at(child, property_value, name, "patternProperties", pattern)
-            evaluated << name
+          if patterns
+            patterns.each do |pattern, child|
+              next unless ecma_regexp(pattern).match?(name)
+              matched = true
+              valid = evaluate_child_at(child, property_value, name, "patternProperties", pattern)
+              return Evaluation.invalid if !valid && !@errors
+              (evaluation ||= tracked_evaluation).record_property(name)
+            end
           end
           if !matched && (additional = rules.additional)
-            evaluate_at(additional, property_value, name, "additionalProperties")
-            evaluated << name
+            valid = evaluate_child_at(additional, property_value, name, "additionalProperties")
+            return Evaluation.invalid if !valid && !@errors
+            (evaluation ||= tracked_evaluation).record_property(name)
           end
         end
 
         if (property_names = rules.property_names)
-          value.each_key { |name| evaluate_at(property_names, name, name, "propertyNames") }
+          value.each_key do |name|
+            valid = evaluate_child_at(property_names, name, name, "propertyNames")
+            return Evaluation.invalid if !valid && !@errors
+          end
         end
-        rules.dependencies.each do |name, dependency|
-          next unless value.key?(name)
-          if dependency.is_a?(Array)
-            dependency.each do |required_name|
-              unless value.key?(required_name)
-                add_error("dependencies") { Internal::ErrorMessage.dependent_required(name, required_name) }
+        if (dependencies = rules.dependencies)
+          dependencies.each do |name, dependency|
+            next unless value.key?(name)
+            if dependency.is_a?(Array)
+              dependency.each do |required_name|
+                unless value.key?(required_name)
+                  return Evaluation.invalid unless @errors
+
+                  add_error("dependencies") { Internal::ErrorMessage.dependent_required(name, required_name) }
+                end
+              end
+            else
+              result = evaluate_at(dependency, value, MISSING_SEGMENT, "dependencies", name)
+              if result.valid? && !result.evaluated_properties.empty?
+                result.evaluated_properties.each do |property|
+                  (evaluation ||= tracked_evaluation).record_property(property)
+                end
               end
             end
-          else
-            result = evaluate_at(dependency, value, MISSING_SEGMENT, "dependencies", name)
-            evaluated.concat(result.evaluated_properties) if result.valid?
           end
         end
-        rules.dependent_required.each do |name, required_names|
-          next unless value.key?(name)
-          required_names.each do |required_name|
-            unless value.key?(required_name)
-              add_error("dependentRequired") { Internal::ErrorMessage.dependent_required(name, required_name) }
+        if (dependent_required = rules.dependent_required)
+          dependent_required.each do |name, required_names|
+            next unless value.key?(name)
+            required_names.each do |required_name|
+              unless value.key?(required_name)
+                return Evaluation.invalid unless @errors
+
+                add_error("dependentRequired") { Internal::ErrorMessage.dependent_required(name, required_name) }
+              end
             end
           end
         end
-        rules.dependent_schemas.each do |name, child|
-          next unless value.key?(name)
-          result = evaluate_at(child, value, MISSING_SEGMENT, "dependentSchemas", name)
-          evaluated.concat(result.evaluated_properties) if result.valid?
+        if (dependent_schemas = rules.dependent_schemas)
+          dependent_schemas.each do |name, child|
+            next unless value.key?(name)
+            result = evaluate_at(child, value, MISSING_SEGMENT, "dependentSchemas", name)
+            if result.valid? && !result.evaluated_properties.empty?
+              result.evaluated_properties.each do |property|
+                (evaluation ||= tracked_evaluation).record_property(property)
+              end
+            end
+          end
         end
-
-        combined = prior_evaluation.evaluated_properties | evaluated
         if (unevaluated = rules.unevaluated)
-          (value.keys - combined).each do |name|
-            evaluate_at(unevaluated, value[name], name, "unevaluatedProperties")
-            evaluated << name
+          prior_properties = prior_evaluation.evaluated_properties
+          value.each_key do |name|
+            next if prior_properties.include?(name) || evaluation&.evaluated_properties&.include?(name)
+
+            valid = evaluate_child_at(unevaluated, value[name], name, "unevaluatedProperties")
+            return Evaluation.invalid if !valid && !@errors
+            (evaluation ||= tracked_evaluation).record_property(name)
           end
         end
-        Evaluation.valid(evaluated_properties: evaluated.uniq)
+        return Evaluation.valid unless evaluation
+
+        evaluation
       end
 
       private def check_combiner(opcode, operand, value)
         evaluation = Evaluation.valid
         case opcode
         when :allOf
-          operand.each_with_index do |child, index|
-            evaluation = evaluation.merge(evaluate_at(child, value, MISSING_SEGMENT, "allOf", index))
+          index = 0
+          while index < operand.length
+            evaluation = evaluation.merge(evaluate_at(operand[index], value, MISSING_SEGMENT, "allOf", index))
+            index += 1
           end
         when :anyOf
-          matches = operand.each_with_index.filter_map do |child, index|
-            result = trial_at(child, value, MISSING_SEGMENT, "anyOf", index)
-            result if result.valid?
-          end
-          if matches.empty?
-            add_error("anyOf") { Internal::ErrorMessage.any_of }
-          else
-            matches.each { |result| evaluation = evaluation.merge(result) }
+          matches = 0
+          index = 0
+          while index < operand.length
+            result = trial_at(operand[index], value, MISSING_SEGMENT, "anyOf", index)
+            if result.valid?
+              matches += 1
+              evaluation = evaluation.merge(result)
+            end
+            index += 1
           end
+          add_error("anyOf") { Internal::ErrorMessage.any_of } if matches.zero?
         when :oneOf
-          matches = operand.each_with_index.filter_map do |child, index|
-            result = trial_at(child, value, MISSING_SEGMENT, "oneOf", index)
-            result if result.valid?
+          matches = 0
+          matched_evaluation = nil
+          index = 0
+          while index < operand.length
+            result = trial_at(operand[index], value, MISSING_SEGMENT, "oneOf", index)
+            if result.valid?
+              matches += 1
+              matched_evaluation = result
+            end
+            index += 1
           end
-          if matches.length == 1
-            evaluation = evaluation.merge(matches.first)
+          if matches == 1
+            evaluation = evaluation.merge(matched_evaluation)
           else
-            add_error("oneOf") { Internal::ErrorMessage.one_of(matches.length) }
+            add_error("oneOf") { Internal::ErrorMessage.one_of(matches) }
           end
         when :not
           add_error("not") { Internal::ErrorMessage.not } if trial_at(operand, value, MISSING_SEGMENT, "not").valid?
         when :conditional
           condition = trial_at(operand.condition, value, MISSING_SEGMENT, "if")
-          evaluation = evaluation.merge(condition) if condition.valid?
-          if condition.valid? && operand.has_then
+          condition_valid = condition.valid?
+          evaluation = evaluation.merge(condition) if condition_valid
+          if condition_valid && operand.then_branch
             evaluation = evaluation.merge(evaluate_at(operand.then_branch, value, MISSING_SEGMENT, "then"))
-          elsif !condition.valid? && operand.has_else
+          elsif !condition_valid && operand.else_branch
             evaluation = evaluation.merge(evaluate_at(operand.else_branch, value, MISSING_SEGMENT, "else"))
           end
         end
@@ -686,6 +947,20 @@ module Schemurai
       end
 
       private def evaluate_at(program, instance, instance_segment, schema_segment, child_segment = MISSING_SEGMENT)
+        return evaluate(program, instance) unless @instance_path
+
+        evaluate_at_with_path(program, instance, instance_segment, schema_segment, child_segment)
+      end
+
+      private def evaluate_child_at(program, instance, instance_segment, schema_segment, child_segment = MISSING_SEGMENT)
+        return evaluate_at(program, instance, instance_segment, schema_segment, child_segment).valid? if @errors
+
+        valid = evaluate_valid(program, instance)
+        @error_count += 1 unless valid
+        valid
+      end
+
+      private def evaluate_at_with_path(program, instance, instance_segment, schema_segment, child_segment)
         @instance_path << instance_segment unless instance_segment.equal?(MISSING_SEGMENT)
         @schema_path << schema_segment
         @schema_path << child_segment unless child_segment.equal?(MISSING_SEGMENT)
@@ -697,6 +972,12 @@ module Schemurai
       end
 
       private def trial_at(program, instance, instance_segment, schema_segment, child_segment = MISSING_SEGMENT)
+        return trial(program, instance) unless @instance_path
+
+        trial_at_with_path(program, instance, instance_segment, schema_segment, child_segment)
+      end
+
+      private def trial_at_with_path(program, instance, instance_segment, schema_segment, child_segment)
         @instance_path << instance_segment unless instance_segment.equal?(MISSING_SEGMENT)
         @schema_path << schema_segment
         @schema_path << child_segment unless child_segment.equal?(MISSING_SEGMENT)
@@ -726,30 +1007,38 @@ module Schemurai
       end
 
       private def json_equal?(left, right)
-        return false if json_kind(left) != json_kind(right)
+        if left.is_a?(Numeric) && !left.is_a?(Complex)
+          return right.is_a?(Numeric) && !right.is_a?(Complex) && left == right
+        end
+        return false unless left.instance_of?(right.class)
+
         case left
         when Hash
           left.length == right.length && left.all? do |key, value|
             right.key?(key) && json_equal?(value, right[key])
           end
         when Array
-          left.length == right.length && left.each_index.all? { |index| json_equal?(left[index], right[index]) }
+          return false unless left.length == right.length
+
+          index = 0
+          while index < left.length
+            return false unless json_equal?(left[index], right[index])
+            index += 1
+          end
+          true
         else
           left == right
         end
       end
 
-      private def json_kind(value)
-        return :number if number?(value)
-        return :boolean if value == true || value == false
-
-        value.class
-      end
-
       private def decimal(value)
         return value if value.is_a?(Integer) || value.is_a?(Rational)
 
-        Rational(value.to_s)
+        decimals = (@decimals ||= {})
+        return decimals[value] if decimals.key?(value)
+
+        decimals.clear if decimals.length >= DECIMAL_CACHE_LIMIT
+        decimals[value] = Rational(value.to_s)
       end
 
       private def ecma_regexp(pattern)
@@ -803,7 +1092,7 @@ module Schemurai
         pointer << "/" << segment.to_s.gsub("~", "~0").gsub("/", "~1")
       end
 
-      private_constant :MISSING_SEGMENT
+      private_constant :DECIMAL_CACHE_LIMIT, :MISSING_SEGMENT
     end
   end