Онлайн компилятор Oberon-07/11
Путеводитель по Оберон-проектам.
Логи jabber-конференции.
Онлайн исходники BlackBox: тут:WeBB и на github
Исходники Project Oberon V4 на github.
Сборник решений задач книги "Современное программирование с нуля!" тут. А обсуждение здесь.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Так, с ограничениями по памяти merge_qs падает:Но при этом, как ни странно, выдает правильный ответ. Что ломает нафиг мои скрипты.Код: [Выделить]Command exited with non-zero status 48
Command exited with non-zero status 48
Ну да. Но там же написаноУгу. Глянул в исходники либы. Там (в FIO.mod, где собственно это дело и проверяется и кидается HALT с этим текстом) написано следующее:Код: [Выделить]SeqFile.OpenWrite(spill[spno], name, SeqFile.raw+SeqFile.read+SeqFile.old, res);
TYPE
FileUsage = (unused, openedforread, openedforwrite, openedforrandom) ;
...
PROCEDURE CheckAccess (f: File; use: FileUsage; towrite: BOOLEAN) ;
VAR
fd: FileDescriptor ;
BEGIN
IF f#Error
THEN
fd := GetIndice(FileInfo, f) ;
IF fd=NIL
THEN
IF f#StdErr
THEN
FormatError('this file has probably been closed and not reopened successfully or alternatively never opened\n')
END ;
HALT
ELSE
WITH fd^ DO
IF (use=openedforwrite) AND (usage=openedforread)
THEN
FormatError1('this file (%s) has been opened for reading but is now being written\n',
name.address) ;
HALT
ELSIF (use=openedforread) AND (usage=openedforwrite)
THEN
FormatError1('this file (%s) has been opened for writing but is now being read\n',
name.address) ;
HALT
...
Вот тебе и стандарты ISO. :-( Сейчас еще обнаружил, что в xds CARD16, CARD32..., а в gm2 CARDINAL16, CARDINAL32...Если что, я собирал прогу с помощью gm2 вот таким образом:
Пробовал gm2 из пакета поставить, вроде установилось, но не работает.
gm2 -O3 -flibs=iso,pim merge_heap.mod
Без этих опций (-flibs=iso,pim) оно не собирается.Вот тебе и стандарты ISO. :-( Сейчас еще обнаружил, что в xds CARD16, CARD32..., а в gm2 CARDINAL16, CARDINAL32...Насколько я понимаю, проблема в чем-то вроде, что файл был открыт c флагом O_WRONLY а надо было с O_RDWR. Это если на позиксно-сишный язык переводить.
Пробовал gm2 из пакета поставить, вроде установилось, но не работает.
this file (spill+0) has been opened for writing but is now being read
Command terminated by signal 6
Тут есть нюанс суммы чисел можно посчитать имея input и не сортируя его, а вот md5 и sha2 уже не выйдет - чтобы их сравнивать с корректными нужно иметь сортированный корректный output. Т.е. чтобы проверить сортировку нужно реализовать сортировку.Я сравнивал суммы чисел - такая упрощенная статистика.Ну, сумма чисел -- это упрощённая контрольная сумма, тогда уж лучше сразу хеш делать, например SHA-2, а не MD5...
Не понятно... Почему неубывающая последовательность неправильна?
И почему равенство значений подменяется равенством хэшей?
in := open("input");
out := create("output");
for i:=0; i<in.size/4; ++i {
out.write(i);
}
При этом он ничего сортировать не будет. Ему вообще плевать на входные данные, ему важно только сколько этих данных.
Кстати, тоже интересен способ проверки решений.Этот вариант не катит просто в силу того, что уже было в практике, когда на выходе была неправильная неубывающая последовательность чисел. Проверку оно проходило, но результат был не правильным.
В голову приходит только вариант читать последовательно все числа и убеждаться, что каждое последующее число не меньше предыдущего.