По колено в коде — Говнокод.ру

Си / Говнокод #12204

+130

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19

#include <stdlib.h>
 
struct no_matter
{
    int some_field;
};
 
struct matter *do_stuff(void)
{
    struct no_matter *m = calloc(1, sizeof *m);
    return m;
}
 
int main(void)
{
    struct no_matter *m = do_stuff();
    free(m);
    return 0;
}

Сегодня выполняю роль гумна. В сишке можно возвращать указатель на непонятно откуда взявшуюся необъявленную ранее структуру и код будет компиляться (ладно хоть пишет невнятные ворнинги, только благодаря им нашёл опечатку в одной букве в имени структуры в рабочем коде). Понятно, что все указатели одинаково числа, но всё равно как-то некрасиво. Хацкелисты негодуэ, даёшь монаду Ptr

http://ideone.com/3SABHW

roman-kashitsyn, 27 Ноября 2012

Комментарии (39)

Pascal / Говнокод #12202

+75

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

procedure TForm1.RunCode(Code:String;A,B:Cardinal);
var
i,j:Cardinal;
dpth:Word;
itrCounter:Integer;
ans:Integer;
begin
 i:=A-1;
  repeat
   i:=i+1;
    if Code[i]='>' then
     if p=30000 then p:=1 else p:=p+1;
    if Code[i]='<' then
     if p=1 then p:=30000 else p:=p-1;
    if Code[i]='+' then allspace[p]:=allspace[p]+1;
    if Code[i]='-' then allspace[p]:=allspace[p]-1;
    if Code[i]='.' then Memo2.Lines.Text:=Memo2.Lines.Text + Chr(allspace[p]);
    if Code[i]='[' then
     begin
      dpth:=0;
      j:=i;
      repeat
       if (Code[j]=']') and (dpth>0) then dpth:=dpth-1;
       j:=j+1;
       if Code[j]='[' then dpth:=dpth+1;
       if j>B then
        begin
         ShowMessage('Обнаружен незакрытый цикл. Выполнение остановится');
         running:=False;
         Exit;
        end;
      until (Code[j]=']') and (dpth=0);
      itrCounter:=0;
      while allspace[p]<>0 Do
       begin
        if running=False then Exit;
        RunCode(Memo1.Text,i+1,j-1);
        itrCounter:=itrCounter+1;
        if itrCounter=10000000 then
         begin
          ans:=MessageDlg('Выполнение программы вероятно зациклилось (прошло уже 10 000 000 итераций). Возможно код содержит ошибки.' + #13 + 'Остановить выполнение?',mtConfirmation,[mbYes,mbNo],0);
          if ans=mrYes then running:=False;
          if ans=mrNo then itrCounter:=0;
         end;
       end;
      i:=j;
     end;
    if Code[i]=',' then EnterChar;
   Application.ProcessMessages;
  until (i>=B) or (running=False);
end;

Процедура интерпретации brainfuck кода

SmseR, 27 Ноября 2012

Комментарии (164)

SQL / Говнокод #12200

−117

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19

declare
  v_bonus_account NUMBER;
  v_MSISDN VARCHAR2(32);
  l_app NUMBER;
  v_Result NUMBER;
  v_Message VARCHAR2(2000);
  var_MSISDN VARCHAR2(32);
  v_Event VARCHAR2(32);
  v_Amount NUMBER;
  o_err VARCHAR2(2000);
BEGIN
  /* Activate service */ 
  v_Result := wpt.bp_services.add_service
  ( i_app => v_MSISDN,
  i_srv => 400714,
  o_err => v_Message,
  to_date('30/12/2012','DD/MM/YYYY')
  );
END;

Локализовал код, вызывающий функцию биллинга у арабов, предложенный ими же. И который не компилится.
В ответ получаю кучу дописок с вызовами других функций, которые ко всему этому не имеют никакого отношения.
Как убедить пидарасов в том, что ошибки компиляции и ошибки времени исполнения - это как бы совсем разные вещи?
А то третья неделя уже идёт...

SadKo, 26 Ноября 2012

Комментарии (12)

PHP / Говнокод #12199

+46

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

...

//----------------------------------@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	    //обработка картинки для анонса 
	    $model->preview_picture = CUploadedFile::getInstance($model, 'preview_picture');

	    //убедимся что каталоги созданы
	    if (@mkdir($curr_month_folder, 0777))
		chmod($curr_month_folder, 0777);
	    if (@mkdir($img_dir, 0777))
		chmod($img_dir, 0777);
	    if (@mkdir($img_dir_thumbs, 0777))
		chmod($img_dir_thumbs, 0777);
	    if (@mkdir($temp_img_dir_base, 0777))
		chmod($temp_img_dir_base, 0777);
	    if (@mkdir($temp_img_dir, 0777))
		chmod($temp_img_dir, 0777);
	    if (@mkdir($temp_img_dir_snap, 0777))
		chmod($temp_img_dir_snap, 0777);

	    //если  картинка для анонса не передана
	    if (!$model->preview_picture) {
		//проверяем не была ли она загружена ранее во временую папку
		if ($form->model->image) {
		    $model->preview_picture = $form->model->image;
		}
		//а нет так нет
	    } else

...

форматирование сохранено.

Вообще весь кусок около 500 строк, а и эти 500 откопипизжены еще
в 7 методов этого класса.
...за что мне все это

Razban_Guestov, 26 Ноября 2012

Комментарии (20)

bash / Говнокод #12198

−108

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

# For bash and ksh, we can use faster builtin routines to do manipulation,
# otherwise (ash) fall back to slower method using `expr'.
# The extra level of indirection using `eval' is necessary a) for ksh, and
# b) to get past ash.

if [ "$RANDOM" != "$RANDOM" ]
then
    math () {
        eval echo "\$(($*))"
    }
    index () {  # index string c
        eval "I=\${1%$2*}"
        eval echo "\${#I}"
    }
    ...
else
    math () {
        expr "$@"
    }
    index () {  # index string c
        expr $1 : ".*$2" - 1
    }
    ...
fi

Отличный способ определения шелла из старослакварского /dev/MAKEDEV.

bormand, 26 Ноября 2012

Комментарии (12)

Си / Говнокод #12197

+133

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

#include<stdio.h>
#include<math.h>
 
int main()
{
long long a1,a2,a3,a4,t,p,l,m1,m,d1,d2,d3,d4,c1,c2,c3,c4,n,r;
double po;
 
m=1000000006;
scanf("%lld",&t);
while(t--)
     {scanf("%lld",&n);
     a1=1;a2=1;a3=1;a4=0;
     d1=1;d2=0;d3=0;d4=1;
     
     p=n-2;
while(p>0)
     {    if(p%2!=0)
        { c1=((d1*a1)%m+(d3*a3)%m);
          c2=((d1*a2)%m+(d2*a4)%m);
          c3=((d3*a1)%m+(d4*a3)%m);
          c4=((d3*a2)%m+(d4*a4)%m);
          d1=c1;d2=c2;d3=c3;d4=c4;
        }
          c1=((a1*a1)%m+(a2*a3)%m);
          c2=((a1*a2)%m+(a2*a4)%m);
          c3=((a3*a1)%m+(a4*a3)%m);
          c4=((a3*a2)%m+(a4*a4)%m);
          a1=c1;a2=c2;a3=c3;a4=c4;
          p=p/2;
     }
 l=((d1*1)%m+(d2*1)%m)%m;m1=((d3*1)%m+(d4*1)%m)%m;
 
po=pow(2,l);
r=llrintl(po)%(m+1);
 
 
printf("%lld\n",r);
}
return 0;
   }

Fai, 26 Ноября 2012

Комментарии (17)

Objective C / Говнокод #12196

−1050

1
2
3

- (void) closeApp {
   int closer = 1 / 0;
}

Закрываем программу легкой арифметикой.
Найдено в рабочем проекте.

itruf, 25 Ноября 2012

Комментарии (111)

Куча / Говнокод #12195

+120

1
2
3
4
5
6

<style>
.pitalic {
    font-style:italic;
}
</style>
<p class = 'pitalic'>блаблабла</p>

прям новый супергерой...

Snickers, 25 Ноября 2012

Комментарии (11)

Куча / Говнокод #12193

+124

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

samples = [(1,14),(2,-66),(3,-414),(4,-1180),(5,-2370),(6,-3726),(7,-4606),(8,-3864),(9,270)]
 
-- Бесконечная система уравнений для МНК
system s = zip (matrix s) (column s) where
    matrix = iterate tail . foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) 1)
    column = foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) y)
 
