IEIEIEIO

[myst]

Второй пример механически переделан из первого с использованием дополнительной переменной.

Почему в первом примере один цикл, а во втором цикл в цикле?

[Demetrius]

Видимо, идея состояла в том, чтобы интегрировать код, написанный ранее на фортране, в единый проект, рассчитанный на работу под  JVM.

Это как?

-1.
Понятно жеж: библиотека на фортране (скорее всего все функции оформляются как статические методы какого-то класса).

Другое дело, что это будет ужасно... И весь код с использованием этой библиотеки будет ужасен. Но - вполне осуществимо.

[myst]

Понятно жеж: библиотека на фортране (скорее всего все функции оформляются как статические методы какого-то класса).

Мне ничо не понятно. Они переписывать на жабу собрались или байндить? Во втором случае goto явно не нужен. А если переписывать, то нахрена, если есть трансляторы в байт-код?

[addewyd]

Да нормальный ие. а в лингворум оперой хожу. на хабр хромом. на льпари фф. тормозная она. но я тоже тормоз. мне лениво.

[Drundia]

Если сайтоверстатель создает сайт, соответствующий современным стандартам, но неработоспособный на браузере, совместимом лишь на уровне html2, то как это называется?

А мой 5,25-дюймовый флоппик отказывается блю-рей-диски читать! Как это называется?

[myst]

Да нормальный ие. а в лингворум оперой хожу. на хабр хромом. на льпари фф. тормозная она. но я тоже тормоз. мне лениво.

addewyd, не онтопьте.

[addewyd]

троллю, че...

[addewyd]

а, форекслуб еще в FF

[addewyd]

Полгода там не появлялся.
Там интересно.
не хуже лингвофорума

[Drundia]

Хорошо, код был создан за минуту из готового примера открытия файла. Конечно, я мог бы создать полноценный класс, в нем статический метод, возвращающий объект Writer, готовый для перезаписи файла, затем определил макрос для доступа к этому методу, но зачем? Моей целью было лишь продемонстрировать возможность записи слишком длинного фрагмента кода с помощью макроса. В реальной программе я вряд ли стал бы использовать приведенный пример.

Эти Ваши слова ещё раз подтверждают, что Вы не понимаете всей пагубности того макроса. А ведь он как будто списан со страницы книги «Как нельзя писать макросы!». Я Вам советую попользоваться такими макросами всласть. Пишите их как можно больше, пользуйтесь ими при первой возможности. Для обучения нет ничего эффективнее  хорошего удара граблями по лбу.

А в плюсах такую хрень мы реализуем инлайновыми функциями.

[Drundia]

goto они тоже не добавили специально. Что сделало адаптацию сишного кода для джавы нетривиальной задачей.

Нас учили, что goto — плохая манера. Из вложенных циклов выходить дополнительными переменными, что, впрочем, показывает убогость языка, поэтому в PHP имеем просто аргумент к брейку.

[myst]

А в плюсах такую хрень мы реализуем инлайновыми функциями.

Инлайнить должен компилятор, что он и делает.

[Drundia]

Пример кода, в котором использование перехода я считаю оправданным:

Код Выделить Развернуть


procedure tgraptCharset.AddSymbolEncoding(code,charset, symbol,alphabet:string);
label add_symbol;
var i,j:integer;
    gs:graptstr;
begin
   //if encoding charset with such name does not exist then create it:
    for i:=0 to length(encodings)-1 do
if encodings[i].title=charset then goto add_symbol;
    i:=length(encodings);
    setlength(encodings,i+1);
    encodings[i].title:=charset;
    encodings[i].code:=nil;
    encodings[i].grapt32:=nil;
add_symbol:
   //prepare gs:
   gs:=fromGrapt7(grapt7prefixe+alphabet+grapt7delimiter+symbol);//gs:=gettranslit(symbol,alphabet);
   //add pair grapt32&code:
   j:=length(encodings[i].grapt32);
   setlength(encodings[i].grapt32,j+1);
   setlength(encodings[i].code,j+1);
   encodings[i].grapt32[j]:=gs;
   encodings[i].code[j]:=code;
end;


Написать по-нормальному религия не позволяет?

Код Выделить Развернуть


procedure tgraptCharset.AddSymbolEncoding(code,charset, symbol,alphabet:string);
label add_symbol;
var i,j:integer;
    gs:graptstr;
begin
   //if encoding charset with such name does not exist then create it:
    for i:=0 to length(encodings)-1 do
if encodings[i].title=charset then begin
   //prepare gs:
   gs:=fromGrapt7(grapt7prefixe+alphabet+grapt7delimiter+symbol);//gs:=gettranslit(symbol,alphabet);
   //add pair grapt32&code:
   j:=length(encodings[i].grapt32);
   setlength(encodings[i].grapt32,j+1);
   setlength(encodings[i].code,j+1);
   encodings[i].grapt32[j]:=gs;
   encodings[i].code[j]:=code;
end;
    i:=length(encodings);
    setlength(encodings,i+1);
    encodings[i].title:=charset;
    encodings[i].code:=nil;
    encodings[i].grapt32:=nil;
