Не надо додумывать за автора, что он собирался сказать, что он мог сказать, что он подумал и что мог бы подумать, но сразу не собразил.

    if the obj is an object then ...(а с просто "а" - будет ошибка!)
    if the obj is a someOtherObject then ...

17:58:23: вот это я понимаю язык
17:58:34: писал книгу а по ней игра сгенирилась
17:59:01: а потом еще сделают плагинчик и она будет генерить фильм и сразу мультсериал

VD>Я на твой вопрос не отвечал. Именно это и забавно. Ты полимизировал со своими домыслами.

Коль уж ты его упомянул хочу спросить. У меня сложилось впечатление, что ты человек исключительно практичный:
не страдаешь излишним академизмом и не бросаешься на всё новое и блестящее. Тем не менее ты участвуешь в проекте
по интеграции Nemerle в студию и вообще интересуешься этим языком.
Это просто любопытство/куча свободного времени или ты действительно веришь что у него есть будущее?

Martha is a woman in the Vineyard.

The cask is either customs sealed, liable to tax or stolen goods. 

The prevailing wind is a direction that varies. 

The Old Ice House overlooks the Garden. 

A container is bursting if the total weight of things in it is greater than its breaking strain.

"Hello Wikipedia" by A Wikipedia Contributor

The story headline is "An Interactive Example".

The Living Room is a room. "A comfortably furnished living room."
The Kitchen is north of the Living Room.
The Front Door is south of the Living Room.

The insurance salesman is a man in the Living Room.
The description is "An insurance salesman in a tacky polyester suit.
He seems eager to speak to you." Understand "man" as the insurance salesman.

A briefcase is carried by the insurance salesman.
The description is "A slightly worn, black briefcase."
Understand "case" as the briefcase.

The insurance paperwork is in the briefcase.
The description is "Page after page of small legalese."
Understand "papers" or "documents" or "forms" as the paperwork.

Instead of listening to the insurance salesman:
say "The salesman bores you with a discussion of life insurance policies. From his briefcase he pulls some paperwork which he hands to you.";
now the player carries the insurance paperwork.

public delegate void InvokeDelegate();

public void Invoke(InvokeDelegate call)
{
    if (InvokeRequired)
        base.Invoke(call);
    else
        call();
}

string LongProcess(string text)
{
    Thread.Sleep(1000);
    return text;
}

void button1_Click(object sender, EventArgs e)
{
    string   text     = textBox1.Text;
    WaitForm waitForm = new WaitForm();

    new Thread(delegate() // 1
    {
        Exception exception = null;
        string    result    = null;

        try
        {
            result = LongProcess(text);
        }
        catch (Exception ex)
        {
            exception = ex;
        }

        Invoke(delegate() // 2
        {
            waitForm.Close();

            if (exception == null)
                textBox2.Text = result;
            else
                MessageBox.Show(exception.Message);
        });
    }).Start();

    waitForm.ShowDialog();
}

void FindAndExpand(string name)
{
    // алгоритм обхода дерева.

    // критерий поиска.
    if (node.Name == name)
    {
        // выполняем какие-то действия с найденным узлом.
    }
}

void FindAndExpand(Dictionary<string,MyClass> dic)
{
    // алгоритм обхода дерева.

    // критерий поиска.
    if (dic.ContainsKey(node.Name))
    {
        // выполняем какие-то действия с найденным узлом.
    }
}

void FindAndExpand(Predicate<NodeType> checkNode)
{
    // алгоритм обхода дерева.

    // критерий поиска.
    if (checkNode(node))
    {
        // выполняем какие-то действия с найденным узлом.
    }
}

string nodName = "...";

