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

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

+141.8

01
02
03
04
05
06
07
08
09
10
11

proc redraw_level {level val} {
    global lnames countries towns provinces sublocations positions

    set parent [expr $level - 1]
    set pvalue [.f$parent.l get [lindex $positions $parent]]
    set curlist [lindex $lnames $level]($pvalue)
    if {$val!=""} {lappend $curlist $val}
    .f$level.l delete 2 end
    eval set list_vals $$curlist
    eval .f$level.l insert end $list_vals
}

Поскольку начал писать на TCL пару дней назад, ну просто не знаю, как изящно сделать. Опять на DCL смахивает...

nil, 19 Января 2010

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

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

+80

1
2
3
4
5
6
7
8

Очередное обновление на сайте Говнокод.ру!

Что нового:
1) отсылка комментариев по Ctrl+Enter
2) Новый раздел "Сток", в котором будут собраны последнии комментарии
3) Мы наконец-то починили отсылку почты с сайта!
4) Из мелочей следует отметить сервис восстановления забытых паролей и автоматическое скрытые заминусованных комментариев
5) Говнокод.ру еще быстрее и еще стабильнее!

По всем вопросам, предложениям и баг-репортам обращаться по контактам, указанным на странице "Обратная связь" (ссылка внизу страницы)

striker, 17 Января 2010

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

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

+126.6

1

<meta млн="" $42="" за="" рынке,="" масличном="" на="" оператора="" украинского="" крупнейшего="" group,="" allseeds="" доли="" контрольной="" приобретении="" о="" соглашение="" подписала="" Украины,="" групп="" агропромышленных="" крупнейших="" из="" одна="" ,="" Групп="" Кернел="" content="" name="description"/>

Говнодвижок слепил описание странички.

condemetrius, 14 Января 2010

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

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

+115.7

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

(defun create (a) ;; список из составляющих атомов списка A
	(cond
		((null a) nil)
		((atom a) (list a))
		(T (append (create (car a)) (create (cdr a))))
	)
)

(defun uniq (a) ;; оставить только уникальные атомы
	(cond 
		((null a) nil)
		((member (car a) (cdr a)) (uniq (cdr a)))
		(t (cons (car a) (uniq (cdr a))))
	)
)

(defun compare (a b) ;; сравнение состава списков
	(if (= (length a) (length b)) 
		(diff a b) 
		nil
	)
)

(defun diff (a b) ;; проверка состава 2x списков
	(cond
		((null a) T)
		(T (if (member (car a) b) 
			(diff (cdr a) b) 
			nil )
		)
	)
)

(defun main (a b)
	(compare
		(uniq (create a))
		(uniq (create b))
	)
)

а нужно было всего то проверить состоят ли 2 списка из одних и тех же атомов

xXx_totalwar, 31 Декабря 2009

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

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

+122.4

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

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" runat="Server">

       <!--

POSTER PHOTO

-->
    <div id="poster-photo-container">
        <img src="images/photo-poster.jpg" alt="" class="poster-photo-image" />
          <div id="feature-area-home">
          
              <div id="login" class="boxed">
			<h2 class="title">Аккаунт пользователя</h2>
			<div class="content">
					<fieldset>
					<legend>Войти</legend>
					<label for="inputtext1">Аккаунт :</label>
					<input id="inputtext1" type="text" name="inputtext1" value="" />
					<label for="inputtext2">Пароль :</label>
                        <input id="inputtext2" type="password" name="inputtext2" value="" />
                        <asp:Button ID="Button1" runat="server" Text="Войти" onclick="Button1_Click" />

                         <p><a href="#">Забыли пароль ?</p>
					    </a>
					</fieldset>
				</div>
				
		</div>
        </div>
    </div>
    <!--

CONTENT CONTAINER

-->
    <div id="content-container-two-column">
        <!--

CONTENT MAIN COLUMN

-->
        <div id="content-main-two-column">
            <h1>
                <span lang="ru">Контроль измерительных приборов.</span> </h1>
            <p>
                Consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet
                dolore magna aliquam erat volutpat.</p>
            <div id="three-column-container">
                <div id="three-column-side1">
                    <a href="Items.aspx">
                        <img src="images/home-photo-1.jpg" class="photo-border" alt="Enter Alt Text Here" /></a>
                    <h2>
                        <span lang="ru">Хромотографы ?</span></h2>
                    <p>
                        <span lang="ru">11111111</span></p>
                    <span lang="ru">
                    <a href="Items.aspx">Подробнее</a></span><img class="arrow" src="images/arrow.gif" alt="" /></div>
            </div>
        </div>
        <!--

CONTENT SIDE COLUMN

-->
        <div class="clear">
        </div>
    </div>
</asp:Content>

Найти DIV

Nemerle, 28 Декабря 2009

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

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

+122.6

01
02
03
04
05
06
07
08
09
10

<html>
    <head>
    </head>
    <body>
        <table class="fon_verstala_mudak" width="939" cellspacing="0" cellpadding="0" border="0" align="center">
        </table>
        <table class="fon2_verstala_mudak" width="939" cellspacing="0" cellpadding="0" border="0" align="center">
        </table>
    </body>
</html>

Как потерять клиента из-за верстальщика-мудака?
Хотел купить телефон, но сначала заглянул как свёрстан сайт... Про то что кроссбраузерность даже на костылях мимо не проходила я промолчу, но код начисто отбил желание отовариваться у них.

VanSanblch, 17 Декабря 2009

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

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

+130

1
2

for INPUTFILE in `ls ${_BUILD_DIR}/db/full/migrate[0-9].sql`; do
	STAGE=`basename $INPUTFILE | awk -F "" '{print $8}'`

Я видел много, но чтобы ТАК получали символ из строки...
awk - поистине многофункциональный язык!

nil, 16 Декабря 2009

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

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

+101.8

1
2
3
4
5
6
7

if formnaam='UBI_LABELS'
	do sqlcode with 'exec sp_kaartbak_overzicht ?mloginid, ?formnaam, ?mfilter0, ?mfilter1, ?mfilter2, ?mfilter3, ?mfilter4, ?mfilter5, ?mfilter6, ;
	?mfilter7,?mfilter8,?vnaam,?tnaam, ?vpartijnr, ?tpartijnr, ?vlokatie,?tlokatie,?vdatum, ?tdatum, ?mkg, ?moptie1','novzkrt1', 'ovzkaartbak.prg'
else
	do sqlcode with 'exec sp_kaartbak_overzicht ?mloginid, ?formnaam, ?mfilter0, ?mfilter1, ?mfilter2, ?mfilter3, ?mfilter4, ?mfilter5, ?mfilter6, ;
	?mfilter7,?mfilter8,?vnaam,?tnaam, ?vpartijnr, ?tpartijnr, ?vlokatie,?tlokatie,?vdatum, ?tdatum, ?mkg, ?moptie1','novzkrt1', 'ovzkaartbak.prg'
endif

Visual FoxPro. Иллюзия выбора.

bolkhovsky, 10 Декабря 2009

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

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

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