Оптимизация (сокращение) кода решения задачи #46 c acmp.ru - вывод числа E с заданной точностью

[Poma][a]

День Добрый.

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

Собственно сабж : Число Е (acmp.ru)

Число E
(Время: 1 сек. Память: 16 Мб Сложность: 10%)

Выведите в выходной файл округленное до n знаков после десятичной точки число E. Число Е, округленное до 25 знаков после десятичной точки, равно 2.7182818284590452353602875.

Входные данные

Входной файл INPUT.TXT содержит целое число n (0 ≤ n ≤ 25).

Выходные данные

В выходной файл OUTPUT.TXT выведите ответ на задачу.

Пример

INPUT.TXT	    OUTPUT.TXT
0	             3
25	             2.7182818284590452353602875
13	             2.7182818284590

Мысли по этому поводу :
Не глядя на ограничения, можно предположить, что

Write (2.7182818284590452353602875 : 0 : n)

Сработает на ура. НО есть одна проблема и имя ей точность. В паскале наибольшая точность - 16 знаков после запятой.

На ум может прийти вариант вывести первые 16 знаков, а затем дописать остальные, НО при выводе

Write (2.7182818284590452353602875 : 0 : n)

, где N > 16 в конце появляется 0, и убрать его оттуда - слишком накладно.

Можно сразу химичить со строкой (именно на таком варианте я и остановился) :

var
        s : string;
        n : Byte;

begin
        Reset (input, 'input.txt');
        Assign (output, 'output.txt');

        Read (n);
        s := '2.7182818284590452353602875 ';
        Inc (s[n+2], Ord(s[n+3] > '4'));
        if n = 0 then
                Write (3)
        else
                Write (Copy (s, 1, n+2))
end.

190 символов.
В топе красуются решения с 149, 162, 165 символов)
Не подскажете как можно это сократить?

(была идея убирающая 1 символ), но при тесте 0 валится :

var
        s : string;
        n : Byte;

begin
        Reset (input, 'input.txt');
        Assign (output, 'output.txt');

        Read (n);
        s := '7182818284590452353602875 ';
        Inc (s[n], Ord(s[n+1] > '4'));
        if n = 0 then
                Write (3)
        else
                Write ('2.' + Copy (s, 1, n))
end.

[BDA]

186 - пока все, что смог:

var
  n: Byte;

begin
  Reset(input, 'input.txt');
  Assign(output, 'output.txt');
  Read(n);
  inc(n, 2 - ord(n = 0));
  Write(copy('2.7182818284590452353602875', 1, n - 1) + copy('3.7283828385690552454603985', n, 1))
end.

[Poma][a]

Write(copy('2.7182818284590452353602875', 1, n - 1) + copy('3.7283828385690552454603985', n, 1))

Гениально! Ручками просчитать последние цифры и уйти от Inc я не додумался.

[BDA]

Гениально было бы попасть в топ
179:

var
  n: Byte;

begin
  Reset(input, 'input.txt');
  Assign(output, 'output.txt');
  Read(n);
  inc(n, 2 - ord(n = 0));
  Write(copy('2.7182818284590452353602875', 1, n - 1) + '3.7283828385690552454603985'[n])
end.

[Poma][a]

179 говорите? Можно сказать, что Вы уже в ТОПе.

А знаете что нижняя строка ТОПа и есть 179 И на acmp процветает еще вот такой идиотизм : Если Ваша длина кода = длине кода человека X. и человек X сдал задачу раньше Вас и время прохождения тестов человека Х > Вашего времени, то Вы займете место человека X и табличка сдвинется..
Вот такое кино..

А если Вы еще N раз пересдадите задачку, то есть большой шанс попадания в топ

[Poma][a]

Я убил acmp тыц

[Arigato]

А разве корректно сравнивать размер, тем более, что решается задача на разных языках?

[BDA]

Сообщение от Arigato

А разве корректно сравнивать размер, тем более, что решается задача на разных языках?

Нет, конечно же
Неплохо бы ввести весовые коэффициенты и для занимаемой памяти и времени выполнения (у меня 1 задача отрабатывает быстрее всех и занимает меньше всех памяти, но занимает 2 место из-за длины).
Вряд ли администраторы будут менять систему.

Сообщение от Poma][a

179 говорите? Можно сказать, что Вы уже в ТОПе.

Да, видел. Нужно выбросить 1 символ - тогда 100% в топе

[Poma][a]

А разве корректно сравнивать размер, тем более, что решается задача на разных языках?

Это же acmp И вопрос корректно - некорректно тут не стоит. Тут спрашивается : "ГДЕ лишние байты?"!

Неплохо бы ввести весовые коэффициенты и для занимаемой памяти и времени выполнения

Не-не-не! У меня одна задача в ТОПе держится только на 1 байте. И если его просекут, то полечу я с "Олимпа"


Кстати, есть идея, только не знаю прокатит или нет.. (боюсь что нет)
Если во Write вместо строки пихнуть IntToStr'ом шестнадцатиричное число? (будет '2.' + IntToStr($<число>))
Вот только Windows'овский калькулятор больше 8 байтовых чисел не переводит.. Ручками считать - лень..

[Arigato]

А пробелы они не считают?