-- Сведение бесконечной системы к треугольному виду (первый шаг гаусса)
triangle (eq:eqs) = (eq : triangle (map (sub eq) eqs)) where
    sub eq1@(a1:as, ae) eq2@(b1:bs, be) = (zipWith f as bs, f ae be) where
        f a b = b - a * b1 / a1
 
-- Вычисление иксов (второй шаг гаусса)
calcX n = foldr calc [] . take n where
    calc (a:as, b) xs = ((b - sum (zipWith (*) as xs)) / a : xs)
 
-- метод наименьших квадратов
mnk n = reverse . calcX n . triangle . system

Метод наименьших квадратов.

http://ideone.com/CsD0ku

bormand, 25 Ноября 2012

Комментарии (52)

Куча / Говнокод #12192

+125

01
02
03
04
05
06
07
08
09
10

splitOn :: (a -> Bool) -> [a] -> [[a]]
splitOn _ [] = []
splitOn f xs = removeEmpty $ takeWhile (not . f) xs: splitOn f (dropWhile (f) $ dropWhile (not . f) xs) where
	removeEmpty [] 	= []
	removeEmpty (x:xs) 
		| null x 	= removeEmpty xs 
		| otherwise = x: removeEmpty xs

words' :: String -> [String]
words' = splitOn (flip elem " \n\r\f\t\v\160")

Еще один words'

Fai, 25 Ноября 2012

Комментарии (68)

Говнокод: по колено в коде.