This documentation is automatically generated by online-judge-tools/verification-helper

:warning: src/template.cr

Depends on

Code

require "./comparable/min_max"
require "./tuple/each_product"
require "./tuple/times"
require "./array/new"
require "./collection/accumulate"
require "./collection/change"
require "./collection/each_pair"
require "./collection/tally"
require "./collection/unique"
require "./scanner"
# require "./comparable/min_max"
module Comparable(T)
  def min(x : T)
    self > x ? x : self
  end

  def max(x : T)
    self < x ? x : self
  end
end

# require "./tuple/each_product"
struct Tuple
  def each_product(&block) : Nil
    {% begin %}
      {% for i in 0...@type.size %}
        self[{{i}}].each do |i{{i}}|
      {% end %}
      yield({% for i in 0...@type.size %} i{{i}}, {% end %})
      {% for i in 0...@type.size %}
        end
      {% end %}
    {% end %}
  end

  private class ProductIterator(T, Begin, End)
    include Iterator(Begin)

    def initialize(@n : T)
      @index = {% begin %}
        { {% for i in 0...T.size %} @n[{{i}}].begin, {% end %} }
      {% end %}.as(Begin)
      @end = {% begin %}
        { {% for i in 0...T.size %} @n[{{i}}].exclusive? ? @n[{{i}}].end.pred : @n[{{i}}].end, {% end %} }
      {% end %}.as(End)
      @first = true
    end

    def next
      if @first
        @first = false
        return @index
      end
      {% begin %}
        {%
          type = @type.type_vars[0]
          size = type.size
        %}
        {% for i in 1..size %}
          if @index[{{size - i}}] < @end[{{size - i}}]
            @index = {
              {% for j in 0...size %}
                {% if j < size - i %}
                  @index[{{j}}],
                {% elsif j == size - i %}
                  @index[{{j}}] + 1,
                {% else %}
                  @n[{{j}}].begin,
                {% end %}
              {% end %}
            }
            return @index
          end
        {% end %}
        stop
      {% end %}
    end
  end

  def each_product
    {% for type in T %}
      {% raise "Can't product for not Range" unless type < Range %}
      {% raise "Can't product for open Range" if type.type_vars[0].nilable? %}
      {% raise "Can't product for open Range" if type.type_vars[1].nilable? %}
    {% end %}
    ProductIterator(self, typeof({% begin %}
      { {% for i in 0...@type.size %} self[{{i}}].begin,{% end %} }
    {% end %}), typeof({% begin %}
      { {% for i in 0...@type.size %} self[{{i}}].end, {% end %} }
    {% end %})).new(self)
  end
end

# require "./tuple/times"
struct Tuple
  def times(&block) : Nil
    {% begin %}
      {% for i in 0...@type.size %}
        self[{{i}}].times do |i{{i}}|
      {% end %}
      yield({% for i in 0...@type.size %} i{{i}}, {% end %})
      {% for i in 0...@type.size %}
        end
      {% end %}
    {% end %}
  end

  private class TimesIterator(T)
    include Iterator(T)

    def initialize(@n : T)
      tuple = {% begin %} { {% for type in T %} {{type}}.zero, {% end %} } {% end %}
      @index = tuple.as(T)
      @first = true
    end

    def next
      if @first
        @first = false
        return @index
      end
      {% begin %}
        {%
          type = @type.type_vars[0]
          size = type.size
        %}
        {% for i in 1..size %}
          if @index[{{size - i}}] < @n[{{size - i}}] - 1
            @index = {
              {% for j in 0...size %}
                {% if j < size - i %}
                  @index[{{j}}],
                {% elsif j == size - i %}
                  @index[{{j}}] + 1,
                {% else %}
                  {{type[j]}}.zero,
                {% end %}
              {% end %}
            }
            return @index
          end
        {% end %}
        stop
      {% end %}
    end
  end

  def times
    TimesIterator(self).new(self)
  end
end

# require "./array/new"
class Array(T)
  def self.new(sizes : Tuple(*I), initial_value) forall I
    {% begin %}
      {% for i in 0...I.size %} Array.new(sizes[{{i}}]) { {% end %}
      initial_value
      {% for i in 0...I.size %} } {% end %}
    {% end %}
  end

  def self.new(sizes : Tuple(*I), &block) forall I
    {% begin %}
      {% for i in 0...I.size %} Array.new(sizes[{{i}}]) { |index{{i}}| {% end %}
      yield({% for i in 0...I.size %} index{{i}}, {% end %})
      {% for i in 0...I.size %} } {% end %}
    {% end %}
  end
