Куча — Говнокод.ру

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

+73

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

program test;
uses crt;
label ww,1,2,ww2,ee,ee2,rr,rr2,tt,tt2,tt3,yy,yy2,yy3,uu,uu2,uu3,ii,ii2,ii3,ii4,oo,oo2,oo3,oo4,00,z,x,c,v;
var q,q2,w,e,r,t,w2,e2,r2,t2,t3,y,y2,y3,u,u2,u3,i,i2,i3,i4,o,o2,o3,o4:real;
begin
1:clrscr;
textcolor(4);
writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
textcolor(2);
writeln('+Если вы отвечаете "ДА",то нажимайте "1" ,а если "НЕТ",то "0"+ ');
textcolor(4);
writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln;
textcolor(2);
writeln('Ответьте пожалуйста на следующие вопросы:');
writeln('*****************************************');
textcolor(8);
writeln('Вы помните всю таблицу умножения?');
read(q);
if q=1 then begin writeln('Вы давно были на рок-концерте?');read(w);goto ww end;
if q=0 then begin writeln('Вы играете в волейбол?');read(w2);goto ww2 end;
ww:if w=1 then begin writeln('Вы играете в волейбол?');read(w2);goto ww2 end;
if w=0 then begin writeln('Вы йог?');read(e);goto ee end;
ww2:if w2=1 then begin writeln('Вы летали на истребителе?');read(e2);goto ee2 end;
if w2=0 then begin writeln('Вы йог?');read(e);goto ee end;
ee:if e=1 then begin writeln('Вы играете в очко?');read(r2);goto rr2 end;
if e=0 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
ee2:if e2=1 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
if e2=0 then begin writeln('Вы играете в очко?');read(r2);goto rr2 end;
rr:if r=1 then begin writeln('У вас смуглая кожа?');read(t);goto tt end;
if r=0 then begin writeln('У вас есть загородный дом?');read(t2);goto tt2 end;
rr2:if r2=1 then begin writeln('Вы часто лежите в больнице?');read(t3);goto tt3 end;
if r2=0 then begin writeln('У вас часто болит голова?');read(r);goto rr end;
tt:if t=1 then begin writeln('У вас есть загородный дом?');read(t2);goto tt2 end;
if t=0 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
tt2:if t2=1 then begin writeln('Вы часто лежите в больнице?');read(t3);goto tt3 end;
if t2=0 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
tt3:if t3=1 then begin writeln('Телесериалы бывают интересными?');read(y3);goto yy3 end;
if t3=0 then begin writeln('Вы пишете роман?');read(y2);goto yy2 end;
yy:if y=1 then begin writeln('Вы знаете что такое "дежа вю"?');read(u2);goto uu2 end;
if y=0 then begin writeln('Вам всегда жалко бездомных собак?');read(u);goto uu end;
yy2:if y2=1 then begin writeln('В вашем подъезде кодовый замок?');read(y);goto yy end;
if y2=0 then begin writeln('Телесериалы бывают интересными?');read(y3);goto yy3 end;
yy3:if y3=1 then begin writeln('Вы знаете что такое "дежа вю"?');read(u2);goto uu2 end;
if y3=0 then begin writeln('В детстве вы играли в индейцев?');read(u3);goto uu3 end;
uu:if u=1 then begin writeln('Вы любите варёную рыбу?');read(i);goto ii end;
if u=0 then begin writeln('Вы знаете что такое ДЕЖА ВЮ ?');read(u2);goto uu2 end;
uu2:if u2=1 then begin writeln('Вы любите вареную рыбу?');read(i);goto ii end;
if u2=0 then begin writeln('В детстве вы играли в индейцев?');read(u3);goto uu3 end;
uu3:if u3=1 then begin writeln('У вас отключена горячая вода?');read(i4);goto ii4 end;
if u3=0 then begin writeln('Макароны вы едите с хлебом ?');read(i3);goto ii3 end;
ii:if i=1 then begin writeln('Вы могли бы рекламировать бельё?');read(i2);goto ii2 end;
if i=0 then begin writeln('Вы любите петь?');read(o);goto oo end;
ii2:if i2=1 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
if i2=0 then begin writeln('Вы хотите стать гражданином США ?');read(o2);goto oo2 end;
ii3:if i3=1 then begin writeln('Вам нравятся горы?');read(o4);goto oo4 end;
if i3=0 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
ii4:if i4=1 then begin writeln('Вам нравятся горы?');read(o4);goto oo4 end;
if i4=0 then begin writeln('Вы любите морковный сок?');read(o3);goto oo3 end;
oo:if o=1 then goto z;
if o=0 then goto x;
oo2:if o2=1 then goto z;
if o2=0 then goto x;
oo3:if o3=1 then goto c;
if o3=0 then begin writeln('Вы хотите стать гражданином США ?');read(o2);goto oo2 end;
oo4:if o4=1 then goto v;
if o4=0 then goto c;
z:clrscr;
textcolor(5);
writeln('                ------ИТОГ: добрый ли вы человек?-------');
textcolor(14);
writeln('Вы случайно не мать Тереза?Бескрайняя ваша доброта...почти также как и глупость');
writeln('Мало настрадались по своей вине?То ли ещё будет.');goto 00;
x:clrscr;
textcolor(5);
writeln('                ------ИТОГ: добрый ли вы человек? -------');
textcolor(14);
writeln('Вы не безнадёжны.В детстве с вами явно занимались.Но годы делают своё дело-');
writeln('ещё немного и от ваших лучших качеств не останется и следа.');goto 00;
c:clrscr;
textcolor(5);
writeln('                -------ИТОГ: добрый ли вы человек?-------');
textcolor(14);
writeln('Брр... С вами близко лучше не знакомиться.Кошек вы конечно не мучаете ,но и на');
writeln('гуманиста абсолютно не тянете.Надо за собой следить');goto 00;
v:clrscr;
textcolor(5);
writeln('                ------ИТОГ: добрый ли вы человек? -------');
textcolor(14);
writeln('Бесцветность вашей натуры не оставляет места для разговоров о добре и зле');
writeln('В вас всего по немногу-может это и есть идеальный вариант?');goto 00;
00:writeln;
...
writeln('Если вы хотите ещё раз протестироваться нажмите "1",если нет "0"');
textcolor(4);
writeln('-----------------------------------------------------------------');
read(q2);
if q2=1 then goto 1;
if q2=0 then goto 2;
2:end.

