Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+164
// set admin mode
switch (true) {
case $nc_core->inside_admin:
$nc_core->admin_mode = true;
break;
case !$passed_thru_404 && isset($posting): // add (edit) action
$nc_core->admin_mode = $admin_mode;
break;
case !$passed_thru_404: //front-office
$nc_core->admin_mode = true;
break;
case $passed_thru_404:
$nc_core->admin_mode = false;
break;
default:
$nc_core->admin_mode = false;
}
/netcat/require/index.php
Что они там курят, что у них настолько извилины выпрямляются?!
telnet,
26 Мая 2010
+167
<?
error_reporting(0);
$b=array("Калининград","Вологда","Далматово","Дмитров","Архангельск","Владивосток","Краков");
//конкурсный код:
//begin
for($i=0;$i<7;$i++){$s.="for(\$z[$i]=0;\$z[$i]<7;\$z[$i]++)";$n.="\$z[$i],";$q.="\$b[\$z[$i]],";}$f='for($i=0;$i<7;$i++){$l[$i]=strlen($b[$i])-1;$c[$i]=strtolower($b[$i]);for($j=0;$j<7;$j++)if($i!=$j&&$b[$i][$l[$i]]==strtolower($b[$j][0]))$e[$i]=true;}'.$s.'{$y=array('.$n.');sort($y);if($y==array(0,1,2,3,4,5,6)){$d=true;for($i=0;$i<6;$i++)if($d&&$c[$z[$i]][$l[$z[$i]]]!=$c[$z[$i+1]][0]&&($e[$z[$i]]||$c[$z[$i]][$l[$z[$i]]-1]!=$c[$z[$i+1]][0]))$d=!$d;if($d)$a=array('.$q.');}}';eval($f);
//end
print_r($a);
echo "<br />";
echo "<br />";
//тоже самое в нормальном виде:
for($i=0;$i<7;$i++)
{
$l[$i]=strlen($b[$i])-1;
$c[$i]=strtolower($b[$i]);
for($j=0;$j<7;$j++)
{
if($i!=$j && $b[$i][$l[$i]]==strtolower($b[$j][0]))
{
$ecantUsePrelast[$i] = true;
}
}
};
for($z[0]=0;$z[0]<7;$z[0]++)
for($z[1]=0;$z[1]<7;$z[1]++)
for($z[2]=0;$z[2]<7;$z[2]++)
for($z[3]=0;$z[3]<7;$z[3]++)
for($z[4]=0;$z[4]<7;$z[4]++)
for($z[5]=0;$z[5]<7;$z[5]++)
for($z[6]=0;$z[6]<7;$z[6]++)
{
$y=array($z[6],$z[5],$z[4],$z[3],$z[2],$z[1],$z[0]);
sort($y);
if($y==array(0,1,2,3,4,5,6))
{
$dcorrect=true;
for($i=0;$i<6;$i++)
if($dcorrect && $c[$z[$i]][$l[$z[$i]]]!=$c[$z[$i+1]][0] && ($ecantUsePrelast[$z[$i]] || $c[$z[$i]][$l[$z[$i]]-1]!=$c[$z[$i+1]][0]))
$dcorrect=!$dcorrect;
if($dcorrect)
{
$a=array($b[$z[0]],$b[$z[1]],$b[$z[2]],$b[$z[3]],$b[$z[4]],$b[$z[5]],$b[$z[6]]);
}
}
}
print_r($a);
?>
Чтобы немного развеять "академическую" атмосферу на сайте, мы решили провести конкурс в стиле Code Golf (написать программное решение задачи, использовав минимальное количество символов)
Задание: написать программу для игры «в города».
На вход подается массив вида
[Калининград, Вологда, Алматы, Дмитров, Архангельск, Тобольск, Краков]
На выходе.
[Архангельск, Краков, Вологда, Алматы , Тобольск, Калининград, Дмитров]
xytop,
26 Мая 2010
+120
if (!isset($f_i[$i]))
{
echo $f_i[$i],"<br>";
}
}
Vasiliy,
26 Мая 2010
+129
@echo off
if exist 3.txt del 3.txt
: begin
if "%1"=="" goto end
echo %1 >> 3.txt
copy 3.txt "%1" >4.txt
shift
goto begin
: end
dir *. /O-S /B
del *.
del 3.txt
del 4.txtBatch файл под DOS, студенческое задание было: написать *.bat файл, который выводит список аргументов в обратном порядке, например, на команду foo.bat qwe sdf fgh ty должен быть ответ ty fgh sdf qwe. Как-то не додумался я прибавлять аргументы в обратном порядке. и придумал, как это сделать средствами бат файла.
dj_quake,
26 Мая 2010
+153
bool ChatHandler::HandleNpcYellCommand(const char* args)
{
if (!*args)
return false;
...
}
hromjo,
25 Мая 2010
+98
//это как бы сортировка приоритетов
Try
Prior1:=StrToInt(Edit1.Text);
Prior2:=StrToInt(Edit2.Text);
Prior3:=StrToInt(Edit3.Text);
Prior4:=StrToInt(Edit4.Text);
Prior5:=StrToInt(Edit5.Text);
except
ShowMessage('Íåâåðíî çàäàíû ïðèîðèòåòû'); exit;
end;
min1:=100;
If prior1<min1 then begin min1:=prior1; nmin1:=1; end;
If prior2<min1 then begin min1:=prior2; nmin1:=2; end;
If prior3<min1 then begin min1:=prior3; nmin1:=3; end;
If prior4<min1 then begin min1:=prior4; nmin1:=4; end;
If prior5<min1 then begin min1:=prior5; nmin1:=5; end;
min2:=100;
If (prior1<min2)and(prior1>min1) then begin min2:=prior1; nmin2:=1; end;
If (prior2<min2)and(prior2>min1) then begin min2:=prior2; nmin2:=2; end;
If (prior3<min2)and(prior3>min1) then begin min2:=prior3; nmin2:=3; end;
If (prior4<min2)and(prior4>min1) then begin min2:=prior4; nmin2:=4; end;
If (prior5<min2)and(prior5>min1) then begin min2:=prior5; nmin2:=5; end;
min3:=100;
If (prior1<min3)and(prior1>min2) then begin min3:=prior1; nmin3:=1; end;
If (prior2<min3)and(prior2>min2) then begin min3:=prior2; nmin3:=2; end;
If (prior3<min3)and(prior3>min2) then begin min3:=prior3; nmin3:=3; end;
If (prior4<min3)and(prior4>min2) then begin min3:=prior4; nmin3:=4; end;
If (prior5<min3)and(prior5>min2) then begin min3:=prior5; nmin3:=5; end;
min4:=100;
If (prior1<min4)and(prior1>min3) then begin min4:=prior1; nmin4:=1; end;
If (prior2<min4)and(prior2>min3) then begin min4:=prior2; nmin4:=2; end;
If (prior3<min4)and(prior3>min3) then begin min4:=prior3; nmin4:=3; end;
If (prior4<min4)and(prior4>min3) then begin min4:=prior4; nmin4:=4; end;
If (prior5<min4)and(prior5>min3) then begin min4:=prior5; nmin4:=5; end;
min5:=100;
If (prior1<min5)and(prior1>min4) then begin min5:=prior1; nmin5:=1; end;
If (prior2<min5)and(prior2>min4) then begin min5:=prior2; nmin5:=2; end;
If (prior3<min5)and(prior3>min4) then begin min5:=prior3; nmin5:=3; end;
If (prior4<min5)and(prior4>min4) then begin min5:=prior4; nmin5:=4; end;
If (prior5<min5)and(prior5>min4) then begin min5:=prior5; nmin5:=5; end;
//далее горы подобного кода (где-то 20-30 страниц):
hile t<=60 do begin
Application.ProcessMessages;
t:=t+1;
Sleep(100);
If nmin1=1 then begin
If t-tpi1=t1 then begin
i1:=i1+1;
datetime:=now;
x1:=random(311)/10+29+random(10)/10;
table1.Insert;
table1.FieldByName('znachenie').AsFloat:=x1;
table1.FieldByName('datchik').AsInteger:=1;
table1.FieldByName('oshibka').AsBoolean:=False;
table1.FieldByName('krit').AsBoolean:=False;
table1.FieldByName('DateTime').AsDateTime:=Datetime;
series1.AddXY(i1, x1, '',clred);
if (x1>60)or(x1<30) then
begin
table1.FieldByName('oshibka').AsBoolean:=True;
if (x1>60.5)or(x1<29.5) then begin
table1.FieldByName('krit').AsBoolean:=True;
Label1.Visible:=True;
end;
end;
table1.Post;
tpi1:=t;
end; //end if
end;
If nmin1=2 then begin
If t-tpi2=t2 then begin
i2:=i2+1;
datetime:=now;
x2:=random(211)/10+9+random(10)/10;
table1.Insert;
table1.FieldByName('znachenie').AsFloat:=x2;
table1.FieldByName('datchik').AsInteger:=2;
table1.FieldByName('oshibka').AsBoolean:=False;
table1.FieldByName('krit').AsBoolean:=False;
table1.FieldByName('DateTime').AsDateTime:=Datetime;
series2.AddXY(i2, x2, '',clgreen);
if (x2>30)or(x2<10) then
begin
table1.FieldByName('oshibka').AsBoolean:=True;
if (x2>30.5)or(x2<9.5) then begin
table1.FieldByName('krit').AsBoolean:=True;
Label1.Visible:=True;
end;
end;
table1.Post;
tpi2:=t;
end;курсовая работа одного студента (идущего на красный диплом, кстати)
GovnocoderJr,
25 Мая 2010
−98
<% form_tag(advertiser_creatives_path(@advertiser), :method=>'post' ) do %>
<% content_tag :table, :class => "form-tabular" do %>
<% content_tag :thead do %>
<% content_tag :tr do %>
<% tag :th, :class=>'hide'%>
<% content_tag :th do %>
Concept (optional)
<%end%>
<% content_tag :th do %>
Ad Tag
<%end%>
<% content_tag :th do %>
Click-Through URL
<%end%>
<th/>
<%end%>
<%end%>
<% content_tag :tbody, :id=>'creative_sub_forms' do %>
<% creatives.each_with_index do |creative, index|
next unless creative.new_record?
%>
<% unless creative.errors.empty? %>
<tr class='nowrap'>
<td colspan='3'>
Error:
<% creative.errors.full_messages.each do |msg| %>
<%= msg %><br/>
<%end%>
</td>
</tr>
<%end%>
<%=render :partial => 'creative_fields', :locals => {:index => index, :creative => creative}%>
<%end%>
<%end%>
<tr>
<td colspan='3'><%= link_to_add_creative_fields "Add row" %></td>
</tr>
<%end%>
<br/>
<br/>
<%= submit_tag 'Continue', :class=>'button' %>
<%end%>Товарищи, заставляйте нубой учить HTML. Ну, или HAML.
cheba,
25 Мая 2010
+120
public static bool GetUpperBit(long number)
{
return number < 0;
}Да это не ГК, но остроумный способ получить верхний бит числа.
FMB,
25 Мая 2010
+170
switch ($_POST['rate']) {
case(-3):
$r=-3;
break;
case(-2):
$r=-2;
break;
case(-1):
$r=-1;
break;
case(0):
$r=0;
break;
case(1):
$r=1;
break;
case(2):
$r=2;
break;
case(3):
$r=3;
break;
}Валидация значения рейтинга.
arsen,
25 Мая 2010
+120
///<summary>
/// Перемещение страницы в/из корзины
///</summary>
///<param name="PageID">Идентификатор страницы</param>
///<param name="Direction">Определяет в корзину или из нее перемещать страницу</param>
///<param name="Page">Экземпляр страницы</param>
///<returns></returns>
///<exception cref="Exception"></exception>
public static Exception PageToRecicle(int PageID, int Direction, Page Page)
{
SiteData data = new SiteData("MsSqlConnectionString");
SiteXml xml = new SiteXml();
Exception ee = new Exception();
SitePage page = new SitePage(Page);
if (page.StartPageID == PageID)
{
try
{
throw new Exception(xml.GetXmlResource("adminmenu.ascx", "RemoveStart"));
}
catch (Exception exc)
{
ee = exc;
}
return ee;
}
if (Direction == 0 || !SitePage.HasPageChilds(PageID, false))
{
data.ExecuteStoredProcedure("sPageToRecicle", ref ee, "@PageID", PageID, "@Direction", Direction,
"@UserName", HttpContext.Current.User.Identity.Name);
}
else
{
try
{
throw new Exception(xml.GetXmlResource("adminmenu.ascx", "RemoveError"));
}
catch (Exception exc)
{
ee = exc;
}
}
return ee;
}Это фрагмент коммерческой CMS между прочим. Если бы автор родился в Спарте, его бы незамедлительно ё*нули об скалы.
sombre-hombre,
25 Мая 2010
Follow us!