<lambda_expr> ::=
    'fun' [ <method_type_parameters> ] '(' <method_parameters> ')' [ ':' <type> ] [ <where_constraints> ] <block>

N><lambda_expr> ::=
N>    'fun' [ <method_type_parameters> ] '(' <method_parameters> ')' [ ':' <type> ] [ <where_constraints> ] <block> 
N>

using System;
using System.Console;
using Nemerle.Utility;

def f = WriteLine : string -> void;
f("Вызов фукнции через ссылку");

def f = WriteLine(_);
f("Частичное применение функции");

def f = WriteLine("Еще однин вариант - '{0}'", _);
f("частичного применения функции");

def formatFromOuterContext = "{0} с замыканием на внешний контекст!";
def f = WriteLine(formatFromOuterContext, _);
f("Частичное применение функции");

def lst = [1, 2, 4, 6, 9];
mutable sum0 = 0;
lst.Iter(x => sum0 += x);                // лямбда с одним параметром (и замыканием на внешюю переменную)
WriteLine($"sum0 = $sum0");

def lst = [1, 2, 4, 6, 9];
def sum1 = lst.Fold(0, (x, y) => x + y); // лямбда с двумя параметрами
WriteLine($"sum1 = $sum1");

def lst = [1, 2, 4, 6, 9];
def sum2 = lst.Fold(0, _ + _);          // частичное применение оператора +
WriteLine($"sum2 = $sum2");

def lst = [1, 2, 4, 6, 9];
def lst = lst.Map(_.ToString());       // частичное применение метода
def sum3 = lst.Fold("", _ + _);        // частичное применение оператора +
WriteLine($"sum3 = '$sum3'");

N><lambda_expr> ::=
N>    'fun' [ <method_type_parameters> ] '(' <method_parameters> ')' [ ':' <type> ] [ <where_constraints> ] <block> 
N>

def cmp = fun[T](x : T, y : T) where T: IComparable[T] { x.CompareTo(y) };
WriteLine(cmp("1", "02"));
WriteLine(cmp(1, 2));
WriteLine(cmp(1.8, 2.0));

 fun a:int, b:int :double{ a+b }

someObj.SomeEvent += (_, _) => someCode();

VD>someObj.SomeEvent += (_, _) => someCode();
VD>

someObj.SomeEvent += fun { someCode() };

obj.SomeEvent += { ... };

f({ ... });

def f() : A -> B
{
  { B() }
}

N>someObj.SomeEvent += fun { someCode() };
N>

someObj.SomeEvent += fun(_, _) { someCode() };

someObj.SomeEvent += (_, _) => someCode();

class A :
{
}

f(a :) : { }

using System;
module A {
    event Foo : object * EventArgs -> void;
    Main() : void {
        Foo += fun(_, _) { Console.WriteLine("here") }
    }
}

Main.n(3,2,3,40): error : cannot find the operator `op_Addition' on (System.Object * System.EventArgs) -> void and (System.Object * System.EventArgs) -> void
Main.n(3,2,3,40): error : cannot find the operator `op_Subtraction' on (System.Object * System.EventArgs) -> void and (System.Object * System.EventArgs) -> void
Main.n(5,3,5,18): error : cannot find the operator `op_Addition' on (System.Object * System.EventArgs) -> void and (? * ?) -> void

using System;
module A {
    event Foo : EventHandler;
    Main() : void {
        Foo += fun(_, _) { Console.WriteLine("here") }
    }
}