Нашел свой старый код на паскале. Код был написан сразу после изучение конструкции if и goto. Было это в 10 классе, т.е. где-то лет 10 назад :))

Программа является реализацией точной копии теста из журнала "МК-бульвар" того времени

guest, 02 Июля 2009

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

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

+150

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

#! /bin/bash

# получаем ссылки на изображения и снабжаем файл разделителями на страницы
for ((i=1; i<=$1; i++))
do
echo ==== page $i === >>get2.txt
wget "http://chan.sankakucomplex.com/post?page=$i&tags=$2" -U "Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.7) Gecko/2009021910 Firefox/3.0.7 (.NET CLR 3.5.30729)" -O - |pcregrep -o -e 'src[^ ]+preview[^ ]+'|sed -e 's/src\=\"//g' -e 's/\"//g' -e 's/\%20/ /g' -e 's/preview\///g'  >>get2.txt
done;

# скачиваем всё, что качается
wget -nc -t 0 -i get2.txt

# очищаем и сортируем список ссылок
cat get2.txt|pcregrep -o -e 'http.+'|sort > get2.jpg.txt

# докачиваем png
ls *.jpg|pcregrep.exe -e '^[^ ]+.jpg'|sed 's/^/http:\/\/chan\.sankakucomplex\.com\/data\//'| sort>get.jpg.txt
cat get2.jpg.txt get.jpg.txt|pcregrep -o -e 'http.+'|sort|uniq -u|sed 's/jpg/png/g' > get2.png.txt
wget -nc -t 0 -i get2.png.txt

