Здравствуйте, PC_2, Вы писали:

PC_>Здравствуйте, batu, Вы писали:

PC_>>>Код программы.
B>>издеваешься? Три вложеных цикла от A до Z и коньнкцию сделай

PC_>

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

Здравствуйте, KipDblK, Вы писали:

KDK>Здравствуйте, batu, Вы писали:

B>>>>да цикл For, Или я вопрос не понял
PC_>>>Код программы.
B>>издеваешься? Три вложеных цикла от A до Z и коньнкцию сделай

KDK>Поздравляю. т ыне прошел проверку на краткость и понятность кода по версии РС_2.
KDK>Вот если бы это было бы что-то типа

KDK>!a=AZ
KDK>\?3,x=x^\~a

KDK>Вот это простой и понятный код
Значит не судьба

Здравствуйте, PC_2, Вы писали:

PC_>Здравствуйте, batu, Вы писали:

PC_>>>Код программы.
B>>издеваешься? Три вложеных цикла от A до Z и коньнкцию сделай

PC_>

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

У меня 2 вложенных цикла было пока не начал зиповать исходники, а так же и вовсе без циклов

Здравствуйте, samius, Вы писали:

S>У меня 2 вложенных цикла было пока не начал зиповать исходники, а так же и вовсе без циклов

решай новую задачу

Здравствуйте, Mamut, Вы писали:

M>Наконец-то нашел то, что искал давно: http://www.frank-buss.de/challenge/ Решение этой задачи на J занимает ровно одну строчку в 6 символов. Остальные можешь найти там же на странице.
M>Мы готовы увидеть твой суперлаконичный и сверхпонятный язык хотя бы на этой задаче.

Забавно, что питоновское решение, при портировании на немерл, сократилось на треть

#pragma indent
module Program
  Main(args : array [int]) : void
    def count(le, ri)
      | (0, 0) => 1
      | (0, _) => ri + 1 + count(le, ri - 1)
      | (_, 0) => count(ri, le)
      | _      => count(le, ri - 1) + le + 1 + ri * (le + 1) + count(le - 1, 0)
    System.Console.WriteLine("Number of triangles: $(count(args[0], args[1]))");

Здравствуйте, Mamut, Вы писали:

M>J решил не хитростью, а стройностью концепций.

проревьювь нормально решение.
Там обычная формула для подсчета всех возможных комбинаций без комбинирования.
Другие же языки пытаются комбинаторно решать задачу.

M>>J решил не хитростью, а стройностью концепций.

PC_>проревьювь нормально решение.
PC_>Там обычная формула для подсчета всех возможных комбинаций без комбинирования.

Именно

PC_>Другие же языки пытаются комбинаторно решать задачу.

Это проблемы других языков

Здравствуйте, Mamut, Вы писали:

M>Это проблемы других языков

Тоесть ты хочешь сказать на других языках нельзя записать эту формулу ?

Здравствуйте, kochetkov.vladimir, Вы писали:

KV>

KV>#pragma indent
KV>module Program
KV>  Main(args : array [int]) : void
KV>    def count(le, ri)
KV>      | (0, 0) => 1
KV>      | (0, _) => ri + 1 + count(le, ri - 1)
KV>      | (_, 0) => count(ri, le)
KV>      | _      => count(le, ri - 1) + le + 1 + ri * (le + 1) + count(le - 1, 0)
KV>    System.Console.WriteLine("Number of triangles: $(count(args[0], args[1]))");
KV>

Что это за "решение" ?
На вход должен подаваться набор линий на каждой находится несколько точек.

лижбы запостить ...

M>>Наконец-то нашел то, что искал давно: http://www.frank-buss.de/challenge/ Решение этой задачи на J занимает ровно одну строчку в 6 символов. Остальные можешь найти там же на странице.
M>>Мы готовы увидеть твой суперлаконичный и сверхпонятный язык хотя бы на этой задаче.

KV>Забавно, что питоновское решение, при портировании на немерл, сократилось на треть

KV>

KV>#pragma indent
KV>module Program
KV>  Main(args : array [int]) : void
KV>    def count(le, ri)
KV>      | (0, 0) => 1
KV>      | (0, _) => ri + 1 + count(le, ri - 1)
KV>      | (_, 0) => count(ri, le)
KV>      | _      => count(le, ri - 1) + le + 1 + ri * (le + 1) + count(le - 1, 0)
KV>    System.Console.WriteLine("Number of triangles: $(count(args[0], args[1]))");
KV>

ПМ рулит

С ним все программы становятся одинаковыми

-module(program).
-export([count/2]).

count(0, 0)   -> 1;
count(0, ri)  -> ri + 1 + count(le, ri - 1);
count(le, 0)  -> count(ri, le);
count(le, ri) -> count(le, ri - 1) + le + 1 + ri * (le + 1) + count(le - 1, 0).

