Оптимизация (сокращение) кода решения задачи #2 c acmp.ru - нахождение суммы целых чисел от 1 до N

[astecenko]

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

история одного байта

Когда топик прочел вчера, тоже вспомнил про этот рассказ

[Stilet]

для отрицательного n не прокатит

Т.е. если N отрицательное суммировать нужно отрицательные числа?

write((((sqr(n)+n) div 2)*n) div n)

Так не?

[Serge_Bliznykov]

Stilet, не, это решение ЕЩЁ хуже.
мало того, что всё так же оно не работает для отрицательных чисел,
мало того, что это решение, как и предыдущее не работает для нуля, но в этом решении при нуле выдаётся runtime error (division by zero)

контр примеры:

n   результат
0      1
1      1
5      15
-5    -14   (  1 + 0 + (-1)+(-2)+(-3)+(-4)+(-5) = -14 )

[Stilet]

Попытка не пытка

[Utkin]

Может как-то можно заменить div на байтовые операции? Ну типа сдвиг или еще что-нибудь. По крайней-мере деление на 2 по-любому должно как-то так заменяться. Да и быстрей должно получаться.

[astecenko]

Utkin, количество символов в коде то одинаковое, хоть n div 2 хоть n shr 1, сдвигом конечно быстрее, но с учетом того что деление выполняется в программе 1 раз - какая разница то

[Serge_Bliznykov]

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

Может как-то можно заменить div на байтовые операции? Ну типа сдвиг или еще что-нибудь. По крайней-мере деление на 2 по-любому должно как-то так заменяться. Да и быстрей должно получаться.

не-не-не! весь смысл моего вопроса в данном топике - это получение МИНИМАЛЬНОГО по длине рабочего кода. Быстрее/медленее, эффективнее, не эффективнее в данном разрезе абсолютно неважно!

ладно. думаю, что тема себя исчерпала.
Всем принявшим участиве в обсуждении большое СПАСИБО!


p.s. я с высокой долей вероятности уверен, что решения, занявшие ТОП используют какую-то недокуменнтированную возможность. По крайней мере, то, что касается Бейсика - это 100% так. Старый компилятор бейсика позволял выполнять сокращённую запись. После его замены на более новый ТОП лидер ACMP.RU - Антон Лунёв жаловался в форуме на то, что теперь решения его не проходят. и даже предлагал перезачесть все сданные работы в топ-листе с учётом нового компилятора!

[astecenko]

Кстати, вместо ord(n<1) можно использовать побитовый сдвиг, например для типа int64 конструкцию n shr 63

[Utkin]

z:=n*(abs(n)+1) div 2;

и

z:=(n*n+n) div 2;

Не одно и тоже?

[astecenko]

Нашёл более короткое решение! Даже короче того что в топе на сайте, но почему-то у них выдает Compilation Error. Работать будет только в Free Pascal. Суть в том что в Free Pascal для побитового сдвига можно использовать >> (аналог shr) и << (аналог shl), в итоге используя сдвиг получаем вот такое решение длиной в 109 символов :-)

var n:int64;
begin
  reset(input,'input.txt');
  rewrite(output,'output.txt');
  read(n);
  write((1+abs(n))>>1*n+n>>63)
end.

Проверял в Lazarus - работает :-)
Возможно раньше на сайте Free Pascal-евский компилятор был иначе сконфигурирован и подобное решение не вызывало ошибки.

З.Ы.: К решению подтолкнуло http://www.freepascal.org/docs-html/ref/refsu37.html

З.З.Ы.: Рано обрадовался, при делении сдвигом отриц чисел получается ерунда, так что div 2 все же придется оставить, но даже так получится решение в 111 символов, то бишь в топ попало бы