- 1
- 2
- 3
- 4
function H2I takes handle h returns integer
return h
return 0
endfunction
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+4
function H2I takes handle h returns integer
return h
return 0
endfunction
Return Bug. Интересно, кто-то ещё помнит?
0
procedure TForm9.FormShow(Sender: TObject);
var i_vx,o_dt,o_kt: real;
begin
Form9.Caption:='Èòîãî ïî æóðíàëó';
r_:='select sum(sma) as ism from '+t_ss;
with DM.ZQ_all do
begin
Close;
SQL.Clear;
SQL.Add(r_);
SQL.Add('where ch=1 and gd*100+ms<:rgd*100+:rms');
Params.ParamByName('rgd').Value :=t_gd;
Params.ParamByName('rms').Value :=t_ms;
Open;
first;
if Eof=true then i_vx:=0 else i_vx:=Fieldbyname('ism').asfloat;
Close;
SQL.Clear;
SQL.Add(r_);
SQL.Add('where ch=2 and gd*100+ms<:rgd*100+:rms');
Params.ParamByName('rgd').Value :=t_gd;
Params.ParamByName('rms').Value :=t_ms;
Open;
first;
if not Eof=true then i_vx:=i_vx - Fieldbyname('ism').asfloat;
LEdit1.Text:=Format('%10.2f',[i_vx]);
Close;
SQL.Clear;
SQL.Add(r_);
SQL.Add('where ch=1 and gd*100+ms=:rgd*100+:rms');
Params.ParamByName('rgd').Value :=t_gd;
Params.ParamByName('rms').Value :=t_ms;
Open;
first;
if Eof=true then o_dt:=0 else o_dt:=Fieldbyname('ism').asfloat;
LEdit2.Text:=Format('%10.2f',[o_dt]);
Close;
SQL.Clear;
SQL.Add(r_);
SQL.Add('where ch=2 and gd*100+ms=:rgd*100+:rms');
Params.ParamByName('rgd').Value :=t_gd;
Params.ParamByName('rms').Value :=t_ms;
Open;
first;
if Eof=true then o_kt:=0 else o_kt:=Fieldbyname('ism').asfloat;
Close;
LEdit3.Text:=Format('%10.2f',[o_kt]);
LEdit4.Text:=Format('%10.2f',[i_vx+o_dt-o_kt]);
end;
end;
+2
select sum(sma) as ism from Jur_7.ss2022_1 where ch=1 and gd*100+ms<2022*100+1
Нашел БД с ОТДЕЛЬНОЙ таблицей на каждый месяц (начиная с 2008 года). А тут еще и дата определяется....
0
func down(h Interface, i0, n int) bool {
i := i0
for {
j1 := 2*i + 1
if j1 >= n || j1 < 0 { // j1 < 0 after int overflow
break
}
j := j1 // left child
if j2 := j1 + 1; j2 < n && h.Less(j2, j1) {
j = j2 // = 2*i + 2 // right child
}
if !h.Less(j, i) {
break
}
h.Swap(i, j)
i = j
}
return i > i0
}
Какие же интерфейсы в Go скудные, что заставляют разработчиков использовать функции API внутри вспомогательных в пределах одной сущности. Взято из: https://github.com/golang/go/blob/master/src/container/heap/heap.go
−3
короче на новый год я ебанул гранатом по стене
его кровь лилась по мне
стул потом на видео крутил
вместе с видео убийства граната его я по каналам мутил
0
assert(not std::isnan(std::lerp(a, b, INFINITY))); // lerp here can be -inf
а вы говорите этим никто не пользуется
https://en.cppreference.com/w/cpp/numeric/lerp
0
using KoKo.Property;
namespace MyProject {
public class Person {
private StoredProperty<string> FirstName { get; }
private StoredProperty<string> LastName { get; }
public Property<string> FullName { get; }
public Person(string firstName, string lastName) {
FirstName = new StoredProperty<string>(firstName);
LastName = new StoredProperty<string>(lastName);
FullName = DerivedProperty<string>.Create(FirstName, LastName, (first, last) => $"{first} {last}");
}
public void SetFirstName(string firstName) {
FirstName.Value = firstName;
}
}
}
−1
randomNumeric(2) + "." + randomNumeric(2)
0
interface I<T> {
foo(x: number): T;
}
interface A extends I<number>/*, I<string>*/ { }
class AI
{
foo(x: number) { return x; }
}
function main()
{
let x: A = new AI();
const r = x.foo(1); // no error
//const r2 = x.foo(''); // error
print("done.");
}
ура... первая имплементация generic интерфейса... ну с почином на генериках
0
Я немного отвлекся, извините.
Удалось выяснить, что сглаз, - иными словами, внезапный упадок, препятствие в делах, и проч,- в ряде случаев
ни что иное, как нарушение распределения энергии, вызванное нежелательным пересечением нескольких (двух?) важных факторов: эго и целеустремленности и провоцируется непосредственно индивидом - жертвой, как правило, при участии инициатора.
Простая трактовка: человек постоянно хвастается либо рассказывает другим людям - не важно, близкие они, или нет - о своих планах, терпя впоследствие сокрушительный крах.
1. Не нужно хвастаться.
2. Не стоит кому-либо рассказывать о предстоящих запланированных делах.
3. Нельзя совершать какие-либо манипуляции перед зеркалом и иными отражающими поверхностями, особенно - принимать пищу.
Мыр-мыр, мырамур