FindAndSetCurrent(delegate(NodeType node) { return node,Name == nodeName; }

Dictionary<string,MyClass> dic = ...;

FindAndSetCurrent(delegate(NodeType node) { return dic.ContainsKey(node,Name); }

abstract class FinderExpander
{
    protected abstract bool CheckNode(NodeType node);
    
    void FindAndExpand(Predicate<NodeType> checkNode)
    {
        // алгоритм обхода дерева.

        // критерий поиска.
        if (CheckNode(node))
        {
            // выполняем какие-то действия с найденным узлом.
        }
    }
}

bool GetNodes(List<NodeType> parents, List<NodeType> nodes, Predicate<NodeType> checkNode)
{
    foreach (NodeType node in nodes)
    {
        if (checkNode(node) || GetNodes(parents, node.Nodes, checkNode)
        {
            parents.Insert(0, node);
            return true;
        }
    }
}

void FindAndExpand(Predicate<NodeType> checkNode)
{
    List<NodeType> parents = new List<NodeType>();

    GetNodes(parents, _tree, checkNodes);
    
    // обходим дерево найдённых узлов parents и раскрываем все ветки.
}

FindAndExpand(checkNode : Predicate[NodeType]) : void
{
    def parents = List<NodeType>();

    def getNodes(nodes)
    {
        foreach (node in nodes)
        {
            when (checkNode(node) || GetNodes(node.Nodes)
            {
                parents.Insert(0, node);
                return true;
            }
        }
    }

    getNodes(_tree);
    
    // обходим дерево найдённых узлов parents и раскрываем все ветки.
}

// Java
int method(){
    int result;
    if (a < 5){
        result := 8;
    } else {
        result := 10;
    }
    return result;
}

"Smalltalk"
method
    | result |
    (a < 5) 
        ifTrue: [result := 8]
        ifFalse: [result := 10].
    ^result

// Java
int method(){
    int result;
    if (a < 5){
        return 8;
    } else {
        return 10;
    }
}

"Smalltalk"
method
    | result |
    (a < 5) 
        ifTrue: [^8].
        ifFalse: [^10].

method
    | result |
    result := #(1 2 3 4 5) select: [:each | each > 3].        "результат #(4 5)"
    ^result size    "Возврат из метода со значением 2"

method
    | result |
    #(1 2 3 4 5) select: [:each | ^10]        "результат #(4 5)"
    ^result size    "Не дойдем сюда никогда"

int method(){
    ArrayList result = new ArrayList();
    for (int elem=1; elem<=5; elem++) {
        boolean cond = elem > 3;        // специально выделил отдельную переменную - это "наш блок кода"
        if (cond)
            result.add(elem);
    }
    return result.size();        "результат 2"
}

int method(){
    ArrayList result = new ArrayList();
    for (int elem=1; elem<=5; elem++) {
        return 10;        // результат 10        - заменили старый блок кода на новый, теперь здесь уже имеется возврат из метода
        if (elem > 3)
            result.add(elem);
    }
    return result.size();    // сюда не попадем
}

block_with_nonlocal_return = Proc.new { return }
block_with_local_return = lambda { return }

irb(main):001:0> def sample(&block)
irb(main):002:1> block.call
irb(main):003:1> end
=> nil
irb(main):004:0> sample &Proc.new { return }
LocalJumpError: unexpected return
        from (irb):4
        from (irb):2:in `sample'
        from (irb):4
irb(main):005:0> sample &lambda { return }
=> nil
irb(main):006:0>

ADD UserInput TO RunningTotal
        ON SIZE ERROR DISPLAY "Error - new total too large for data-item."
        NOT ON SIZE ERROR ADD 1 TO IterCount END-ADD
END-ADD

VD>Я кого хочешь, в чем хочешь прощу, если мне обяснят суть этой вещи . Я уже видел подобный код в компиляторе, но так его и не понял к своему стыду. Поясни, плиз, его смысл.

// здесь функция parse недоступна
def parseComment() { parse() } // ошибка
def parse() { }
// локальные функции и значения доступны в коде следующем за их объявлением
// and как бы объединяет объявление нескольких локальных функций в одно объявление
// и они становятся доступными друг для друга
def parseComment() { parse() } // ok
and parse() { }

"Мой код работает!" --> ??? --> "Тесты не могут доказать отсутствие ошибок" --> ???

"Мой код работает!" -->
   "Мой код работает, если в нем нет ошибок" --> ???
      "Тесты не могут доказать отсутствие ошибок" --> ???

public interface IRecursible<T>: IEnumerable<IRecursible<T>>;

public static void ForEach<T>(T root, Action<T> action)
  where T: IRecursible<T>
{
  action(root);
  foreach(T child in root)
      ForEach(child, action);
}

class MyItem: IRecursible<MyItem>
{
  // тривиальная реализация интерфейса поскипана
    public string Name;
}

public static PrintAll(MyItem root)
{
  ForEach(root, delegate(MyItem t) { Console.WriteLine(t.Name);});
}

public static MyItem FindFirstStartingWith(MyTtem root, string start)
{
  ForEach(root, 
        delegate(MyItem t) 
        { 
            if (t.Name.StartsWith(start))
                super return t;
        } 
    );
}

public static bool FindFirst(T root, Predicate<T> condition, out T result)
  where T: IRecursible<T>
{
  
  if(condition(root))
    {
      result = root;
        return true;
    }
    foreach(T child in root)
    {
      if (FindFirst(child, condition, out result))
            return true;
    }
    return false;
}

public static MyItem FindFirstStartingWith(MyItem root, string start)
{
  MyItem result;
  if (FindFirst(root, delegate(MyItem t) { return t.Name.StartsWith(start);}, out result))
      return result
    else
        return null;
}

public static IEnumerable<T> IterateThrough<T>(T root)
    where T: IRecursible<T>
{
  yield return root;
    foreach(T child in root)
      foreach(T grandchild in IterateThrough(child))
          yield return grandchild;
}

public static void PrintAll(MyItem root)
{
  foreach(MyItem item in IterateThrough(root))
      Console.WriteLine(item.Name);
}
public static MyItem FindFirstStartingWith(MyItem root, string start)
{
  foreach(MyItem item in IterateThrough(root))
      if (item.Name.StartsWith(start)
            return item;
    return null;
}

1.1.4 stable rev. 510

FR>Язык с кучей слов давно есть называется forth

(+ (* 10 3) (* 4 5))

5 4 * 3 10 * +

SomeClass>>foo
...
a := [... ^1.]
...
b := ... (a value) ... "выражение, содержащего вызов блока с оператором возврата"
...

Methods with full blocks. Checks for methods that contain full blocks
or create a context with the thisContext
keyword. These methods are a place where
inefficiencies can creep in. For example, a
common reason why a full block is created is
because a block assigns a temporary
variable that is not defined inside the block. If
the temporary variable is only used inside
the block, then the definition of the
temporary should be moved inside the block.
The "move to inner scope" refactoring can be
used to correct this.

Refactory.Browser.BlockLintRule>>fullBlocks
    | detector |
    detector := self new.
    detector name: (#MethodWithFullBlocks << #browser >> 'Method with full blocks') asString.
    detector methodBlock: 
            [:context :result | 
            context compiledMethod withAllBlockMethodsDo: 
                    [:method | 
                    method needsHybridFrame
                        ifTrue: [result addClass: context selectedClass selector: context selector]]].
    ^detector

В мейнстриме, в основном, люди примитивные и ограниченные.

Я вот ничего оскорбительного в его словах не вижу

value := aDictionary at: aKey ifAbsent: [...обрабатываем ситуацию...].

V value = aMap.get(key);
if (value == null) {...обрабатываем ситуацию...}

> отлично, расскажите мне тогда, как избавиться от вызовов функций?

average (container) = sum(container) / num_elements(container);

average =: sum divided_by num_elements

FDS>Если речь идёт про тривиальное for (int i = 0; i < object.Length; i++) — то нет. Это, собственно, не дублирование кода. Не считаете же вы дублированием кода вызов одной и той же функции или применение одного и того же оператора

for (int i = 0; i < 10; i++) {
    ...    // здесь i не используется
}

timesRepeat(10) {
    ...
}

E>>dataRows = FastCsvParser.makeParser( parsingOptions ).load(
E>>    fileName + makeDataSpecificExtension( dataParams ) ).getAllRows();
E>>

using System;

class MainApp 
{
    public static int get(int x)
    {
    if (x > 5)
     {
     throw new System.NotSupportedException(); 
     }
    return x + 1;
    }
    
    public static void Main() 
    { 
        int x = get(10);
        Console.WriteLine(x);     
    }
}

Наконец на Таирии высадился известный космический шкипер,
неустрашимый Ао Мурбрас с двумя собаками в скафандрах, чтобы поохотиться
на загадочных тварей. Через пять дней он вернулся один в состоянии
крайнего изнеможения. По его словам, невдалеке от Таирии из туманности
вдруг вынырнуло множество чудовищ, опутавших щупальцами и его, и собак;
но отважный охотник выхватил нож и, размахивая им наудачу, освободился от
смертельных объятий, жертвой которых стали, однако, бедные псы. На
скафандре Мурбраса, изнутри и снаружи, остались следы борьбы, а в
нескольких местах к нему прилипли какие-то зеленые обрывки, словно от
волокнистых стеблей. Ученая комиссия, тщательно исследовав волоконца,
признала их фрагментами многоклеточного организма, хорошо известного на
Земле, а именно Solanum Tuberosum, клубненосного растительного организма
с перисто-раздельными листьями, привезенного испанцами из Америки в
Европу в XVI веке. Это известие взбудоражило всех, и трудно описать, что
началось, когда кто-то перевел ученые выводы на обычный язык и оказалось,
что Мурбрас принес на своем скафандре стебельки картофельной ботвы.
Доблестный шкипер, глубоко уязвленный предположением, будто в
течение четырех часов он сражался с картошкой, потребовал, чтобы комиссия
отказалась от своего клеветнического заключения, но ученые ответили, что
не вычеркнут ни единого слова. Волнения сделались всеобщими. Возникли
движения картофелистов и антикартофелистов, охватившие сначала Малую, а
потом и Большую Медведицу; противники осыпали друг друга самыми тяжкими
оскорблениями. Все это, однако, побледнело в сравнении с тем, что
случилось, когда к спору подключились философы. Из Англии, Франции,
Австралии, Канады и Соединенных Штатов съезжались самые выдающиеся
теоретики познания и представители чистого разума, и результат их усилий
был поистине поразительным.
Физикалисты, исследовав вопрос всесторонне, заявили, что если тела А
и В движутся, то дело условности — говорить, движется ли А относительно В
или В относительно А. Так как движение — вещь относительная, с одинаковым
правом можно сказать, что человек движется относительно картофеля или же
что картофель движется относительно человека. Поэтому вопрос о том, может
ли картофель двигаться, становится бессмысленным, а вся проблема —
мнимой, то есть несуществующей.
Семантики заявили, что все зависит от того, как понимать слова
"картофель", "может" и "двигаться". Так как ключом является модальный
глагол "мочь", то его надлежит тщательно исследовать. Затем они
приступили к созданию Энциклопедии Космической Семасиологии, первые
четыре тома которой посвящались модальным значениям глагола "мочь".
Неопозитивисты заявили, что непосредственно нам даны не пучки
картофеля, а пучки непосредственных ощущений; затем они создали
логические символы, означающие "пучок картофеля" и "пучок ощущений",
построили специальное исчисление высказываний из сплошных алгебраических
знаков и, исписав море чернил, пришли к математически точному и,
несомненно, верному выводу, что 0==0.
Томисты заявили, что Бог создал законы природы, чтобы при случае
творить чудеса, ибо чудо есть нарушение законов природы, а где нет
законов, там и нарушать нечего. В данном случае картофель будет
двигаться, если на то будет воля Предвечного; но неизвестно, не уловка ли
это проклятых материалистов, стремящихся подорвать авторитет церкви, так
что нужно подождать решения Высшей Ватиканской Коллегии.
Неокантианцы заявили, что все вещи суть творения духа, объективному
познанию недоступные; если у вас появилась идея движущегося картофеля, то
движущийся картофель будет существовать. Однако это только первое
впечатление, ибо дух наш столь же непознаваем, как и его создания; так
что, значит, ничего не известно.
Холисты-плюралисты-бихевиористы-физикалисты заявили, что, как
известно из физики, закономерность в природе бывает только
статистической. Подобно тому как нельзя вполне точно предугадать путь
отдельного электрона, так нельзя предсказать в точности, как будет вести
себя отдельная картофелина. До сих пор наблюдения показывали, что
миллионы раз человек копал картошку; но не исключено, что один раз из
миллиарда случится наоборот и картошка будет копать человека.
Профессор Урлипан, одинокий мыслитель школы Расселла и Рейхенбаха,
подверг все эти высказывания уничтожающей критике. Он утверждал, что
человек не имеет никаких непосредственных ощущений, ведь он ощущает не
словесное выражение образа стола, а самый стол; а так как, с другой
стороны, известно, что о внешнем мире ничего не известно, то не
существует ни внешних вещей, ни чувственных ощущений. "Нет вообще ничего,
— заявил профессор Урлипан, — а кто думает иначе, тот заблуждается". Так
что о картофеле ничего нельзя сказать, хотя и по совершенно иной причине,
чем считают неокантианцы.

Как ты думаешь, почему считается некорректным приём дискуссии, называемый "апелляцией к опыту"? Никогда не задумывался?

value := aDictionary at: aKey ifAbsent: [...обрабатываем ситуацию...].

V value = aMap.get(key);
if (value == null) {...обрабатываем ситуацию...}

Database accessibility
For example, using Nemerle macros for SQL you can write:

ExecuteReaderLoop ("SELECT firstname, lastname FROM employee WHERE firstname = $myparm", dbcon,
{
  System.Console.WriteLine ("Name: {0} {1}", firstname, lastname) 
});

instead of

string sql = "SELECT firstname, lastname FROM employee WHERE firstname = :a";
NpgsqlCommand dbcmd = new NpgsqlCommand (sql, dbcon, dbtran);
dbcmd.Parameters.Add("a", myparm);

NpgsqlReader reader = dbcmd.ExecuteReader();

while(reader.Read()) {
  string firstname = reader.GetString (0);
  string lastname = reader.GetString (1);
  System.Console.WriteLine ("Name: {0} {1}", firstname, lastname) 
}
reader.Close();
dbcmd.Dispose();

ExecuteReaderLoop ("SELECT firstname, lastname FROM employee WHERE firstname = $myparm", dbcon,
{
  System.Console.WriteLine ("Name: {0} {1}", firstname, lastname);
    return;
});

int method(){
    if (a < 5) {
        return 8;
    } else
        return 10;
    }
}

void if(boolean condition, block trueBlock, block falseBlock);

int method(){
    if(a < 5, {return 8}, {return 10});
}

method
    (a < 5) ifTrue: [^8] ifFalse: [^10].

bool SearchForItem(IEnumerable<MyClass> items)
{
    foreach(MyClass item in items)
    {
        if (item.A = 5)
            return true; // нашли! нелокальный возврат.
    }
    return false;
}

bool SearchForItem(IEnumerable<MyClass> items)
{
  bool result = false;
    foreach(MyClass item in items)
    {
        if (item.A = 5)
        {
            result = true; // нашли! 
            break; // локальный возврат
        }
    }
    return result;
}

1.1.4 stable rev. 510

Matching is a way of destructuring complex data structures, especially variants.