- 1
- 2
- 3
for i in range(4, len(l)):
if l[i] - l[i - 1] == 1 and l[i - 1] - l[i - 2] == 1 and l[i - 2] - l[i - 3] == 1 and l[i - 3] - l[i - 4] == 1:
return True
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−142
for i in range(4, len(l)):
if l[i] - l[i - 1] == 1 and l[i - 1] - l[i - 2] == 1 and l[i - 2] - l[i - 3] == 1 and l[i - 3] - l[i - 4] == 1:
return True
Нужно было найти в списке 5 элементов, которые могут начинаться на любой позиции, но должны идти по порядку (например [9, 10, 11, 12, 13]). Не придумал ничего лучше :(
+89
pp = pp++;
Что хотел сказать автор?...
−84
Macro BL(X):For I=0 To 3:X:Next:EndMacro:Dim G(14,28):Dim G2(14,28):Dim C(1)
Macro IT:X+PX(PC,I,Rt),Y+PY(PC,I,Rt):EndMacro:Dim PX(6,3,3):Dim PY(6,3,3)
Macro F(X,Y):For X=0 To Y:EndMacro:Macro N:Next:EndMacro:Macro Q:EndIf:EndMacro
F(I,28):G(1,I)=1:G(13,I)=1:G(I%13,27)=1:N:F(Pe,6):eC=0:F(Eg,1):F(PL,3)
If Val("$"+Mid("33F06336747172",2*Pe+1+Eg,1))&(1<<PL):F(Ag,3):Y=1-PL:A=1.57*Ag;
C=Cos(A):S=Sin(A):PX(Pe,eC,Ag)=C*Eg-S*Y:PY(Pe,eC,Ag)=S*Eg+C*Y:N:eC+1:Q:N:N:N
Macro K0:AddKeyboardShortcut:EndMacro:OpenWindow(0,0,0,208,432,"",$CF0001)
K0(0,37,10):K0(0,40,32):K0(0,39,12):K0(0,38,16):X=7:Y=2:D=1000:C(0)=$FFFFFF
C(1)=$1:Ok=1:Repeat:Delay(1):Et=WindowEvent():StartDrawing(WindowOutput(0))
F(A,28):F(B,14):Box(B*16-16,(A-1)*16,16,16,C(G(B,A)|G2(B,A))):N:N:StopDrawing()
If Ok:BL(G2(IT)=0):MN=0:If Et=13101:MN=EventMenu():If MN=32:CH!1:Q:Q
EL=ElapsedMilliseconds():If EL>T Or CH:T=EL+D:Y+1:Q:CA=0:F(I,3):If G(IT):CA=1:Q
N:If CA:Y-1:CH=0:MN=0:BL(G(IT)=1):X=7:Y=2:SC+1:If D>100:D-10:Q:DY=0
For Y3=26 To 0 Step -1:CM=1:For X3=1 To 12:If G(X3,Y3)=0:CM=0:Q
G(X3,Y3+DY)=G(X3,Y3):N:If CM:DY+1:Q:If Y3-DY<=0:Break:Q:N:SC+(DY*(DY+1))
SetWindowTitle(0,Str(SC)):PC=Random(6):Rt=Random(3):Ok=1:F(I,3):If G(IT):Ok=0:Q
N:Else:BL(G2(IT)=1):Q:BL(G2(IT)=0):NS=0:If MN&8:NS=MN-11:Q:If NS:X+NS:Q:C0=0
F(I,3):If G(IT):C0=1:Q:N:If C0:X-NS:Q:If MN&16:Rt+1:Rt&3:Q:C3=0:F(I,3):If G(IT)
C3=1:Q:N:If C3:Rt-1:Rt&3:Q:BL(G2(IT)=1):Q:Until Et=16
Тетрис на PureBasic
+166
function gp($points){
if ($points > 10){
$points = $points % 10;
}
switch ($points) {
case 1: return "балл";
case 2: return "балла";
case 3: return "балла";
case 4: return "балла";
default: return "баллов";
}
}
жесть :)
+148
private $title_host='Посещаемость (уникальных посетителей в сутки)';
private $title_download='ПРОГОРОД скачан (количество скачиваний программы в сутки)';
private $title_sell='ПРОГОРОД куплен (количество покупок ПРОГОРОД в сутки)';
private $title_sellshop='ПРОГОРОД офлайновые активации (количество в сутки)';
+157
//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
# define False (0)//!!!!!!!!!!!!!!
# define True (!(False))//!!!!!!!!
# define Default (~(False))//!!!!
printf("%s\n", typeid(False).name());
printf("%s\n", typeid(True).name());
True и False имеют разные типы.
+152
char * Dictionary::GetWord(int index)
{
return (char *)dictionary[index].c_str();
}
Свежее из кандидатских заданий
+118
public static IEnumerable<Tuple<A1, A2, A3, A4>>
CrossProduct<A1, A2, A3, A4>
(IEnumerable<A1> arg1, IEnumerable<A2> arg2,
IEnumerable<A3> arg3, IEnumerable<A4> arg4)
{
foreach (var a1 in arg1)
foreach (var a2 in arg2)
foreach (var a3 in arg3)
foreach (var a4 in arg4)
yield return Make.Tuple(a1, a2, a3, a4);
}
Интересно, а что этот человек будет делать, когда нужно будет n ступенек? :-)
+113
//java.io.Bits
static void putDouble(byte[] b, int off, double val) {
long j = Double.doubleToLongBits(val);
b[off + 7] = (byte) (j >>> 0);
b[off + 6] = (byte) (j >>> 8);
b[off + 5] = (byte) (j >>> 16);
b[off + 4] = (byte) (j >>> 24);
b[off + 3] = (byte) (j >>> 32);
b[off + 2] = (byte) (j >>> 40);
b[off + 1] = (byte) (j >>> 48);
b[off + 0] = (byte) (j >>> 56);
}
остальное содержимое класса в таком же стиле
+144
<?
class db // mysql funkciju klase
{
var $id = '';
function connect() // prisijungimas prie mysql serverio
{
$this->id = mysql_connect($this->host, $this->user, $this->pass);
if ( !$this->id || !mysql_select_db($this->db, $this->id) ) {
die ("mysql connect failed: " . mysql_error());
return false;
}
else {
return $this->id;
}
}
function query ($query, $silent = 0) // duotos uzklausos vykdymas
{
$this->result = '';
if ($this->result = mysql_query($query)) { //var_dump($query);
return $this->result;}
else
if ($silent == 0)
die("mysql query failed: " . mysql_error());
else
die("Atsiprasome, jusu uzklausos negalejome apdoroti");
}
function fetch ($result) // rezultato grazinimas pagal uzklausa. grazinamas masyvas
{
$this->row = '';
if ($this->row = mysql_fetch_array($result)) { //var_dump($this->row);
return $this->row;}
}
function fetchrow ($result) {
$this->row = '';
if ($this->row = mysql_fetch_row($result))
return $this->row;
}
function num($result) // suskaiciuoja kiek yra eiluciu rezultate
{
$this->num = '';
if ($this->num = mysql_num_rows($result))
return $this->num;
}
function last($result) {
$this->last = '';
if ($this->last = mysql_insert_id($this->id))
return $this->last;
}
function close() {
mysql_close();
return true;
}
}
?>
(предыдущие серии в http://govnokod.ru/3526, http://govnokod.ru/3525, http://govnokod.ru/3524 и http://govnokod.ru/3522)
класс, то ли аффтарописный, то ли из ынтырнета с его комментами.
кому лень обращать внимание на код:
1. обьявление полей host, user, pass я не нашел, зато нашел обращение к ним
2. функции возвращают что-то в нормальных условиях, иначе не возвращают совсем ничего
3. в 20й строке $silent = 0, но запрос умирает при любом значении
4. метод num() даже в нормальной ситуации может не вернуть ничего
5. close() успешен в любом случае