# докачиваем gif
ls *.png|pcregrep.exe -e '^[^ ]+.png'|sed 's/^/http:\/\/chan\.sankakucomplex\.com\/data\//'| sort>get.png.txt
cat get.png.txt get2.png.txt|pcregrep -o -e 'http.+'|sort|uniq -u|sed 's/png/gif/g' > get2.gif.txt
wget -nc -i get2.gif.txt

# докачиваем jpeg
ls *.gif|pcregrep.exe -e '^[^ ]+.gif'|sed 's/^/http:\/\/chan\.sankakucomplex\.com\/data\//'| sort>get.gif.txt
cat get.gif.txt get2.gif.txt|pcregrep -o -e 'http.+'|sort|uniq -u|sed 's/gif/jpeg/g' > get2.jpeg.txt
wget -nc -t 0 -i get2.jpeg.txt

# делаем батник для переименования файлов
echo -n Creating rename.bat;a=1;for i in `cat get2.txt|grep ^http | pcregrep -o -e '\/data\/[a-f0-9]+'|sed 's/\/data\///g'`; do echo move `dir $i*` `printf %06d $a`.`dir $i*`>>rename.bat;echo -n .; let "a=a+1"; done;echo Done!

# убираем за собой
#rm -f get*.txt *.htm*

грабилка донборы на баше

guest, 29 Июня 2009

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

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

+154

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

"IF ACK01 <> ""IB"" or ""IR""
{
  If Partner = ""CARDINAL HEALTH""  THEN 
  {
      if ACK01= ""IA""  and not exist LIN.SCC.4017=1  THEN ""017""  ELSE ""011""
     Else 
     {
        if Partner = ""NOVANT HEALTH"" OR ""KAISER"" OR ""KAISER HAWAII""
        then
           CASE  (ACK01)
                ""IA"":  THEN ""068""
                ""IR"" : THEN ""100""
                ""IC"" : THEN ""068""  
         else
            BLANK
       }
   } 
}"

из ТЗ

guest, 26 Июня 2009

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

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

+149

1
2
3
4
5
6
7
8

procedure main
begin
    var i = 100;
    for(var y = 0; y<=i; y++) {
        echo i+y;
        echo "\n";
    }
end;

что это за язык?

guest, 25 Июня 2009

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

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

+153

01
02
03
04
05
06
07
08
09
10
11
12
13
14

(defun lagr-poly (lpoints)
  (lambda (x)
    (let ((prod-l nil)
	  (sum-l nil))
      (loop for point in lpoints do
	   (let ((x0 (x-coord point))
		 (y0 (y-coord point)))
	     (loop for pointn in lpoints do
		  (let ((xn (x-coord pointn)))
		    (if (not (eq point pointn))
			(progn (push (/ (- x xn) (- x0 xn)) prod-l)))))
	     (push (* (product prod-l) y0) sum-l)
	     (setq prod-l nil)))
      (loop for l in sum-l sum l))))

Полином Лагранжа, ёпта!
Давно написал, сейчас даже понять не могу как работает.

guest, 17 Июня 2009

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

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

+79.5

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
52
53
54
55
56
57
58
59
60

