for (x in y) 
  expr

for x in y do
  expr

if (x > y)
  expr
else
  expr

if x > y then
  expr
else
  expr

M>Так паскаль получится? Или Ada Но я только "за" :w

for x in y do
  expr

for (x in y)
  expr

for x in y do 
  expr;

for x in y do  {
  expr1;
  expr2
}

for a < b {
    a *= 2
}

for (a < b) {
    a *= 2
}

-- Пустая инструкция
null;

-- Присваивание
Result := Expression;

-- Блоки
Calculation_Of_Roots: -- Не обязательно
declare
  D: Float;
begin
  D := B*B - 4*a*C;
  exit Calculation_Of_Roots when D < 0;
  -- ...
end Calculation_Of_Roots; -- Если не указано имя блока, то можно не указывать

-- Условный оператор
if Something_Interesting then
  Do_Interesting_Job;
elsif Somethig_Groove
  Do_Groove_Job;
end if;

-- Выбор
case Letter is
  when 'a'..'z'| 'A'..'Z' => Put ("letter");
  when '0'..'9'           => Put ("digit! Value is"); Put (letter);
  when '''' | '"' | '`'   => Put ("quote mark");
  when '&'                => Put ("ampersand");
  when others             => Put ("something else");
end case;

-- Циклы
loop
  Inc_Counter;
end loop;

while I_am_alive loop
  Please_Kill_Me;
  exit when Reguest_Declined;
end loop;

for  I in Array'Range loop
  Process(Array[I]);
end loop;

Outer_Loop:
loop
  Do_Important_Job;
  loop
    Do_Important_Job;
    exit Outer_Loop when Am_I_Tired;
  end loop;
end loop Outer_Loop;

-- Исключения
declare
  Abort: exception;  
begin
  raise Abort;
exception
  when Abort => Put("Abort exception");
  when others => Put("General exeption");
end;

_FR>Во-первых, откуда знаешь про "ни разу", может не все ошибки ещё нашёл

_FR>хотя несколько раз такие ошибки (с забытыми скобками и сдвинутым текстом) встречал у много более опытных и не менее, чем я, скурпулёзных программистов

_FR>В-третьих, неужели ты действительно не веришь, что таких ошибок не может быть? А раз они могут быть, то чем плох такой способ борьбы с ними?

when (a)
  b();

match (expr) {
  | x => ...
  | _ => ...
}

_FR>>Во-первых, откуда знаешь про "ни разу", может не все ошибки ещё нашёл

if(blablabla)
  aha();
  oxo();

_FR>>хотя несколько раз такие ошибки (с забытыми скобками и сдвинутым текстом) встречал у много более опытных и не менее, чем я, скурпулёзных программистов

_FR>>В-третьих, неужели ты действительно не веришь, что таких ошибок не может быть? А раз они могут быть, то чем плох такой способ борьбы с ними?

VD>when (a)
VD>  b();

ВВ>match (expr) {
ВВ>  | x => ...
ВВ>  | _ => ...
ВВ>}
ВВ>

def z = match (expr)
         | x => x + y
         | _ => f(expr);

def z = match (expr) | x => x + y | _ => f(expr);

ВВ>С практической т.з. это все фигня, но... гм... с эстетической...

_FR>if(blablabla)
_FR>  aha();
_FR>  oxo();
_FR>

_FR>находил и через несколько месяцев просле того, как они были закомичены

def x = if (condition) { a } else { b };

ВВ>Честно, мне сложно представить, зачем кому-то в функциональном языке потребовались такие макросы

for (mutable i = 0; i < 100; i++)
  ...

VD>>Ты же вроде про круглые говорил. Или ты решил все же тему махнуть?

ВВ>Ну раз вы начали тут про фигурные флеймить, то я-то чем хуже...

match (expr)
{
  | x => x + y
  | _ => expr1; expr2;
}

public override ToString() : string
{
  | VariantOptionA(a) => $"VariantOptionA($a)"
  | VariantOptionB(b) => $"VariantOptionB($b)"
}

public override ToString() : string
{
  match (this)
  {
    | VariantOptionA(a) => $"VariantOptionA($a)"
    | VariantOptionB(b) => $"VariantOptionB($b)"
  }
}

ВВ>Ага, лексический скоп, в котором нельзя объявлять имена. Фишку понял

for(;;)
{
    i++;
}

for(;;)
    i++;

for(;;) {
    i++;
}

for(;;)
{
    i++;
}

ВВ>>Кстати, я никогда это не понимал. Все же просто, обычная последовательность операций, какая разница "в строчку" они записаны или "в столбик". Как и с оператором ассайнмента. Почему плохо то, что он возвращает значение?

VD>Ну, тут понимание или есть сразу, или его нет вообще .

ВВ>>mutable не трожь

for x in y do
  expr

VD>Вы еще Лисп не видели, коллега! (с)

ВВ>> Тот же шарп воспроизводит его практически один-в-один (Немерле — в меньшей степени), и часто получается лес скобочек, причем с совершенно разной семантикой. И ведь в принципе можно же вполне уменьшить их количество

VD>when (a)
VD>  b();
VD>

if (a)
{
  DevExpressHlp.ShowUserControlAsForm(new ScheduleEditor(dbConnection, typeBox, routeBox, jointBox,
    ref editScheduleId, markerIds, null, true));
}

if (a)
  DevExpressHlp.ShowUserControlAsForm(new ScheduleEditor(dbConnection, typeBox, routeBox, jointBox,
    ref editScheduleId, markerIds, null, true));

ВВ>for (x in y) 
ВВ>  expr

ВВ>for x in y do
ВВ>  expr

for x in (y)
  exprs

ВВ>if (x > y)
ВВ>  expr
ВВ>else
ВВ>  expr

ВВ>if x > y then
ВВ>  expr
ВВ>else
ВВ>  expr

if ( x>y ) then (expr) else (expr);

ВВ>О, круто

let func = function
  | 2, _  -> 0
  | 3, 1  -> 1
  | x, y  -> x * y

let func x y = match x, y with
  | 2, _  -> 0
  | 3, 1  -> 1
  | x, y  -> x * y

#   = пробел
# … = таб
def foo():
  def bar():
  …print "валидный таб"

  def zar():
  ……print 'валидный "лишний" таб'

def func(x, y) { | 2, _ -> 0 | _ -> ... }

for x in y :
  expr

if x > y :
  expr
else :
  expr

T>Текст не может выглядеть одинаково в разных шрифтах, Василий, ты чего. Всё равно что сказать, что веб-страницы будут выглядеть одинаково с разными CSS.

void SomeFunction(type param1,
                  type param2,
                  type param3);

if x :
  expr
else :
  expr

if (x)
  expr
else
  expr

let func(x, y) = | 2, 1 -> ... | 3, 2 -> ...

ВВ>>Но про фигурные тоже можно

T>Я ж говорю — субъектвино. Вот я за минимализм до предела. Но семейство APL уже за пределом А кому-то привычно это "лучше". А кому-то "лучше" это невыразимая выразительность, тут лисп непобедим. Если б AST-редактор (который избавит лисп от скобок), то это будет ещё и самый минималистический синтаксис.

2 + 2 == 4 ?
  cout "Hey, this is bug!" :
  cout "Test passed"

x
-x //здесь два выражения, или x - x?

x
(x, y) //здесь создается кортеж или вызывается функция x?

x
[y] //здесь создается список или это индексер?

T>Если приплетать сюда кортеж *с конструктором: скобки*, то в каком-то смысле синтаксис вызова функции становаится "name" args, именно без скобок.

ВВ>>>>Но про фигурные тоже можно

ВВ>>Странный пример. if убрал, else оставил.

T>| это бинарный оператор в некоторых языках. Пример странный, согласен. я над ним не долго думал

for x in y do
  expr

if x :
  expr
else //двоеточия нет
  exp 

if x : {
  expr;
  expr
}
else
  expr

T>Я это всё понимаю тоже

if bar(arg) || foo(arg2, x::xs) : fooBar(x, arg::arg2) : barFoo(xs, arg2::arg)

ВВ>>for x in y do
ВВ>>  expr
ВВ>>

T>(тут я схитрил) на самом деле визуальную неоднозначность убирает левый операнд. "print — x" уже однозначно понятен только парсеру.

var x = if cond { y } else { y2 }

var x = if (cond) y else y2

if bar(arg) || foo(arg2, x::xs) : fooBar(x, arg::arg2) _ barFoo(xs, arg2::arg)

if bar(arg) || foo(arg2, x::xs) ? fooBar(x, arg::arg2) : barFoo(xs, arg2::arg)

ВВ>>А запятая зачем?

var x = {
    var tmp = 2;
    tmp * 2
 }

var y = 3

var f = x -> { x * x; };

var f = x -> { x * x }

let f = x -> x * x (* это нормально, do не нужен *)

let f2 = x -> { x * x } (* и тут тоже не нужен *)

let f3 = x -> {
  var tmp = 2
  do (x * x, tmp) (* а вот тут нужен *)
}

do f3(3)

do x = y

do -x

var res = if cond exp /*первый конфликт*/ else expr + if ... /*второй конфликт*/