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

[Poma][a]

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

[Arigato]

Убрал еще пару байт:

var
  n: Byte;

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

[Poma][a]

n:=n+2-ord(n=0);

Arigato, А ведь гениально! Ну конечно же!!

'[n])

BDA, А это просто бесподобно! У меня до сих пор компилятор отплевывается и не хочет признавать что это работает.

И того 177 мы уже в ТОПе

[Arigato]

На С++ переписать, будет короче
А какие языки они там поддерживают?

Еще минус 1 байт:

var
  n: Byte;

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

[Arigato]

162 байта:

var
  n: Byte;
begin
  Reset(input, 'input.txt');
  Assign(output, 'output.txt');
  Read(n);

  if n < 18
    then write(exp(1):0:n)
    else write(exp(1):0:16, 353602875/exp(ln(10)*(25-n)):0:0)

end.

[Poma][a]

А какие языки они там поддерживают?

Паскаль, Плюсы, Басик, Ява

Еще минус 1 байт:

А можете тыкнуть пальцем где?

162 байта:

А можно тут комментарии?

[Arigato]

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

А можете тыкнуть пальцем где?

Write(copy('2.7182818284590452353602875'
Write(copy('2.718281828459045235360287'

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

А можно тут комментарии?

exp(1) - это и есть число е, но с точностью до 16 знаков, потому можно смело эту часть выводить. Если знаков больше, то выводим недостающие: 353602875/exp(ln(10)*(25-n)):0:0

Решение на 165 байт у меня получалось, 162 тоже теперь знаем как. Однако кто-то умудрился в 149 байт на Паскале уложиться, пока не ясно как...

[Poma][a]

Спасибо за объяснения.

Однако кто-то умудрился в 149 байт на Паскале уложиться, пока не ясно как...

Очень даже ясно.

if n < 18
    then write(exp(1):0:n)
    else write(exp(1):0:16, 353602875/exp(ln(10)*(25-n)):0:0)

1-ый Write и 1-ая часть 2-го Write похожи. И их можно было бы заменить на
Write (exp(1) : 0 : n), НО эта зараза дописывает 0 в конце. Если отнего избавиться в 2 символа, то и получится решение с усеченной развилкой.


Тоесть :

var
  n: Byte;
begin
  Reset(input, 'input.txt');
  Assign(output, 'output.txt');
  Read(n);

  write(exp(1):0:n);
  if n > 19 then
    write(353602875/exp(ln(10)*(25-n)):0:0)

end.

147

Вариант рабочий :

var
  n: Byte;
begin
  Reset(input, 'input.txt');
  Assign(output, 'output.txt');
  Read(n);

  write(exp(1):0:n-ord(n>16)*(n-16));
  if n > 19 then
    write(353602875/exp(ln(10)*(25-n)):0:0)

end.

164 тоесть не в ту степь

[Arigato]

160 байт:

var
  n: Byte;
  
begin
  Reset(input, 'input.txt');
  Assign(output, 'output.txt');
  Read(n);

  write(exp(1):0:n-n shr 4*(n-16));
  if n > 16 then
    write(353602875/exp(ln(10)*(25-n)):0:0)

end.

[Poma][a]

Гениально.. суметь втхать туда еще и сдвиг.. Респект!