For Each LVRefWarnItem In Me.ListViewRefWarn.ListItems 
  For Each LVDiagItem In Me.ListViewDiag.ListItems 
    For Each LVReqdClassItem In Me.ListViewReqdClass.ListItems 
      For Each LVReqdPayItem In Me.ListViewReqdPay.ListItems 
        For Each LVReqdSpecItem In Me.ListViewReqdSpec.ListItems 
          For Each LVReqingSpecItem In Me.ListViewReqingSpec.ListItems 
            For Each LVSvcItem In Me.ListViewSvc.ListItems 
              For Each LVReqdContItem In Me.ListViewReqdCont.ListItems 
                For Each LVReqingContItem In Me.ListViewReqingCont.ListItems 
                  For Each LVReqingClassItem In ListViewReqingClass.ListItems 
                    For Each LVReqingPayItem In ListViewReqingPay.ListItems 
                      For Each LVHPCodesItem In ListViewHPCodes.ListItems 
                        For Each LVHPOptionCodesItem In ListViewHPOptionCodes.ListItems 
                          For Each LVPOSItem In ListViewPOS.ListItems 
                            For Each LVReqdProvIDItem In ListViewReqdProvID.ListItems 
                              For Each LVReqingProvIDItem In ListViewReqingProvID.ListItems 
                                For Each LVAuthTypeItem In ListViewAuthType.ListItems 
                                  For Each LVMembCondItem In ListViewMemberCondition.ListItems 
                                      TempDe1.InsertRule _ 
                                         AdvancedRule, "Advanced", Me.TextGroup, Me.CheckAutoApprove.Value, _ 
                                         CDate(Me.DTPickerFromDt), CDate(Me.DTPickerToDt), ExpDate, _ 
                                         LVSvcItem.Text, LVSvcItem.ListSubItems(1).Text, LVDiagItem.Text, _ 
                                         LVDiagItem.ListSubItems(1).Text, IIf(LVSvcItem.ListSubItems.Count = 1, _ 
                                         "0", LVSvcItem.ListSubItems(LVSvcItem.ListSubItems.Count).Text), _ 
                                         LVReqdSpecItem.Text, LVReqdSpecItem.ListSubItems(1).Text, _ 
                                         LVReqdClassItem.Text, LVReqdClassItem.ListSubItems(1).Text, _ 
                                         LVReqdContItem.Text, LVReqdContItem.ListSubItems(1).Text, _ 
                                         LVReqdPayItem.Text, LVReqdPayItem.ListSubItems(1).Text, _ 
                                         LVReqingSpecItem.Text, LVReqingSpecItem.ListSubItems(1).Text, 
                                         LVReqingClassItem.Text, LVReqingClassItem.ListSubItems(1).Text, _ 
                                         LVReqingContItem.Text, LVReqingContItem.ListSubItems(1).Text, _ 
                                         LVReqingPayItem.Text, LVReqingPayItem.ListSubItems(1).Text, _ 
                                         LVHPCodesItem.Text, LVHPCodesItem.ListSubItems(1).Text, _ 
                                         LVPOSItem.Text, LVPOSItem.ListSubItems(1).Text, _ 
                                         LVReqdProvIDItem.Text, LVReqdProvIDItem.ListSubItems(1).Text, _ 
                                         LVReqingProvIDItem.Text, LVReqingProvIDItem.ListSubItems(1).Text, _ 
                                         TextDesc.Text, TextAgeFrom.Text, TextAgeTo.Text, _ 
                                         LVAuthTypeItem.Text, LVAuthTypeItem.ListSubItems(1).Text, _ 
                                         LVMembCondItem.Text, LVMembCondItem.ListSubItems(1).Text, _ 
                                         Me.cboRuleType.SelectedItem.Key, Me.txtRulePriority.Text, _ 
                                         Int(LVRefWarnItem.Text), Int(LVRefWarnItem.ListSubItems(1).Text), _ 
                                         LVHPOptionCodesItem.Text, LVHPOptionCodesItem.ListSubItems(1).Text 
                                  Next 
                                Next LVAuthTypeItem 
                              Next LVReqingProvIDItem 
                            Next LVReqdProvIDItem 
                          Next LVPOSItem 
                        Next LVHPOptionCodesItem 
                      Next LVHPCodesItem 
                    Next LVReqingPayItem 
                  Next LVReqingClassItem 
                Next LVReqingContItem 
              Next LVReqdContItem 
            Next LVSvcItem 
          Next LVReqingSpecItem 
        Next LVReqdSpecItem 
      Next LVReqdPayItem 
    Next LVReqdClassItem 
  Next LVDiagItem 
Next LVRefWarnItem

... ооп во всех позах :)

guest, 17 Июня 2009

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

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

+125

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

