- 1
- 2
- 3
<? if($sess_gr==1||$sess_gr==7||$sess_gr==11||$sess_gr==2||$sess_gr==3){?>
<? if($sess_gr==1||$sess_gr==7||$sess_gr==11||$sess_gr==2||$sess_gr==3){?><td rowspan="2"></td><?}?><td rowspan="2"></td>
<? }?>
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+155
<? if($sess_gr==1||$sess_gr==7||$sess_gr==11||$sess_gr==2||$sess_gr==3){?>
<? if($sess_gr==1||$sess_gr==7||$sess_gr==11||$sess_gr==2||$sess_gr==3){?><td rowspan="2"></td><?}?><td rowspan="2"></td>
<? }?>
Контрольный IF, на случай, если PHP с первого раза не понял
+138
if ("A" == Key.ToUpper().Substring(startIndex, 1))
num = 11L;
else if ("B" == Key.ToUpper().Substring(startIndex, 1))
num = 12L;
else if ("C" == Key.ToUpper().Substring(startIndex, 1))
num = 13L;
else if ("D" == Key.ToUpper().Substring(startIndex, 1))
num = 14L;
else if ("E" == Key.ToUpper().Substring(startIndex, 1))
num = 15L;
else if ("F" == Key.ToUpper().Substring(startIndex, 1))
num = 16L;
else if ("0" == Key.ToUpper().Substring(startIndex, 1))
num = 0L;
else if ("1" == Key.ToUpper().Substring(startIndex, 1))
num = 1L;
else if ("2" == Key.ToUpper().Substring(startIndex, 1))
num = 2L;
else if ("3" == Key.ToUpper().Substring(startIndex, 1))
num = 3L;
else if ("4" == Key.ToUpper().Substring(startIndex, 1))
num = 4L;
else if ("5" == Key.ToUpper().Substring(startIndex, 1))
num = 5L;
else if ("6" == Key.ToUpper().Substring(startIndex, 1))
num = 6L;
else if ("7" == Key.ToUpper().Substring(startIndex, 1))
num = 7L;
else if ("8" == Key.ToUpper().Substring(startIndex, 1))
num = 8L;
else if ("9" == Key.ToUpper().Substring(startIndex, 1))
{
num = 9L;
}
Программист, писавший ЭТО считал себя очень большим талантом и был даже тех.диром, пока не уволили....))
+116
string pattern = @"\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?";
Регулярка для IP //_*)
+6
list* down_if_valid_me(void)
{
return this ? this->down() : NULL;
}
+31
for (int i = 1; i++; i <= 20) {
if (ExecSQL(...) >= 0) {
Ok_rekord=true;
break;
}
if (i == 20) {
if (ExecSQL(...) < 0) {
// показываем сообщение об ошибке
} else {
Ok_rekord=true;
}
}
}
Вот такой вот цикл для повтора при дедлоке...
−148
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
sub get0 { print("get0\n"); return 0; }
sub get2 { print("get2\n"); return 2; }
my ($a, $b) = (1, 1);
$a ? $b = get0() : $b = get2();
print Dumper({
'a' => $a,
'b' => $b,
});
Результат несколько обескураживает :)
http://ideone.com/V60Y1L
+156
private static BigInteger result = 0;
static BigInteger F1 = 1;
static BigInteger F2 = 1;
static BigInteger provv;
static BigInteger provv2;
static void Main(string[] args)
{
for (BigInteger number = 3; result == 0; number++)
{
provv2 = F2;
F2 = F2 + F1;
F1 = provv2; ;
if (HasProperty(F2.ToString()))
result = number;
}
}
private static bool HasProperty(string number)
{
if (number.Length < 9)
return false;
if (IsPandigital(number.Substring(0, 9)))
if (IsPandigital(number.Substring(number.Length - 9, 9)))
return true;
return false;
}
private static bool IsPandigital(string result)
{
int repetitions;
for (int count = 0; count < 9; count++)
{
repetitions = 0;
for (int count2 = 0; count2 < 9; count2++)
{
if (result.ElementAt(count).ToString() == "0")
return false;
if (result.ElementAt(count).ToString() == result.ElementAt(count2).ToString())
{
repetitions++;
if (repetitions == 2)
return false;
}
}
}
return true;
}
http://projecteuler.net/problem=104
http://projecteuler.net/thread=104;page=6
>brute force approach,solved aproximately in 24 hours
>solved aproximately in 24 hours
>24 hours
>24
>hours
Терпеливый, сука!
+1001
bool f = true;
short c0 = a0, c1 = a1, c2 = a2, c3 = a3;
if (a0 < c1) { f = false; a0 = c1; a1 = c0 - c1; a2 = c1 - c2; a3 = c1 - c3; }
if (a0 < c2) { f = false; a0 = c2; a1 = c2 - c1; a2 = c0 - c2; a3 = c2 - c3; }
if (a0 < c3) { f = false; a0 = c3; a1 = c3 - c1; a2 = c3 - c2; a3 = c0 - c3; }
if (f) { a0 = c0; a1 = c0 - c1; a2 = c0 - c2; a3 = c0 - c3; }
Чувак не знает про else / else if. :(
+112
ТАЩИТЕ ЛЕСТНИЦУ!
+155
procedure TForm1.Image1Click(Sender: TObject);
begin
sPictureName := Label2.Caption;
Form2.Show;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
sPictureName := Label3.Caption;
Form2.Show;
end;
Знаю конечно что уныло, но по моему делать одну процедуру из-за этого слишком геморройно. С тем же массивом из 2-х элементов хотя бы. Говно ли?