Форум на Исходниках.RU

Мини-соревнование №00

Jin X — Fri, 28 Apr 2006 16:32:17 +0000

Jin X: Время шанса закончилось. Соревнование закрыто!

Мини-соревнование №00

Jin X — Mon, 17 Apr 2006 08:25:18 +0000

Jin X: Извиняйте, что не опубликовал результаты вовремя, были проблемы со свободным временем.
Итак, наши участники:
* Lyrik (45 байт)
* captain_cobalt (47 байт)
* kardinal (62 и 81 байт)
* orb (50 байт)
Изо всех программ корректно работала только программа captain_cobalt (47 байт). Программа Lyrik'а могла бы победить, но при Z=0 она ищет не первое ближайщее число, а наименьшее (т.е. из 1 и -1 она выберет -1, даже если 1 будет стоять раньше). Т.о...

Победителем объявляется captain_cobalt, который награждается 1 dgm! Мои поздравления! ;)

Исходный текст программы:

; mini-compo #00

; http://forum.sources.ru/index.php?showtopic=133825

; captain cobalt, 08mar2006, 47 bytes

CLD

PUSH CX

JCXZ EXIT0

PUSH CX

XCHG AX,BP

MOV DI,-1

L1: LODSW

MOV DX,BP

SUB DX,AX

JG $+4

NEG DX

NEG AX

JZ $+4

JNS $-4

CMP DI,DX

JC L2

JNZ $+6

CMP BX,AX

JNG L2

POP BX

MOV DI,DX

MOV BX,AX

PUSH CX

L2: LOOP L1

POP CX

EXIT0: POP AX

SUB AX,CX

RET

Программы тестировались на последовательностях:

z dw 6, 6, 0, 0, -3, -3, 0 ; числа Z, последовательно передаваемые в AX

data dw 9, 4, -11, 8, -7, 0, 8, 2

dw 9, 8, -11, 4, -7, 0, 8, 2

dw 5, -2, 7, 4, 1, 6, -1, 3

dw 5, -2, 7, 4, -1, 6, 1, 3

dw 4, 6, -5, 12, -101, 27, -1, 0

dw 4, 6, -1, 12, -101, 27, -5, 0

; cx = 8 для всех случаев

; правильные ответы: 3, 1, 4, 4, 2, 6, 0

2 Lyrik: Даю тебе ещё один шанс. Исправишь свою программу так, чтобы она работала корректно и была менее 47 байт (46,45...), тоже получишь 1 dgm ;)

Мини-соревнование №00

Jin X — Thu, 09 Mar 2006 20:29:32 +0000

Jin X: Странный вопрос... ну во-первых, проанализировать, а во-вторых, через тестовую прогу.

Мини-соревнование №00

orb — Thu, 09 Mar 2006 19:30:10 +0000

orb:

Цитата 7in X @ 09.03.06, 19:14

работы ещё не проверял

А как их проверять?

Добавлено 09.03.06, 19:39
правленый вариант вышлю завтра, сегодня не успел :(

Мини-соревнование №00

Jin X — Thu, 09 Mar 2006 19:14:54 +0000

Jin X: Ну что... соревнование почти заканчивается :)
Пока участников трое (работы ещё не проверял)... но ещё есть чуть-чуть времени.

Мини-соревнование №00

kardinal — Wed, 08 Mar 2006 23:35:42 +0000

kardinal: Сократил еще на 5 байт :whistle: днем скину..

Невезуха, наоборот баг нашел при Z<0, стало больше.. :blink:

Мини-соревнование №00

Lyrik — Thu, 02 Mar 2006 19:45:16 +0000

Lyrik: captain cobalt
Лучше сбросить! В условии написано:

Цитата 7in X @ 23.02.06, 13:38

Значение остальных регистров не определено

И регистр флагов сюда тоже входит ;)

Мини-соревнование №00

kardinal — Wed, 01 Mar 2006 21:36:00 +0000

kardinal: captain cobalt

Цитата

Если используются строковые команды то обязательно явно сбрасывать флаг

Обыкновенно не надо, если ты перед этим не мудрил с направлением.

Мини-соревнование №00

captain cobalt — Wed, 01 Mar 2006 14:17:59 +0000

captain cobalt: Если используются строковые команды то обязательно явно сбрасывать флаг направления?

Мини-соревнование №00

kardinal — Tue, 28 Feb 2006 20:47:15 +0000

kardinal: 7in X

Цитата

kardinal, здоровая у тебя, однако, процедурка получилась. Аж 62 байта!

Ну вот... :'(

Мини-соревнование №00

Jin X — Tue, 28 Feb 2006 20:13:59 +0000

Jin X: Число Z задано изначально, а в массиве ищется наиболее близкое к нему. Если найдено, то оно и будет наиболее близким, логично? :)
А по поводу подпрограммы (процедурки) - конечно, можно, так даже и надо!
Куда слать? Хм... ну давайте в приват, а в топике просто укажите размер проги с учётом команды ret (описал в первом посте) :)
Активность пока не ахти, так что продлеваем ещё на недельку, до 9.02.

Добавлено 28.02.06, 20:19
kardinal, здоровая у тебя, однако, процедурка получилась :)
Аж 62 байта!

Мини-соревнование №00

orb — Fri, 24 Feb 2006 06:42:48 +0000

orb:

Цитата kardinal @ 24.02.06, 00:06

Z - два байта знаковых, и его находить не нужно (оно задано)

если оно найдено в последовательности

Мини-соревнование №00

kardinal — Fri, 24 Feb 2006 00:06:33 +0000

kardinal: лично я уже код написал :tong: проверяю, модернезирую..
- а вот куда его слать потом это вопрос?
- и еще Женя, в виде подпрограммы пойдет?
- и можно ли будет исправить его потом в догонку, если возникнет необходимость?
- и так понял, что без переменных - только регистры.
orb сказано же Z - два байта знаковых, и его находить не нужно (оно задано)!!! :wacko:

Мини-соревнование №00

orb — Thu, 23 Feb 2006 20:48:49 +0000

orb: процессор? любой больше 386?

Мини-соревнование №00

orb — Thu, 23 Feb 2006 20:47:19 +0000

orb: Есть некоторые вопросы
1. разрядность Z (и чисел в массиве)
2. если нашли Z?
3. куда слать исходники

Мини-соревнование №00

Jin X — Thu, 23 Feb 2006 13:38:30 +0000

Jin X: Всем здрасте! :D
Давно уже собирался, но, наконец, решил начать вести рубрику мини-соревнований.
Для участия приглашаются все желающие.
p.s. Всех мужчин с праздником! ;)

Постановка задачи.
Написать функцию поиска в ряде целых чисел наиболее близкого числа к Z. При нахождении нескольких таких чисел выбрать первое наибольшее, если Z>0, первое наименьшее, если Z<0 или любое первое, если Z=0. Адрес массива знаковых 2-байтовых чисел передается в паре регистров DS:SI, размер массива - в регистре CX, а число Z - в регистре AX. Значение остальных регистров не определено. Вернуть в регистре AX порядковый номер числа (отсчет вести с нуля). Если CX=0, вернуть 0.

Пример.
Ряд чисел: 9 4 -11 8 -7 0 8 2
Z=6
Результат: 3
Объяснение: наиболее близкие к 6 числа 4 и 8, но т.к. Z>0, мы выбираем 8, в представленном ряде чисел оно идёт под номером 3.

Критерий оценки.
Наименьший размер кода.

Платформа.
MS-DOS.

Продолжительность соревнования.
До 9 марта 2006 года включительно.

Награда.
1 dgm.

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

Удачи! ;)