Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+146
(
define
(
lazy-reader
reader
)
(
lambda
(
port
)
(
make-lazy-list1
(
lambda
(
)
(
let
(
(
it
(
reader
port
)
)
)
(
if
(
eof-object?
it
)
'
(
)
it
)
)
)
)
)
)Идиотское форматирование в Scheme
guest,
12 Июня 2009
+129.6
TYPE
Numbers=RECORD
a:ARRAY 1000 OF INTEGER;
N:INTEGER;
END;
........
PROCEDURE Summ(OUT res:Numbers;IN a,b:Numbers); (*Проверена*)
VAR
max,i,sum:INTEGER;
BEGIN (*Суммирование*)
IF a.N>b.N THEN
max:=a.N;
ELSE
max:=b.N;
END;
i:=0;
sum:=0;
WHILE i<=max DO
IF i<=a.N THEN
sum:=sum+a.a[i];
END;
IF i<=b.N THEN
sum:=sum+b.a[i];
END;
res.a[i]:=sum MOD 10;
sum:=sum DIV 10;
i:=i+1;
END;
IF sum>0 THEN
res.N:=max+1;
res.a[max+1]:=sum;
ELSE
res.N:=max;
END;
END Summ;
Кусок из написанной одним энтузиастом-программером реализации длинной арифметики (комментарии сохранены)
4 байта под каждую десятичную цифру. Много? Зато все понятно, как в школе ;)
шесть + семь = три, единица на ум пошла...
P.S. язык оберон - наследник паскаля
guest,
10 Июня 2009
+152
<xsl:variable name="regexp">
<xsl:text disable-output-escaping="yes">^(?:(?:(?:0?[13578]|1[02])(\/|-|\.)31)\1|(?:(?:0?[13-9]|1[0-2])(\/|-|\.)(?:29|30)\2))(?:19\d\d|20\d\d|\*\*\*\*)$|^(?:0?2(\/|-|\.)29\3(?:(?:(?:19|20)?(?:0[48]|[2468][048]|[13579][26])|(?:(?:19|[2468][048]|[3579][26])00))))$|^(?:(?:0?[1-9])|(?:1[0-2]))(\/|-|\.)(?:0?[1-9]|1\d|2[0-8])\4(?:19\d\d|20\d\d|\*\*\*\*)$</xsl:text>
</xsl:variable>В XSLT - регулярное выражение то ли для показа, то ли для валидации дня рождения.
guest,
10 Июня 2009
+147
<img src="/templates/images/logo.png" alt="Говнокод.Ру" title="Да, это говно!" />
Govnokod.ru
...
<b class="r1"></b><b class="r1"></b><b class="r1"></b><b class="r2"></b><b class="r2"></b><b class="r3"></b><b class="r4"></b><b class="r5"></b><b class="r7"></b><b class="r10"></b>
Говнокод на govnokod
строка 6 убила
guest,
03 Июня 2009
+144
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>lolo</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<style type="text/css">
.top_mnth_block1
{
width:275px;
height:400px;
background:url(http://foreverfree.ru/templates/images/top_month_poster.png) no-repeat 0 0;
}
.top_mnth_block1 p.top_mnth_block1_p
{
margin: 0;
padding: 62px 40px 0;
height: 300px;
overflow: hidden;
color: #fdc;
}
</style>
</head>
<body>
<div class="top_mnth_block1">
<p class="top_mnth_block1_p">Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nam eu dui nec elit aliquam convallis. Donec a massa. In condimentum eros id enim. Phasellus sed libero. Duis ac lacus. In turpis felis, aliquam vitae, lacinia quis, egestas fermentum, lorem. In vulputate sem et lectus. Curabitur euismod, nunc a condimentum condimentum, odio mauris ultricies erat, quis vestibulum enim ante non elit. Phasellus sollicitudin, nisi vestibulum mollis consequat, metus nisl sollicitudin dui, posuere cursus tortor lectus vitae sem. Mauris semper dui sed velit. Aliquam fringilla sem ac eros. Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Class aptent taciti sociosqu ad litora torquent per conubia nostra, per inceptos himenaeos. Quisque quis nisl a neque pharetra tristique. Fusce tellus diam, convallis sit amet, ullamcorper et, euismod et, urna. Curabitur quis justo. Proin leo. Nulla nec ipsum non leo suscipit egestas. Morbi ut felis. Aliquam erat volutpat. Sed nulla urna, tristique eget, suscipit a, sollicitudin ut, purus. Duis tristique, neque sed ullamcorper elementum, enim massa rutrum massa, id aliquam elit ante a dolor. Pellentesque elementum mauris ac nunc. Proin id eros. Ut pharetra eros sit amet purus. Phasellus convallis sem at tellus. Quisque eu nunc.</p>
</div>
</body>
</html>
Скриншот:
http://i42.tinypic.com/2q2mz3c.png
guest,
27 Мая 2009
+146
#import "Hehe.h"
@implementation Hehe
- (IBAction)click {
[textArea setText:(@"Hello World!")];
}
@endObjective-C =) Помойму самый красивый ейзык =)
guest,
26 Мая 2009
+153
PROCEDURE changeValue ( KeyStore:IN OUT Keys'Class; value: IN INTEGER )
IS
BEGIN
IF value = 1024 THEN
Message ( "NOT IN RANGE" );
ELSIF value = 2048 THEN
Message ( "OUT OF RANGE" );
ELSIF value = KeyStore.def THEN
KeyStore.val = value;
ELSE
Message ( "IN RANGE");
END IF;
END changeValue;
Какой-то наркоманский код.
Трезвый такого не напишет.
Почему приходится дорабатывать такое... будто за кем-то ж.. подтираешь:)
guest,
20 Мая 2009
+135.9
Arch Moscow
« Error »
Etomite encountered the following error while attempting to parse the requested resource:
« PHP Parse Error »
PHP error debug
Error: mysql_connect() [function.mysql-connect]: Can't connect to MySQL server on 'localhost' (10061)
Error type/ Nr.: Warning - 2
File: C:\xampp\htdocs\archmoscow\index.php
Line: 1321
Line 1321 source: if(@!$this->rs = mysql_connect($this->dbConfig['host'], $this->dbConfig['user'], $this->dbConfig['pass'])) {
Parser timing
MySQL: 0.0000 s s (0 Requests)
PHP: 1.0846 s s
Total: 1.0846 s sВот на чем работают сайты крупных выставочных агенств... А вы говорите FreeBSD!
guest,
18 Мая 2009
+136
<div class="twothird-column-with-border float-left margin-bottom-6px dark-grey-border">
<div class="twothird-column-body-with-border-and-padding float-left">
.....................
</div>
</div>Говновёрстка, говноклассы :)
guest,
17 Мая 2009
+141.8
FUNCTION mimi (a, b, c)
RETURNS (res);
SUBDESIGN kuku
(
clk,d: INPUT;
q[8..0],enn: OUTPUT;
)
VARIABLE
mimi1:mimi;
reg[8..0]:dff;
c1[1..0]:dff;
c2[2..0]:dff;
t[1..0]:dff;
sm : MACHINE
WITH STATES (waiting,working,ending);
BEGIN
reg[].clk=clk;
c1[].clk=clk;
c2[].clk=clk;
t[].clk=clk;
sm.clk=clk;
mimi1.a=t[0];
mimi1.b=t[1];
mimi1.c=d;
q[]=reg[].q;
IF sm == waiting THEN
IF d == vcc THEN
c2[].d = 0;
reg[].d = 0;
t[] = 0;
CASE c1[].q IS
WHEN 0 =>
c1[].d = 1;
WHEN 1 =>
c1[].d = 2;
WHEN 2 =>
c1[].d = 0;
sm = working;
END CASE;
ELSE
sm = waiting;
c1[].d = 0;
c2[].d = 0;
reg[].d = 0;
t[] = 0;
END IF;
END IF;
IF sm == working THEN
CASE c1[].q IS
WHEN 0 =>
c1[].d = 1;
c2[].d = c2[].q;
reg[].d = reg[].q;
t[0].d = d;
t[1].d = t[1].q;
WHEN 1 =>
c1[].d = 2;
c2[].d = c2[].q;
reg[].d = reg[].q;
t[0].d = t[0].q;
t[1].d = d;
WHEN 2 =>
c1[].d = 0;
c2[].d = c2[].q + 1;
reg[0].d = mimi1.res;
FOR I IN 1 TO 8 GENERATE
reg[i].d = reg[i-1].q;
END GENERATE;
IF c2[].q == 7 THEN
sm = ending;
ELSE
sm = working;
END IF;
END CASE;
END IF;
IF sm == ending THEN
reg[].d = reg[].q;
IF d == vcc THEN
CASE c1[].q IS
WHEN 0 =>
c1[].d = 1;
WHEN 1 =>
c1[].d = 2;
WHEN 2 =>
c1[].d = 0;
sm = waiting;cool hdl code!
guest,
13 Мая 2009
Follow us!