Языки программирования Опции

[Guevara-chan]

Ну, вот как-то так: http://vk.com/note104493218_12227861
О чем-то забыла ? Где-то недогнула ?

[Guevara-chan]

Min/Max без условных переходов, говорите ? OKay:

Код

Macro Def_Comparator(PName, sgn = +)
Procedure PName(Alfa, Omega)
Define Diff = Omega - Alfa, Factor = 0 sgn Sign(Diff)
ProcedureReturn Alfa +  Sign(Factor + 1) * Diff
EndProcedure
EndMacro

Def_Comparator(Max)
Def_Comparator(Min, -)

Debug Max(4, 2); 4, я полагаю.
Debug Min(7, 9); 7, я полагаю.

...Ну или так, да:

Код

Macro Def_Comparator(PName, op)
Procedure PName(Alfa, Omega)
ProcedureReturn Alfa + (-Bool(Alfa op Omega) & (Omega - Alfa))
EndProcedure
EndMacro

Def_Comparator(Max, <)
Def_Comparator(Min, >)

[gamecreator]

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

Alfa

Alpha же.

[Guevara-chan]

Ну, вариант "Alfa" всего в полтора раза менее популярен (109 миллионов против 141).

...Бонус для тех, кто усмотрел неявные If'ы в Sign:

Код

Procedure Sign_(Val)
ProcedureReturn Bool(Val >= 0) - Bool(Val <= 0)
EndProcedure

Debug Sign_(-10); -1, надо полагать ?
Debug Sign_(0); 0, надо полагать ?
Debug Sign_(10); 1, надо полагать ?

[gamecreator]

Он от этого правильнее не станет.

[gamecreator]

Код

Procedure Sign_(Val)
ProcedureReturn Bool(Val >= 0) - Bool(Val <= 0)
EndProcedure

Чего ж не (unsigned(~Val ^ (Val - 1)))>>(sizeof(Val)*8-1)) & ((Val & (-1))>>(sizeof(Val)*8-1)) ? Условная операция - уже половина оператора выбора.

[Guevara-chan]

Тоже верно, но что-то рука не поднялась еще раз заведомо гробить поддержку чисел с плавающей точкой. Кстати, почти в тему:
http://vk.com/topic-30666517_29011944?post=151474 - внесла посильную лепту.

P.S. Чит (NaN может трактоваться и не как 0 при переводе в целое), но работает:

Код

Procedure Sign_(Val)
ProcedureReturn Int(Val / Abs(Val))
EndProcedure

...Я, однако, предпочту все же следующее усложнение (исходим из предположения, что NaN <> 0):

Код

Procedure Sign_(Val)
Define Factor.i = Val / Abs(Val), NaN.i = NaN()
ProcedureReturn Factor % NaN
EndProcedure

[Orzie]

Истина - это все, что не ложь.

И хватит казуистики.

STACK OVERFLOW

[feanor]

В первой строке задротская программистская шутка.

В С истиной действительно считается любое целочисленное значение, кроме нуля (хотя true все же равно единице). Так что истин там много, а ложь - одна.

[tolich]

Не только в C, но это всё ещё казуистика.

[Orzie]

В первой строке задротская программистская шутка.

В С истиной действительно считается любое целочисленное значение, кроме нуля (хотя true все же равно единице). Так что истин там много, а ложь - одна.

Да это-то всё понятно, я просто о том, что казуистика как раз и предполагает определения "Счастье есть отсутствие несчастья".

[hippocamus]

В первой строке задротская программистская шутка.

В С истиной действительно считается любое целочисленное значение, кроме нуля (хотя true все же равно единице). Так что истин там много, а ложь - одна.

В Delphi вроде тоже: Boolean(2) = True. Как бы "единица и больше" - истина. "ноль и меньше" - ложь. А вот Bool(2) - не гарантирую, что истина. Это не фактическое приведение, а особая операция.

[gamecreator]

Так разве в делфи можно писать конструкции вида if(2)?

Позже перенесу оффтопик.

[hippocamus]

Нельзя. Это прямое приведение типов.
Byte(-1) = 255.
Это не выражение на языке Delphi.
Однако
1: if 2 then goto 1;
даст бесконечный цикл.
или, красивее:
repeat until 2;

[gamecreator]

Какое ещё приведение типов? Мы про условия говорим.
Ну да ладно, в примере у тебя и так видно, что всё так же.

[hippocamus]

Ну, условие:
if Boolean(2) then ...;
только приведение к логическому типу и так подразумевается, поэтому можно написать:
if 2 then ...;
И это условие будет выполнено что в первом, что в втором случае. Потому что 2 = Boolean(2) = True (в условиях, конечно). Также как часто используемое мной выражение 2=3. Оно всегда даёт False, но оно в 100 раз нагляднее, чем само False.
(компилятор в данном случае не парится, сразу подставляя нужный результат. Так что производительность не страдает).

[feanor]

http://en.wikipedia.org/wiki/Boolean_data_type

[packa]

Кто нибудь слышал про язык Rust?

Реквест максимальной инфы по нему, если кто распологает!)
Нужно в качестве огромного проекта.

[tolich]

From gmakers.ru:

А я кстати придумал, как можно довольно легко и надёжно отличить мышь от тачскрина. По умолчанию запускать как тачскрин, но если игрок смог переместить курсор не нажимая ЛКМ - значит мышь.

Гениально же.

[Guevara-chan]

Немного некропостинга и гитхаб с Адвентом в функциональном стиле: https://github.com/Guevara-chan/Advent-of-Code-2017