end

# require "./collection/accumulate"
module Enumerable(T)
  def accumulate(init : U) : Array(U) forall U
    accumulate(init) { |a, b| a + b }
  end

  def accumulate : Array(T)
    accumulate { |x, y| x + y }
  end

  def accumulate(init : U, &block : U, T -> U) : Array(U) forall U
    result = [init]
    each { |v| result << yield(result.last, v) }
    result
  end

  def accumulate(&block : T, T -> T) : Array(T)
    result = [] of T
    memo = uninitialized T
    each do |v|
      memo = result.empty? ? v : yield(memo, v)
      result << memo
    end
    result
  end
end

# require "./collection/change"
class Array(T)
  def chmin(i : Int, value : T)
    f = self[i] > value
    self[i] = value if f
    f
  end

  protected def chmin(i : Int, *indexes, value)
    self[i].chmin(*indexes, value: value)
  end

  def chmin(indexes : Tuple, value)
    chmin(*indexes, value: value)
  end

  def chmax(i : Int, value : T)
    f = self[i] < value
    self[i] = value if f
    f
  end

  protected def chmax(i : Int, *indexes, value)
    self[i].chmax(*indexes, value: value)
  end

  def chmax(indexes : Tuple, value)
    chmax(*indexes, value: value)
  end
end

# require "./collection/each_pair"
module Indexable(T)
  def each_pair(&)
    each_with_index do |x, i|
      (i + 1...size).each do |j|
        yield x, unsafe_fetch(j)
      end
    end
  end

  def each_pair
    PairIterator(self, T).new(self)
  end

  private class PairIterator(A, T)
    include Iterator({T, T})

    def initialize(@array : A)
      @i, @j = 0, 1
    end

    def next : {T, T} | Iterator::Stop
      if @j >= @array.size
        @i += 1
        @j = @i + 1
      end
      if @j >= @array.size
        stop
      else
        {@array[@i], @array[@j]}.tap { @j += 1 }
      end
    end
  end
end

# require "./collection/tally"
module Enumerable(T)
  def tally(*, default : Int32) : Hash(T, Int32)
    each_with_object(Hash(T, Int32).new default) do |value, hash|
      hash[value] += 1
    end
  end
end

# require "./collection/unique"
module Enumerable(T)
  def unique : self
    unique(&.itself)
  end

  def unique(&) : self
    last = uninitialized T
    each_with_object([] of T) do |v, ary|
      now = yield v
      if ary.empty? || last != now
        last = now
        ary << v
      end
    end
  end
end

module Iterator(T)
  def unique
    unique &.itself
  end

  def unique(&func : T -> U) forall U
    Unique(typeof(self), T, U).new(self, func)
  end

  private struct Unique(I, T, U)
    include Iterator(T)
    include IteratorWrapper

    def initialize(@iterator : I, @func : T -> U)
      @first = true
      @prev_func_value = uninitialized U
    end

    def next
      loop do
        value = wrapped_next
        func_value = @func.call value
        if @first || func_value != @prev_func_value
          @first = false
          @prev_func_value = func_value
          return value
        end
      end
    end
  end
end

