g> H>Как я уже сказал, для ценителей есть реализации (я бы их использовать не стал, но я не ценитель)

g> H>Средства языка позволяют все сделать красиво, уж ты поверь

g> Func<int> A(int x)
g> {
g>    var y = x*2;
g>    Func<int> r = () => y;
g>    y++;
g>    return r;
g> }
g>

Function Func(X : Integer) : Integer;
Var

 Y : Integer;
 R : TFunc<Integer>;

Begin

 Y := X * 2;
 R := Function : Integer Begin Result := Y; End;
 Inc(Y);

 Result := R;

End;

WriteLn(Func(2)); // выведет 5

public static IObservable<Unit> ReadExact(this Stream stream, byte[] buffer, int offset, int count)
{
    return Observable.Iterate(() => ReadExactInternal(stream, buffer, offset, count));
}
public static IEnumerable<IObservable<object>> ReadExactInternal(Stream stream, byte[] buffer, int offset, int count)
{
    var read = Observable.FromAsyncPattern<byte[], int, int, int>(stream.BeginRead, stream.EndRead);
    while(count>0)
    {
        var result = read(buffer, offset, count).Start();
        yield return result; //Вот тут выполнение прервется пока не выполнится асинхронная операция чтения.
        count -= result[0];
        offset += result[0];
    }
}

def f():
  yield 1
  yield 2
  
def f2():   
  f() # так работать не будет
  yield 3

events
    .Where(x => IsClean(x))
    .Select(x => Location.FromEventArgs(x))
    .SkipUntil(start)
    .TakeUntil(stop)
    .Repeat();

-_*> H>var i : byte;

-_*> H>for i in TBytes.Create(1, 2, 3, 4, 5) do
-_*> H> writeLn(i);
-_*> H>

Embarcadero® Delphi® XE is the fastest way to deliver ultra-rich, ultra-fast Windows applications. Dramatically reduce coding time and create applications 5x faster with component-based development and a fully visual two-way RAD IDE.