end;


PS: Подозреваю, что слегка запутался в вермишели...
PPS: Также подозреваю, что оба варианта не делают того, что от них требуется...

[myst]

Написать по-нормальному религия не позволяет?

В Вашем коде ошибка: когда кодировки нет в списке, она добавляется, но символ в неё не добавляется.

PS: Подозреваю, что слегка запутался в вермишели...

Угу. Но Python считает, что это образец качественного кода и оправданного goto.

[Drundia]

В Вашем коде ошибка: когда кодировки нет в списке, она добавляется, но символ в неё не добавляется.

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

[myst]

PPS: Также подозреваю, что оба варианта не делают того, что от них требуется...

А вот это, хрен его знает.

[myst]

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

Куда туда?

[Drundia]

Фе, вермишель!

Код Выделить Развернуть


   10 INPUT A,B,C
      IF(A=0 AND B=0 AND C=0) GOTO 50
      IF(A=0 OR  B=0 OR  C=0) GOTO 90
      S = (A + B + C) / 2.0
      AREA = SQRT( S * (S - A) * (S - B) * (S - C))
      PRINT A,B,C,AREA
      GOTO 10
   50 PRINT "Bye!"
      END
   90 PRINT "Error!"
      END

СтруктурностьЪ!

Код Выделить Развернуть


L=10
DO
   WHILE L=10
      INPUT A,B,C
      IF(A=0 AND B=0 AND C=0) THEN
         L=50
         EXIT WHILE
      END IF
      IF(A=0 OR  B=0 OR  C=0)  THEN
         L=90
      END IF
      IF L=10 THEN
         S = (A + B + C) / 2.0
         AREA = SQRT( S * (S - A) * (S - B) * (S - C))
         PRINT A,B,C,AREA
      END IF
  WEND
  IF L=50
      PRINT "Bye!"
      EXIT LOOP
  END IF
  IF L=90
      PRINT "Error!"
      EXIT LOOP
   END IF
LOOP


Моя в басиках не сильна, но на нормальном языке это пишется примерно так:

Код Выделить Развернуть


int main (void){
  double a,b,c,s,area;
  while (1){
    cin >> a >> b >> c;
    if (a==0.0 && b==0.0 && c==0.0){
      cout << "Bye!";
      return 0;
    }
    if (a==0.0 || b==0.0 || c==0.0){
      cout << "ЕГГОГ!!!";
      return 1;
    }
    s = (a+b+c)/2.0;
    area = sqrt(s*(s-a)*(s-b)*(s-c));
    cout << a << b << c << area;
  }
}


PS: Подозреваю, что в бейсике без лишнего цикла тоже так можно.

[Drundia]

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

Куда туда?

После encodings.code[j]:=code; — там где в вермишельном коде конец функции, а в нормальном конец ифа.

[myst]

После encodings.code[j]:=code; — там где в вермишельном коде конец функции, а в нормальном конец ифа.

Дык, это ничего не исправляет.

Код Python'а берёт кодировку из списка по имени; если кодировки с таким именем нет, добавляет новую кодировку в список; после чего добавляет символ кодировку. То есть символ в кодировку добавляется в любом случае. А в Ваш код добавляет символ только в существующую кодировку.

[Drundia]

Код Выделить Развернуть


{
XXXX x = new XXXX(args);
l1:  if(x.a()) goto l2;
      if(x.b()) goto l3;
      goto end;
l2:  if(x.c()) goto l1;
      if(x.d()) goto l3;
      goto end;
l3:  if(x.e()) goto l1;
      if(x.f()) goto l2;
end:
}


Lua имеет такую крутую штуку, как tailcall.

Код Выделить Развернуть


function x.l1()
  if (x.a()) then return x.l2(); end;
  if (x.b()) then return x.l3(); end;
end;

function x.l2()
  if (x.c()) then return x.l1(); end;
  if (x.d()) then return x.l3(); end;
end;

function x.l3()
  if (x.e()) then return x.l1(); end;
  if (x.f()) then return x.l2(); end;
end;

x.l1();


[addewyd]

Ну вот щас меряццо будем кодами.

[Drundia]

После encodings.code[j]:=code; — там где в вермишельном коде конец функции, а в нормальном конец ифа.

Дык, это ничего не исправляет.

Код Python'а берёт кодировку из списка по имени; если кодировки с таким именем нет, добавляет новую кодировку в список; после чего добавляет символ кодировку. То есть символ в кодировку добавляется в любом случае. А в Ваш код добавляет символ только в существующую кодировку.

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

Надо добавить в мою функцию рекурсивный вызов самой себя после создания кодировки. А вообще, каждый раз искать кодировку по имени линейным поиском.....

[Python]

Ваша проблема в том, что Вы недопонимаете концепцию модульности.

Вы, как всегда, излишне лаконичны.

[myst]

Ваша проблема в том, что Вы недопонимаете концепцию модульности.

Вы, как всегда, излишне лаконичны.

Вы, как всегда, пренебрегаете RTFM'ом.