# require "./scanner"
module Scanner
  extend self

  private def skip_to_not_space(io)
    peek = io.peek
    not_space = peek.index { |x| x != 32 && x != 10 } || peek.size
    io.skip(not_space)
  end

  def c(io = STDIN)
    skip_to_not_space(io)
    io.read_char.not_nil!
  end

  private def int(int_type : T.class, io = STDIN) : T forall T
    skip_to_not_space(io)

    value = T.zero
    signed = false
    case x = io.read_byte
    when nil
      raise IO::EOFError.new
    when 45
      signed = true
    when 48..57
      value = T.new 48 &- x
    else
      raise "Unexpected char: #{x.chr}"
    end

    loop do
      peek = io.peek
      return signed ? value : -value if peek.empty?
      i = 0
      while i < peek.size
        c = peek.unsafe_fetch(i)
        if 48 <= c <= 57
          value = value &* 10 &- c &+ 48
          i &+= 1
        elsif c == 32 || c == 10
          io.skip(i &+ 1)
          return signed ? value : -value
        else
          raise "Unexpected char: #{c.chr}"
        end
      end
      io.skip(i)
    end
  end

  private def uint(uint_type : T.class, io = STDIN) : T forall T
    skip_to_not_space(io)
    value = T.zero
    found_digit = false
    loop do
      peek = io.peek
      if peek.empty?
        if found_digit
          return value
        else
          raise IO::EOFError.new
        end
      end
      i = 0
      while i < peek.size
        c = peek.unsafe_fetch(i)
        if 48 <= c <= 57
          found_digit = true
          value = value &* 10 &+ c &- 48
          i &+= 1
        elsif c == 32 || c == 10
          io.skip(i &+ 1)
          return value
        else
          raise "Unexpected char: #{c.chr}"
        end
      end
      io.skip(i)
    end
  end

  def i(io = STDIN)
    int(Int32, io)
  end

  {% for n in [8, 16, 32, 64, 128] %}
    def i{{n}}(io = STDIN)
      int(Int{{n}}, io)
    end

    def u{{n}}(io = STDIN)
      uint(UInt{{n}}, io)
    end
  {% end %}

  {% for method in [:f, :f32, :f64] %}
    def {{method.id}}(io = STDIN)
      s(io).to_{{method.id}}
    end
  {% end %}

  def s(io = STDIN)
    skip_to_not_space(io)

    peek = io.peek
    if peek.empty?
      raise IO::EOFError.new
    end
    if index = peek.index { |x| x == 32 || x == 10 }
      io.skip(index + 1)
      return String.new(peek[0, index])
    end

    String.build do |buffer|
      loop do
        buffer.write peek
        io.skip(peek.size)
        peek = io.peek
        break if peek.empty?
        if index = peek.index { |x| x == 32 || x == 10 }
          buffer.write peek[0, index]
          io.skip(index + 1)
          break
        end
      end
    end
  end
end

macro internal_input(type, else_ast, io)
  {% if Scanner.class.has_method?(type.id) %}
    Scanner.{{type.id}}({{io}})
  {% elsif type.stringify == "String" %}
    Scanner.s({{io}})
  {% elsif type.stringify == "Char" %}
    Scanner.c({{io}})
  {% elsif type.is_a?(Path) %}
    {% if type.resolve.class.has_method?(:scan) %}
      {{type}}.scan(Scanner, {{io}})
    {% else %}
      {{type}}.new(Scanner.s({{io}}))
    {% end %}
  {% elsif String.has_method?("to_#{type}".id) %}
    Scanner.s({{io}}).to_{{type.id}}
  {% else %}
    {{else_ast}}
  {% end %}
end

macro internal_input_array(type, args, io)
  {% for i in 0...args.size %}
    %size{i} = input({{args[i]}}, io: {{io}})
  {% end %}
  {% begin %}
    {% for i in 0...args.size %} Array.new(%size{i}) { {% end %}
      input({{type.id}}, io: {{io}})
    {% for i in 0...args.size %} } {% end %}
  {% end %}
end