# /* [  <!-- */ include  <stdio.h> /*   \
  #{\
`""""true \\#{"\n#"};           \
  \
if [ -n "$ZSH_VERSION" ]; then           \
  \
  echo exec  echo I\'m a zsh script.; \
  \
elif [ -n "$BASH_VERSION" ]; then        \
  \
  echo exec  echo I\'m a bash script.; \
else  \
  echo exec  echo  I\'m  a sh  script.;    \
fi`;  #\
BEGIN{print"I'm a ", 0 ? "Ruby"  :"Perl",  " program.\n";  exit; } 
  #\
%q~            
  
set dummy =0; puts [list "I'm"  "a"  "tcl"  "script."]; exit   
  
all: ; @echo "I'm a Makefile."          \
  #*/
/*: */ enum {a, b};            \
  \
static int c99(void) {         
  
#ifndef __cplusplus /* bah */        
  
unused1: if ((enum {b, a})0)          \
  (void)0;
#endif           
  
unused2:  return a;     \
}  \
static int trigraphs(void) {         \
  \
  return sizeof  "??!"  ==  2;    \
}  \
char X;               \
  \
int main(void) {             \
  \
  struct X  {        \
  \
     char  a[2];    \
  };\
  if (sizeof(X)  !=  1) {       \
  \
printf("I'm a C++ program (trigraphs %sabled).\n",         \
  \
   trigraphs()  ? "en"  : "dis");\
  \
}else if (1//**/2
 
 
)unused3 : { ; \
    printf("I'm a C program (C%s, trigraphs %sabled).\n", \
        c99() ? "89 with // comments" : "99", \
        trigraphs() ? "en" : "dis"); \
  } else { \
    printf("I'm a C program (C89, trigraphs %sabled).\n", \
        trigraphs() ? "en" : "dis"); \
  } \
  return 0; \
} /*
# \
> main :: IO () -- -- \
> main = putStr "I'm a Literate Haskell program.\n"
# \
]>++++++++[<+++++++++>-]<+.>>++++[<++++++++++>-]<-.[-]>++++++++++ \
[<+++++++++++>-]<-.>>++++[<++++++++>-]<.>>++++++++++[<++++++++++> \
-]<- - -.<.>+.->>++++++++++[<+++++++++++>-]<++++.<.>>>++++++++++[ \
<++++++++++>-]<+++++.<<<<+.->>>>- - -.<+++.- - -<++.- ->>>>>+++++ \
+++++[<+++++++++++>-]<- - -.<<<<<.<+++.>>>.<<<-.- ->>>>+.<.<.<<.> \
++++++++++++++.[-]++++++++++"""`
# \
print "I'm a Python program."; """[-][--><html><head>
<!--:--><title>I'm a HTML page</title></head><body>
<!--:--><h1>I'm a <marquee><blink>horrible HTML</blink></marquee> page</h1>
<!--:--><script language="Javascript">
<!--: # \
setTimeout( // \
  function () { // \
   document.body.innerHTML = "<h1>I'm a javascript-generated HTML page</h1>"; // \
  }, 10000); // \
//-->
</script><!--: \
</body></html><!-- } # \
say "I'm a Perl6 program", try { " ($?PUGS_VERSION)" } // "", "."; # """ # */
#define FOO ]-->~

Программа-полиморф hello world на 15 языках. Работает в C, C++, Haskell, Ruby, Python, Perl(x2), HTML, tcl, bash, zsh, make, bash и brainfuck.

guest, 16 Июня 2009

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

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

+146

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

(
 define
 (
  lazy-reader
  reader
 )
 (
  lambda
  (
   port
  )
  (
   make-lazy-list1
   (
    lambda
    (
    )
    
    (
     let
     (
      (
       it
       (
        reader
        port
       )
      )
     )
     (
      if
      (
       eof-object?
       it
      )
      '
      (
      )
      it
     )
    )
   )
  )
 )
)

Идиотское форматирование в Scheme

guest, 12 Июня 2009

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

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

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

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