Xenius, ты заново придумал LOR-contest?

по мотивам анекдотика:
«заходишь в толксы, а там - алгоритмы/программы, алгоритмы/программы...»

вам что, работы мало?

Еще есть такой сайт

http://rosettacode.org/wiki/Category:Programming_Tasks

>2) Следующий участник должен решить задачу одного из предыдущих участников на таком языке программирования. который ещё не использовался в треде. Разрешается любой язык программирования, для которого есть публично доступный компилятор/интерпретатор с открытыми исходными кодами и свободной лицензией, который можно запустить на GNU/Linux без применения несвободных компонентов.

Уж лучше б сразу сказал писать на Brainfuck'e.

Первая задача на питоне.

python -c "from itertools import product as p; from sys import argv as a; p1 = set(p(range(int(a[1]), int(a[3])), range(int(a[2]), int(a[4])))); p2 = set(p(range(int(a[5]), int(a[7])), range(int(a[6]), int(a[8])))); print len(p1-p2)" 0 0 5 5  3 3 6 6

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

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

>from itertools import product as p

неспортивео

:P За то и любим.

тебя не смущает, что второе решение, которое якобы на C, написано на самом деле на C++?

Я, помнится, по истории провести пытался :-)

> тебя не смущает, что второе решение, которое якобы на C, написано на самом деле на C++?
Поправил

> Первая задача на питоне.

python -c «from itertools import product as p; from sys import argv as a; p1 = set(p(range(int(a[1]), int(a[3])), range(int(a[2]), int(a[4])))); p2 = set(p(range(int(a[5]), int(a[7])), range(int(a[6]), int(a[8])))); print len(p1-p2)» 0 0 5 5 3 3 6 6

На 2 4 6 2 3 6 2 3 не работает, показывает 0, хотя моё даёт 7

>Решение на C (не моё, в олимпиаде не участвует)

4.2. Это же Си++!

> Первая задача на питоне.

И да, с тебя следущая задачка, если поправишь. И желательно ещё объяснение для тех кто питоном не владеет.

На 2 4 6 2 3 6 2 3 не работает, показывает 0, хотя моё даёт 7

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

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

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

А кто сказал, что оси координат слева направо и снизу вверх, а не как-то иначе?

Здравый смысл. Верх он и в африке верх, туда числа растут. Собственно как и вправо.

И с каких пор на олимпиадных задачках дают невалидные входные данные?

>И с каких пор на олимпиадных задачках дают невалидные входные данные?

Данные, в случае которых нет решения, частенько дают.

Тогда в условии должен оговариваться вывод, сигнализирующий об отсутствии решения.

> Верх он и в африке верх, туда числа растут. Собственно как и вправо.

Числа растут не вверх, а в большую сторону. А координаты могут начинаться с любого угла.

Впрочем, не проще ли тебе исправить решение, чем спорить?

Впрочем, не проще ли тебе исправить решение, чем спорить?

Ты должен понимать, что условие про порядок углов, важная часть, на которую опирается решение, поэтому нет, не проще.

P.S. Привет гуманоидам с другой системой координат.

> Привет гуманоидам с другой системой координат.
У монитора координаты обычно начинаются с левого-верхнего угла.

Ты должен понимать, что условие про порядок углов, важная часть, на которую опирается решение, поэтому нет, не проще.

Ну моё не опирается — любые два противоположных угла принимает. Однако объяснить решение ты можешь или нет?

И да, хорошо, решение принимается.

GNU Smalltalk 3.x

Rectangle class extend [
    fromArgs: aBaseNum [
        ^self left: (Smalltalk getArgv: aBaseNum) asInteger
               top: (Smalltalk getArgv: aBaseNum + 1) asInteger
             right: (Smalltalk getArgv: aBaseNum + 2) asInteger
            bottom: (Smalltalk getArgv: aBaseNum + 3) asInteger
    ]
]

Eval [
    | rectA rectB intersection result |
    rectA := Rectangle fromArgs: 1.
    rectB := Rectangle fromArgs: 5.
    intersection := rectA intersect: rectB.
    result := intersection
        ifNil: [#Nope]
        ifNotNil: [rectA area abs - intersection area abs].
    Transcript << result; nl
]

[dmatveev@web148 ~]$ gst -f lor.st 0 5 5 0 1 4 4 1
16

Исправленное, малой кровью, решение.

python -c "from itertools import product as p; from sys import argv as a; p1 = set(p(range(*sorted((int(a[1]), int(a[3])))), range(*sorted((int(a[2]), int(a[4])))))); p2 = set(p(range(*sorted((int(a[5]), int(a[7])))), range(*sorted((int(a[6]), int(a[8])))))); print len(p1-p2)" 2 4 6 2 3 6 2 3

Определяет два множества точек (x,y), принадлежащих прямоугольникам. Результат: число элементов в их разности.

YOR PETHON IS ANRIDBL

ALL LONG ONELINERS ARE ANRIDBL.

О, кажется я не учёл в своём алгоритме что прямоугольники могут быть и вложенными.

Но вообще, решение задачи на языке, где есть специальная функция для этого ­— немного читерство.

Так уж повелось, что в смолтоке, родоначальнике GUI, класс для прямоугольника был в стандартном образе с незапамятных времён :}

Вообще, я изначально писал вариант на Emacs Lisp, но под конец редактор напрочь завис, и, т.к. я не сохранялся, пришлось сделать проще.

Вот тогда задача от меня, немного смежного рода.

Имеем плоскость и N прямоугольников с одинаковыми размерами.

Координаты в плоскости задаются в условных единицах и являются целочисленными (аки сетка). Размеры прямоугольников тоже задаются в условных единицах и являются целочисленными.

N прямоугольников раскладываются на плоскости в заданном порядке. Каждый прямоугольник может лежать как альбомно, так и портретно.

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

Задача с районной школьной олимпиады по информатике г. Нижнего Новгорода за какой-то там код в первой половине нулевых :)

входные данные: 1. длина и ширина прямоугольника 2. набор координат левых верхних углов прямоугольника (в декартовой системе) и указание расположения (портретное/альбомное) для каждого.

выходные - набор координат углов.

максимальные размеры поля, на котором оно всё происходит, скажем, 1024x1024

http://pastebin.com/cVdhnPah

Увы, на пастебине только NASM, а не GNU Assembler. Вроде иногда правильные результаты выдаёт, лень было писать скрипт проверки.

Неплохо бы ещё говорить или писать в комментарии, какую из задач ты решаешь. Хотя наверное всё-таки первую.

Простите, забыл. Первую.

К сожалению, одной задачки маловато для того что бы что-то оценивать, видимо организовывать олимпиаду надо как-то по-другому.

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

Исправил ошибку в алгоритме — теперь должен работать даже если один прямоугольник внутри другого.

http://paste.org.ru/?1izebz