# Inputs from *io*.
#
# ### Specifications
#
# ```plain
# AST               | Example             | Expanded code
# ------------------+---------------------+---------------------------------------
# Uppercase string  | Int32, Int64, etc.  | {}.new(Scanner.s)
#                   | s, c, i, iN, uN     | Scanner.{}
#                   | f, big_i, etc.      | Scanner.s.to_{}
# Call []           | type[size]          | Array.new(input(size)) { input(type) }
# TupleLiteral      | {t1, t2, t3}        | {input(t1), input(t2), input(t3)}
# ArrayLiteral      | [t1, t2, t3]        | [input(t1), input(t2), input(t3)]
# HashLiteral       | {t1 => t2}          | {input(t1) => input(t2)}
# NamedTupleLiteral | {a: t1, b: t2}      | {a: input(t1), b: input(t2)}
# RangeLiteral      | t1..t2              | input(t1)..input(t2)
# Expressions       | (exp1; exp2)        | (input(exp1); input(exp2);)
# If                | cond ? t1 : t2      | input(cond) ? input(t1) : input(t2)
# Assign            | target = value      | target = input(value)
# ```
#
# ### Examples
#
# Input:
# ```plain
# 5 3
# foo bar
# 1 2 3 4 5
# ```
# ```
# n, m = input(Int32, Int64) # => {5, 5i64}
# input(String, Char[m])     # => {"foo", ['b', 'a', 'r']}
# input(Int32[n])            # => [1, 2, 3, 4, 5]
# ```
# ```
# n, m = input(i, i64) # => {5, 5i64}
# input(s, c[m])       # => {"foo", ['b', 'a', 'r']}
# input(i[n])          # => [1, 2, 3, 4, 5]
# ```
#
# Input:
# ```plain
# 2 3
# 1 2 3
# 4 5 6
# ```
#
# ```
# h, w = input(i, i) # => {2, 3}
# input(i[h, w])     # => [[1, 2, 3], [4, 5, 6]]
# ```
# ```
# input(i[i, i]) # => [[1, 2, 3], [4, 5, 6]]
# ```
#
# Input:
# ```plain
# 5 3
# 3 1 4 2 5
# 1 2
# 2 3
# 3 1
# ```
# ```
# n, m = input(i, i)       # => {5, 3}
# input(i.pred[n])         # => [2, 0, 3, 1, 4]
# input({i - 1, i - 1}[m]) # => [{0, 1}, {1, 2}, {2, 0}]
# ```
#
# Input:
# ```plain
# 3
# 1 2
# 2 2
# 3 2
# ```
# ```
# input({tmp = i, tmp == 1 ? i : i.pred}[i]) # => [{1, 2}, {2, 1}, {3, 1}]
# ```
#
# Input:
# ```plain
# 3
# 1 1
# 2 1 2
# 5 1 2 3 4 5
# ```
# ```
# n = input(i)   # => 3
# input(i[i][n]) # => [[1], [1, 2], [1, 2, 3, 4, 5]]
# ```
#
# Input:
# ```plain
# 3
# 1 2
# 2 3
# 3 1
# ```
# ```
# n = input(i)
# input_column({Int32, Int32}, n) # => {[1, 2, 3], [2, 3, 1]}
# ```
macro input(ast, *, io = STDIN)
  {% if ast.is_a?(Call) %}
    {% if ast.receiver.is_a?(Nop) %}
      internal_input(
        {{ast.name}},
        {{ast.name}}({% for argument in ast.args %} input({{argument}}, io: {{io}}), {% end %}),
        {{io}},
      )
    {% elsif ast.receiver.is_a?(Path) && ast.receiver.resolve.class.has_method?(ast.name.symbolize) %}
      {{ast.receiver}}.{{ast.name}}(
        {% for argument in ast.args %} input({{argument}}, io: {{io}}) {% end %}
      ) {{ast.block}}
    {% elsif ast.name.stringify == "[]" %}
      internal_input_array({{ast.receiver}}, {{ast.args}}, {{io}})
    {% else %}
      input({{ast.receiver}}, io: {{io}}).{{ast.name}}(
        {% for argument in ast.args %} input({{argument}}, io: {{io}}), {% end %}
      ) {{ast.block}}
    {% end %}
  {% elsif ast.is_a?(TupleLiteral) %}
    { {% for i in 0...ast.size %} input({{ast[i]}}, io: {{io}}), {% end %} }
  {% elsif ast.is_a?(ArrayLiteral) %}
    [ {% for i in 0...ast.size %} input({{ast[i]}}, io: {{io}}), {% end %} ]
  {% elsif ast.is_a?(HashLiteral) %}
    { {% for key, value in ast %} input({{key}}, io: {{io}}) => input({{value}}, io: {{io}}), {% end %} }
  {% elsif ast.is_a?(NamedTupleLiteral) %}
    { {% for key, value in ast %} {{key}}: input({{value}}, io: {{io}}), {% end %} }
  {% elsif ast.is_a?(RangeLiteral) %}
    Range.new(
      input({{ast.begin}}, io: {{io}}),
      input({{ast.end}}, io: {{io}}),
      {{ast.excludes_end?}},
    )
  {% elsif ast.is_a?(SymbolLiteral) %}
    {{ast.id}}
  {% elsif ast.is_a?(Expressions) %}
    ( {% for exp in ast.expressions %} input({{exp}}, io: {{io}}); {% end %} )
  {% elsif ast.is_a?(If) %}
    input({{ast.cond}}, io: {{io}}) ? input({{ast.then}}, io: {{io}}) : input({{ast.else}}, io: {{io}})
  {% elsif ast.is_a?(Assign) %}
    {{ast.target}} = input({{ast.value}}, io: {{io}})
  {% else %}
    internal_input({{ast}}, {{ast}}, io: {{io}})
  {% end %}
end

macro input(*asts, io = STDIN)
  { {% for ast in asts %} input({{ast}}, io: {{io}}), {% end %} }
end

macro input_column(types, size, *, io = STDIN)
  %size = {{size}}
  {% for type, i in types %}
    %array{i} = Array({{type}}).new(%size)
  {% end %}
  %size.times do
    {% for type, i in types %}
      %array{i} << input({{type}}, io: {{io}})
    {% end %}
  end
  { {% for type, i in types %} %array{i}, {% end %} }
end
Back to top page