Задачка архитекторная.

[valexey]

Это уже вопрос архитектуры, кстати. По сути имеем дилемму – строгая у нас будет типизация, или же не строгая.

[AlexIljin]

Это уже вопрос архитектуры, кстати. По сути имеем дилемму – строгая у нас будет типизация, или же не строгая.

Я решил сделать строгую типизацию (строгость снимается тривиально, а вот добавить туда, где её не было изначально, сложнее). Язык - XDS Oberon-2, используемые модули In и Out - "дубовые" (можно и на WinApi-консоль перейти, это не сложно).

[AlexIljin]

Теперь можно и на чужие решения поглядеть. : )

[valexey]

Теперь можно и на чужие решения поглядеть. : )

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

[valexey]

Ссыль уехала в личку.
Ждем кого-нибудь еще :-) Я кстати, тоже думаю попробовать.  В чужие решения я не смотрел, там страшно :-)

[Илья Ермаков]

Не публикуйте пока. Будет ишшо пример, на КП

[valexey]

Угу. Жду как минимум понедельника (вечера понедельника, утром обычно мне хочется на работу, и я больше ни о чем думать не могу :-) ).

По запросу могу и ещё резину потянуть :-)

[AlexIljin]

Добавлены и поправлены комментарии, плюс исправлена константа MaxHeight в процедуре LoadTable.

[Geniepro]

Добавлены и поправлены комментарии, плюс исправлена константа MaxHeight в процедуре LoadTable.

Мда, программа на обероне-2 внушаит -- 383 locs.
Мои два решения имеют 118 locs (первое) и 180 locs (с проверкой циклов в формулах)

[valexey]

А если в лексемах подсчитать? :-)

[AlexIljin]

Мда, программа на обероне-2 внушаит -- 383 locs.

Я 380 насчитал.

[Geniepro]

В лексемах слабо. Решил сравнить в размере конкретно кода, сжатого zip-ом.
Все комментарии и пустые строки выкинул, естественно. Выравнивание кода сохранил.

Код: [Выделить]

Оберон-2 вариант:     zip: 2565 байт, распакованный вид: 10362 байт
Haskell, 1-й вариант: zip: 1591 байт, распакованный вид:  4821 байт
Haskell, 2-й вариант: zip: 2189 байт, распакованный вид:  7795 байт

[Geniepro]

Мда, программа на обероне-2 внушаит -- 383 locs.

Я 380 насчитал.

Да, я позже пересчитал строки, тоже 380 вышло, но поправить пост уже не смог. ((

[Geniepro]

В лексемах слабо. Решил сравнить в размере конкретно кода, сжатого zip-ом.
Все комментарии и пустые строки выкинул, естественно. Выравнивание кода сохранил.

Код: [Выделить]

Оберон-2 вариант:     zip: 2565 байт, распакованный вид: 10362 байт
Haskell, 1-й вариант: zip: 1591 байт, распакованный вид:  4821 байт
Haskell, 2-й вариант: zip: 2189 байт, распакованный вид:  7795 байт

Ну, в общем-то это и на глаз заметно, что строки на хаскелле заметно длиннее, чем на обероне или сях. Это тоже влияет на их количество...

[Geniepro]

Ну, в общем-то это и на глаз заметно, что строки на хаскелле заметно длиннее, чем на обероне или сях. Это тоже влияет на их количество...

Решил уточнить средние длины строк решений (без комментариев и прочего ненужного).
На Хаскелле вышло 39 и 41 символов, на обероне-2 25 символов