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

[Poma][a]

Шикарно! Я тоже без каких-либо колебаний вставлял пробелы (см. 1-ый пост), но в ТАКОМ кол-ве!!

151

Прекрасно. 3-е место топа

n-n shr 4*(n-16)

А можете прокомментировать?

[BDA]

А можете прокомментировать?

У всех чисел, начиная с 16, 5 бит равен 1. Таким образом, n ограничивается сверху 16 (лишнее отнимается этой конструкцией).

[Arigato]

Вышел на второе место: http://www.acmp.ru/index.asp?main=bstatus&id_t=46

[Аватар]

Еще -2. А вообще эти пробелы в константе по привычке за символы считал

write(exp(1):0:n-n shr 4*(n-16),copy('35360287',1,n-17)+'                454603985'[n])

PS Arigato, и не заметил, что там уже 145. +1. Расшифруйтесь

[astecenko]

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

[Serge_Bliznykov]

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

Вышел на второе место: http://www.acmp.ru/index.asp?main=bstatus&id_t=46

Вау!! Поздравляю!!

опубликуйте код-чемпион, плиз...

[Arigato]

Сообщение от Аватар

write(exp(1):0:n-n shr 4*(n-16),copy('35360287',1,n-17)+' 454603985'[n])

Я тоже так сначала сделал, как раз 149, думал, что и у Санамян Артак было подобное решение. Но система не приняла решение - рантайм еррор из-за обращения к нулевому символу строки.

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

опубликуйте код-чемпион, плиз...

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

[Poma][a]

У всех чисел, начиная с 16, 5 бит равен 1. Таким образом, n ограничивается сверху 16 (лишнее отнимается этой конструкцией).

Спасибо!

Вышел на второе место: http://www.acmp.ru/index.asp?main=bstatus&id_t=46

Примите мои поздравления

Дам некоторое время остальным подумать

За это большое спасибо

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

Что-то мне кажется, что хитрый пан Аригато добил свою идею что тестов только 10. и заменил в ' 454603985'[n] некоторое числа на пробелы.

UPDATE
Ага. Получилось ровно 145..

[Arigato]

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

Что-то мне кажется, что хитрый пан Аригато добил свою идею что тестов только 10. и заменил в ' 454603985'[n] некоторое числа на пробелы.

Ага, раскусил! Мое решение:

var
  n: Byte;

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

  write(exp(1):0:n-n shr 4*(n-16),copy('35360287',1,n-17)+'                       985'[n+1])

end.

Интересно на ваш вариант глянуть

[Poma][a]

var
  n: Byte;

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

  write(exp(1):0:n-n shr 4*(n-16),copy('35360287',1,n-17)+'                       985'[n+1])

end.

Точно такой же