Здравствуйте, PC_2, Вы писали:

PC_>Что это за "решение" ?
PC_>На вход должен подаваться набор линий на каждой находится несколько точек.

Я вроде к Мамуту обращался, не?

PC_>лижбы запостить ...

Лишь бы встрять в чужой разговор?

M>>Это проблемы других языков

PC_>Тоесть ты хочешь сказать на других языках нельзя записать эту формулу ?

Напиши. Короче, чем в J не получится все равно.

Ну или реши комбинаторно, как решали другие. Вот, для затравки, короткие версии

Автор: Mamut
Дата: 22.02.11

. Можно еще сократить если использовать однобуквенные идентификаторы, но не суть важно:

Здравствуйте, Mamut, Вы писали:

это не версии это хз что.
5 минут назад ты утверждал что J концептуально решил задачу а не формулой
Так вот потрать еще 5 минут и подумай, что на вход должен подаваться массив строк с точками, тогда поговорим

Здравствуйте, kochetkov.vladimir, Вы писали:

KV>Здравствуйте, PC_2, Вы писали:

PC_>>Что это за "решение" ?
PC_>>На вход должен подаваться набор линий на каждой находится несколько точек.

KV>Я вроде к Мамуту обращался, не?

PC_>>лижбы запостить ...

KV>Лишь бы встрять в чужой разговор?

Ты вроде в ветке моего авторства, не ?

Здравствуйте, Mamut, Вы писали:

M>Напиши. Короче, чем в J не получится все равно.

Короче не получится, а вот понятней, запросто

m/2*n*(m+n)

11 символов

Здравствуйте, PC_2, Вы писали:

PC_>Ты вроде в ветке моего авторства, не ?

У тебя бесподобная аргументация А твоя ветка на форуме, который я администрирую, что дальше?

PC_>это не версии это хз что.
PC_>5 минут назад ты утверждал что J концептуально решил задачу а не формулой
PC_>Так вот потрать еще 5 минут и подумай, что на вход должен подаваться массив строк с точками, тогда поговорим

На вход подается две цифры. Хочется увидеть решение комбинаторно.

KV>>

KV>>#pragma indent
KV>>module Program
KV>>  Main(args : array [int]) : void
KV>>    def count(le, ri)
KV>>      | (0, 0) => 1
KV>>      | (0, _) => ri + 1 + count(le, ri - 1)
KV>>      | (_, 0) => count(ri, le)
KV>>      | _      => count(le, ri - 1) + le + 1 + ri * (le + 1) + count(le - 1, 0)
KV>>    System.Console.WriteLine("Number of triangles: $(count(args[0], args[1]))");
KV>>

PC_>Что это за "решение" ?
PC_>На вход должен подаваться набор линий на каждой находится несколько точек.

Тебе никто ничего не должен. Задача сводится к:

Из двух вершин треугольника исходят линии, пересекующие треугольник по стороне, противоположной вершине. На сколько треугольников будет разделен исходный треугольник?

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

Здравствуйте, kochetkov.vladimir, Вы писали:

KV>Здравствуйте, PC_2, Вы писали:

PC_>>Ты вроде в ветке моего авторства, не ?

KV>У тебя бесподобная аргументация А твоя ветка на форуме, который я администрирую, что дальше?

Пока ты не начал опять рассуждать о модераторском произволе, поясню: то, что ты являешься автором этой ветки не дает тебе в ней практически никаких прав по сравнению с любыми другими участниками. Так же как то (к примеру), что я являюсь администратором этого сервера, не дает мне каких-либо дополнительных прав, которые я могу использовать в качества аргументов в дискуссии. Как автор этой темы, ты имеешь полное (и единственное) право ожидать, что люди будут здесь обсуждать лишь интересующие тебя вопросы. Но влезая с неконструктивной критикой, обусловленной тем, что ты не разобрался ни в алгоритмической составляющей задачи, ни в языке, на котором было предложение решение, ты будешь хоронить свои ожидания все глубже и глубже.

Задача найденная Мамутом действительно интересна в качестве разминки на перекур, безотносительно твоей темы. Если ты против ее обсуждения здесь, поставь бомбу на его сообщение "выделить в отдельную ветку" и ее авторство перейдет к Мамуту после модерирования. Если не против, то изволь не влезать в обсуждения того, в чем ты не потрудился даже разобраться, прежде чем подвергать критике ответы, которые предназначались не тебе.

Здравствуйте, Mamut, Вы писали:

M>На вход подается две цифры. Хочется увидеть решение комбинаторно.

А зачем, ну ультра прогрессоивном языке РС мегапонятный код даже для третеклассников в 11 символов
А у вас гдето на глаз килобайт