Как построить макрос, выбрасывающий произвольное количество возможных совпадений?

Question

Допустим, я хотел бы создать макрос такого типа:

m(1, k) будет производить:

match(k)
{
  | 1 => 2
  | _ => 0
}

m(2, k) будет производить:

match(k)
{
  | 1 => 2
  | 2 => 3
  | _ => 0
}

и так далее. Хотя конструкция вроде <[ $i => $(i + 1) ]> для возможного соответствия принято, я не знаю, как создать выражение соответствия, состоящее из них. Пример конечно надуманный;)

Answer 1

public macro m(to, k)
{
  def toInteger(literal)
  {
     | <[ $(i : int) ]> => i
     | _ => Message.Error(literal.Location, $"'$literal' integer literal expected"); 0;
  }

  def to = toInteger(to);

  def createCases(i) 
  {
     | i when (i > 0) => <[case: | $i => $(i + 1)  ]> :: createCases(i - 1);
     | _ => [ <[case: | _ => 0 ]> ]
  }

  <[
    match ($k)
    {
      ..$(createCases(to))
    }
  ]>
}

http://nemerle.org/Macros_tutorial