Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+22
typedef struct tagRECT{
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECT, *PRECT, NEAR *NPRECT, FAR *LPRECT;
typedef const RECT FAR* LPCRECT;
typedef struct _RECTL{
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECTL, *PRECTL, *LPRECTL;
typedef const RECTL FAR* LPCRECTL;Вот так тайпдефятся абсолютно одинаковые структуры в windef.h
guest,
28 Ноября 2008
+24
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Деньга = record
Достоинство:integer;
Количество:integer;
end;
var
Лопатник: array of Деньга;
procedure ПоложитьНаЛопату(Купюра:Integer);
var
I: Integer;
УжеПоложили:Boolean;
begin
if Купюра=0 then
Exit;
УжеПоложили:=False;
for I := low(Лопатник) to High(Лопатник) do
if Лопатник[i].Достоинство=Купюра then
begin
inc(Лопатник[i].Количество);
УжеПоложили:=True;
end;
if not(УжеПоложили) then
begin
SetLength(Лопатник,Length(Лопатник)+1);
Лопатник[High(Лопатник)].Достоинство:=Купюра;
Лопатник[High(Лопатник)].Количество:=1;
end;
end;
var
Купюра:integer;
i:integer;
ВсегоНаЛопате:integer;
begin
repeat
Readln(Купюра);
ПоложитьНаЛопату(Купюра);
until Купюра=0;
ВсегоНаЛопате:=0;
for I := low(Лопатник) to High(Лопатник) do
begin
WriteLn(Format('Cost = %d Count - %d',[Лопатник[i].Достоинство,Лопатник[i].Количество]));
inc(ВсегоНаЛопате,Лопатник[i].Достоинство*Лопатник[i].Количество);
end;
WriteLn(Format('All money - %d',[ВсегоНаЛопате]));
ReadLn;
end.
Вообще-то это Delphi, но его в списке не было ;)
Задача была такая:
пользователь вводит достоинства купюры в произвольном порядке, ввод прекращ
guest,
28 Ноября 2008
+29
global $page_parent; //Целочисленный массив с айдями родителя страницы
global $page_title; //Строковый массив с названиями страниц
global $page_dir; //Целочисленный массив массивов списка страниц в странице (o_O)
global $page_dirs; //Количество страниц в странице, если 0 то страница не содержит
... some code ...
function TreeBuild($ina)
{
foreach($page_dir[$ina] as $ina)
{
echo $ina.'=>'.$page_dirs[$ina].'<br>';
if($page_dirs[$ina] != 0)
{
TreeBuild($ina);
}
}
return 0;
}
TreeBuild($i);Нихрена не пойме с этой рекурсией
guest,
28 Ноября 2008
+27.8
$bCancel = false;
while(!$bCancel)
{
$bCnt++;
$sql = "SELECT id, rDateTime, pDateTime, longitude, latitude, speed, reportId, inputs, peopIn, peopOut, COUNT(*) AS cnt FROM $tbname AS tblCur
WHERE ".$repIds." AND pDateTime>'$fd' AND unitId=$unitid
GROUP BY pDateTime, reportId ORDER BY pDateTime ASC LIMIT 0, 50";
$request = mysql_query($sql) or die(mysql_error());
$rCnt = 0;
while(!$bCancel)
{
if($row=mysql_fetch_assoc($request))
{
if(!arrZoneCoordContains($row['longitude'],$row['latitude'],$arrZoneCoord[$zoneId]))
{
$bCancel = true;
}
$fd = $row['pDateTime'];
array_push($arrRows, $row);
$rCnt++;
}
elseif($rCnt==0)
$bCancel=true;
}
}O break'aх мы не знаем.
guest,
27 Ноября 2008
−401.4
SELECT *
FROM (SELECT n.root, n.nodeid, n.name, UNIX_TIMESTAMP(m.createtime) AS
updatetime, (SELECT COUNT(*) FROM fs_node WHERE sid = n.sid AND root = n.root
AND cleft > n.cleft AND cright < n.cright AND clevel = n.clevel + 1 AND
nodetype = 1) AS objcount FROM fs_node AS n, fs_node AS m WHERE n.sid = $ sid
AND n.root IN (0, 1, 2, 3) AND n.nodetype = 0 AND m.nodeid =(SELECT MAX(
nodeid) FROM fs_node WHERE sid = n.sid AND root = n.root AND cleft > n.cleft
AND cright < n.cright AND clevel = n.clevel + 1 AND nodetype = 1) UNION ALL
SELECT n.root, NULL, NULL, UNIX_TIMESTAMP(m.createtime) AS updatetime, (
SELECT COUNT(*) FROM fs_node WHERE sid = $ sid AND root = n.root AND clevel
= 1 AND nodetype = 1) AS objcount FROM (SELECT 0 AS root UNIONSELECT 1
UNIONSELECT 2 UNIONSELECT 3) AS n, fs_node AS m WHERE m.nodeid =(SELECT
MAX(nodeid) FROM fs_node WHERE sid = $ sid AND root = n.root AND clevel
= 1 AND nodetype = 1)) AS tmp
ORDER BY updatetime DESC
guest,
27 Ноября 2008
−407.3
SELECT region_key AS region
,NAME(containedobjectsbasement_key) AS building
,container_node_id
,containedobjectsexchange_key
,object_name AS ats
,number_ranges AS diapazon
,exchange_type_name AS tip_ats
,exchange_mount_capacity AS emkost
,operator_licence_number AS license
,trace_line_relay_type_name AS tip_sl
,COUNT(trace_line_id) AS count5
,otkuda_nax AS otkuda_ats
,kuda_blya AS kuda_ats
,seven_nation_army
,ROWNUM
,cable_type_name
,logical_cable_length
,ATS_NAME
FROM (SELECT DISTINCT r.object_id AS region_key
,n.node_id AS containedobjectsbasement_key
,n1.container_node_id AS container_node_id
,e.node_id AS containedobjectsexchange_key
,CAST(name2(e.node_id, e.exchange_class_id) AS VARCHAR2(128) ) AS object_name
,e.exchange_mount_capacity AS exchange_mount_capacity
,CAST( (SELECT stragg(first_number || '-' || last_number || '
' )
FROM number_interval
WHERE exchange_id = e.node_id) AS VARCHAR2(1024) ) AS number_ranges
,(SELECT e1.exchange_type_name
FROM exchange_tl e1
WHERE e1.exchange_type_id = e.exchange_type_id) AS exchange_type_name
,CAST( (SELECT s3.licence_number
FROM service_operator_type s3
WHERE s3.service_operator_type_id = e.operator_id) AS VARCHAR2(64) ) AS operator_licence_number
,(SELECT t.trace_line_relay_type_name
FROM trace_line_relay_type t
WHERE t.trace_line_relay_type_id = s.trace_line_relay_type_id) AS trace_line_relay_type_name
,s.object_id trace_line_id
,NAME(s1.exchange_id) otkuda_nax
,NAME(trace_line.exchange_id) kuda_blya
,(SELECT SUM(TO_NUMBER(n.last_number) - TO_NUMBER(n.first_number) + 1) AS s
FROM number_interval n, region_l r
WHERE LENGTH(r.region_add_code || n.last_number) = 10
AND LENGTH(r.region_add_code || n.first_number) = 10
AND n.region_id = r.object_id
AND n.exchange_id = e.node_id) AS seven_nation_army
,ROWNUM
FROM region_l r, node n, exchange_l e, node n1, service_trace_line s, trace_line, service_l s1, node n2, OBJECT o
WHERE s.object_id = s1.object_id
AND s1.exchange_id = e.node_id
AND trace_line.service_id = s1.object_id
AND e.node_id = n1.node_id
AND n1.container_node_id = n.node_id
AND e.exchange_class_id = 100
AND n2.container_node_id = n.node_id
AND n2.entity_id = 108
AND n.region_id = r.object_id
AND n.node_type_id = 115
AND r.object_id = :region_key
AND n1.node_id = o.object_id
AND o.object_owner_type_id = 3) sel
,(SELECT r.object_id AS region_key2
,c.node_id AS containedcoppercross_key
,s2.linkedobjectsinterexchange_key AS linkedobjectsinterexchange_key
,s2.logical_cable_length AS logical_cable_length
,s2.cable_type_name AS cable_type_name
,NAME(sl.exchange_id) AS ATS_NAME
,NAME(el.node_id) AS el
FROM region_l r
,CROSS c
,exchange_l el
,node n2
,service_l sl
,trace_line tl
,(SELECT l.node_id AS node_id
,l.logical_cable_id AS linkedobjectsinterexchange_key
,l.logical_cable_length AS logical_cable_length
,(SELECT c.type_name
FROM cable_type_name c
WHERE c.cable_type_name_id = l.cable_type_id) AS cable_type_name
FROM logical_cable l
WHERE l.logical_cable_type_id = 455) s2
WHERE s2.node_id(+) = c.node_id
AND c.node_id = n2.node_id
AND n2.entity_id = 108
AND c.node_id = el.cross_id
AND sl.exchange_id = el.node_id
AND tl.exchange_id = el.node_id
AND sl.entity_id = 156
AND r.object_id = :region_key) sel2
WHERE NAME(kuda_blya) = ATS_NAME
GROUP BY region_key, containedobjectsbasement_key, container_node_id, containedobjectsexchange_key, number_ranges, object_name, exchange_type_name, operator_licence_number, trace_line_relay_type_name, otkuda_nax, kuda_blya, exchange_mount_capacity
,operator_licence_number, seven_nation_army, ROWNUM, cable_type_name, logical_cable_length,ATS_NAME
ORDER BY otkuda_ats
Вызывает в Oracle10g внутреннюю ошибку
ORA-00600: internal error code, arguments: [string], [string], [string], [string], [string], [string], [string], [string]
Cause: This is the generic internal error number for Oracle progra
guest,
27 Ноября 2008
−1094
SELECT A.Id AS AppraiserId,
(SELECT A2.FieldValueInt AS SubcontractorId
FROM sm_forms_FieldValues A2
WHERE
A2.InstanceId = (
SELECT FormInstanceId
FROM sm_genericdatabase_Instances
WHERE ModuleId=1736 AND Title='Appraisers'
)
AND
A2.FieldId = (
SELECT Id FROM sm_forms_Fields
WHERE InstanceId= A2.InstanceId
AND Title = 'Subcontractor'
)
AND
A2.ValueId=A.Id
) AS SubcontractorId,
(SELECT A3.FieldValueInt
FROM sm_forms_FieldValues A3
WHERE
InstanceId = (
SELECT FormInstanceId
FROM sm_genericdatabase_Instances
WHERE ModuleId=1736 AND Title='Appraisers'
)
AND
FieldId = (
SELECT Id FROM sm_forms_Fields
WHERE InstanceId= A3.InstanceId
AND Title = 'Heavy Equipment'
)
AND
A3.ValueId= A.Id
) AS HeavyEquipment,
(SELECT A3.FieldValueInt
FROM sm_forms_FieldValues A3
WHERE
InstanceId = (
SELECT FormInstanceId
FROM sm_genericdatabase_Instances
WHERE ModuleId=1736 AND Title='Appraisers'
)
AND
FieldId = (
SELECT Id FROM sm_forms_Fields
WHERE InstanceId= A3.InstanceId
AND Title = 'Name'
)
AND
A3.ValueId= A.Id
) AS Name
FROM sm_forms_Values A
where InstanceId = (
SELECT FormInstanceId
FROM sm_genericdatabase_Instances
WHERE ModuleId=1736 AND Title='Appraisers'
)
ORDER BY 2выборка из большой базы... И нихрена не понятной.
guest,
27 Ноября 2008
−70.7
boolean is_admin;
// something
Boolean b = new Boolean( is_admin );
if( b.toString().length() == 4 ) {
// something...
}
// something
guest,
27 Ноября 2008
−53.9
uint32_t getuint32(char *p){
return (*p<<24)|(*(p+1)<<16)|(*(p+2)<<8)|(*(p+3));
}
guest,
27 Ноября 2008
+3
//
// true - success
// false - value not found for given key
//
bool CATStorage::getValueForKey(const std::string &key, std::string &value) const
{
...
std::string().swap(value);
...
}Код очистки содержимого строки, C++, STL
guest,
27 Ноября 2008
Follow us!