Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.07.2013, 23:57   #31
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

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

Цитата:
n-n shr 4*(n-16)
А можете прокомментировать?
Poma][a вне форума Ответить с цитированием
Старый 04.07.2013, 01:17   #32
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Цитата:
А можете прокомментировать?
У всех чисел, начиная с 16, 5 бит равен 1. Таким образом, n ограничивается сверху 16 (лишнее отнимается этой конструкцией).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 04.07.2013, 02:04   #33
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Вышел на второе место: http://www.acmp.ru/index.asp?main=bstatus&id_t=46
Arigato на форуме Ответить с цитированием
Старый 04.07.2013, 08:37   #34
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Еще -2. А вообще эти пробелы в константе по привычке за символы считал
Код:
write(exp(1):0:n-n shr 4*(n-16),copy('35360287',1,n-17)+'                454603985'[n])
PS Arigato, и не заметил, что там уже 145. +1. Расшифруйтесь
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 04.07.2013 в 08:50.
Аватар вне форума Ответить с цитированием
Старый 04.07.2013, 08:46   #35
astecenko
Homo Interneticus
Форумчанин
 
Аватар для astecenko
 
Регистрация: 04.03.2011
Сообщений: 611
По умолчанию

Arigato поздравляю!
Как достигли то? с помощью битовых операций сравнение по другому сделали, или что-то с строками сотворили?
astecenko вне форума Ответить с цитированием
Старый 04.07.2013, 08:50   #36
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Arigato Посмотреть сообщение
Вышел на второе место: http://www.acmp.ru/index.asp?main=bstatus&id_t=46
Вау!! Поздравляю!!

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

Последний раз редактировалось Serge_Bliznykov; 04.07.2013 в 09:01.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 04.07.2013, 09:09   #37
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
write(exp(1):0:n-n shr 4*(n-16),copy('35360287',1,n-17)+' 454603985'[n])
Я тоже так сначала сделал, как раз 149, думал, что и у Санамян Артак было подобное решение. Но система не приняла решение - рантайм еррор из-за обращения к нулевому символу строки.

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
опубликуйте код-чемпион, плиз...
Дам некоторое время остальным подумать Скажу лишь, что идея косвенно уже была озвучена выше и она читерская.

Последний раз редактировалось Arigato; 04.07.2013 в 09:12.
Arigato на форуме Ответить с цитированием
Старый 04.07.2013, 10:24   #38
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

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

Цитата:
Вышел на второе место: http://www.acmp.ru/index.asp?main=bstatus&id_t=46
Примите мои поздравления
Цитата:
Дам некоторое время остальным подумать
За это большое спасибо
Цитата:
Скажу лишь, что идея косвенно уже была озвучена выше и она читерская.
Что-то мне кажется, что хитрый пан Аригато добил свою идею что тестов только 10. и заменил в ' 454603985'[n] некоторое числа на пробелы.

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

Последний раз редактировалось Poma][a; 04.07.2013 в 10:38.
Poma][a вне форума Ответить с цитированием
Старый 04.07.2013, 10:52   #39
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,219
По умолчанию

Цитата:
Сообщение от 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.
Интересно на ваш вариант глянуть
Arigato на форуме Ответить с цитированием
Старый 04.07.2013, 11:12   #40
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Код:
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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оптимизация (сокращение) кода решения задачи #2 c acmp.ru - нахождение суммы целых чисел от 1 до N Serge_Bliznykov Помощь студентам 31 23.08.2014 22:35
Оптимизация кода задачи three_cats Общие вопросы C/C++ 7 28.09.2012 15:13
Написать программу, которая вычисляет приближенное значение числа e с заданной точностью quade1992 Паскаль, Turbo Pascal, PascalABC.NET 3 08.11.2011 15:10
Вычисление числа e, Pi с заданной точностью MrakSPb Общие вопросы C/C++ 3 12.05.2010 12:51
Оптимизация и сокращение кода (if + сдвиг) Alex Cones Общие вопросы Delphi 2 06.04.2010 21:37