Интересные интересности и задачи/головоломки

[Poma][a]

Ord(i>0)-Ord(i<0)

В точку..
Можно еще так..
n div (n+Ord(n=0))

return a / (abs(a) + 1 / (abs(a) + 1));

В точку..

[Аватар]

Если для delphi, то
Вариант с div только для целого аргумента
Вариант с / для любых, но вернет плавающее и не факт, что точно 1 или -1
Вариант с ord подходит для любых случаев

[Poma][a]

Везде целые числа.. правда, я об этом тоже умолчал..

[Аватар]

Везде целые числа

/ не для целого результата

[BDA]

1) Мой код для си (где '/' для целых это div);
2) Нам запрещали в неком круге задаче так использовать ord, т.к. это выглядит скрытым ветвлением (нужно было решить без ветвлений);
3) Ord и правда универсальнее.

[Poma][a]

/ не для целого результата

Это про вариант BDA? Дык в Си деление и целочисленное деление - это "/"

[Аватар]

C си обмишурился. Звиняйте. А вот

это выглядит скрытым ветвлением

Можно согласится с большой натяжкой - сравнение есть, но ветвления то нет. А только с битовыми операциями поиграться не пробовали?

[BDA]

Да, Вы правы, наверное, были запрещены операции сравнения. Честно говоря, давно это было. Битовые операции для функции sign? Не пробовал
Опять же только для целых:

unsigned k = 0, p;
for (int i = 0; i < 8 * sizeof(a) - 1 && (k = (a >> i) & 1) == 0; ++i);
p = (a >> (8 * sizeof(a) - 1)) & 1;
return (1 - 2 * p) * k;

Правда, не тестировал.

[Аватар]

Не так не пойдет, цикл есть - ветвление без вариантов.
Вот для Integer работает, кроме нуля. Еще бы умножить на что-то, которое 1 если не ноль, ну и 0 соответственно

not Value shr 31 - Value shr 31

[BDA]

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

Не так не пойдет, цикл есть - ветвление без вариантов.

Да, сглупил.