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

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

+115

1
2
3
4

-- Настало время запостить самое главное гавно Хаскеля:
-- http://www.johndcook.com/blog/2010/05/18/pure-functions-have-side-effects/
-- У чистых функций всегда есть side-effects, которые выражаются в пожирании памяти и CPU. 
-- Очевидно конечно, но почему об этом не орут на первой странице каждой книги по функциональному программированию?

Я проверил, код компилируется:
http://ideone.com/sozuV

HaskellGovno, 23 Августа 2012

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

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

+141

1
2
3
4
5

<select>
	<option class="a2" value="0" selected="selected">любой возраст</option>
	<option class="a2" value="1">0 мес - 6 мес</option>
	<option class="a2" value="2">0 мес - 12 мес</option>
</select>

selected="selected" для элемента, выбираемого по дефолту - зачем?
ps. Код - кусок статичного html.

domaster, 22 Августа 2012

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

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

+125

1

sed -e 's/^/;;/g;s/$/ /g' -e :a -e '1!x;1h;s/.*\(.\)$/\1/;p;x;s/\(.*\).$/\1/;h;ta' ~/src/find_world.sh |  sed -e :a -e 'N;s/\n//g;ba' | sed -e 's/;;/\n/g' -e 's/^[ ]*//g'

rev

AliceGoth, 20 Августа 2012

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

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

+129

1
2

http://allcred.ru/2012/01/
Всё внимание на заголовок страницы

Какой-то левый сайт, занимающийся непонятно чем.
Случайно наткнулся в гугле.

krypt, 20 Августа 2012

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

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

+127

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

function name = monthName( m )

switch m
    case 1
        name = 'Jan';
    case 2 
        name = 'Feb';
    case 3
        name = 'Mar';
    case 4
        name = 'Apr';
    case 5
        name = 'May';
    case 6
        name = 'Jun';
    case 7 
        name = 'Jul';
    case 8 
        name = 'Aug';
    case 9 
        name = 'Sep';
    case 10 
        name = 'Oct';
    case 11
        name = 'Nov';
    case 12 
        name = 'Dec';
end

MATLAB. Источник: http://berkeleyearth.org/results-summary/ - почитайте, что за проект. А ноги растут вот отсюда: http://www.sfgate.com/science/article/UC-climate-change-skeptic-changes-views-3748148.php

Этот отрывок присутствует в двух файлах, я нашел его после беглого просмотра. Может быть, я ничего не понимаю в научных расчетах и совершенно незнаком с синтаксисом MATLAB, но есть у меня подозрения, что здесь что-то не так.

Папки с тестами к коду я не нашел. Сижу вот, думаю...

scriptin, 20 Августа 2012

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

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

+141

1
2
3
4

http://www.ubuntu.com/download/desktop
1. Открыть страницу в Firefox/Google-Chrome.
2. Сверху над кнопкой "Download" сменить с 32 бит на 64 бит.
3. Посмотреть внимательно на URL, откуда будет загружатся имидж.

Код, который это делает трудно понять без контекста.

wvxvw, 16 Августа 2012

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

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

+129

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

duration = song.getTrack(track).getMeasure(measure).getBeat(beat).getVoice(VOICE).getDuration().getValue();
							switch (duration) {
							case 1: convertedDuration = 254;
							break;
							case 2: convertedDuration = 255;
							break;
							case 8: convertedDuration = 1;
							break;
							case 16: convertedDuration = 2;
							break;
							case 32: convertedDuration = 3;
							break;
							case 64: convertedDuration = 4;
							break;
							case 128: convertedDuration = 5;
							break;
							case 256: convertedDuration = 6;
							break;
							case 512: convertedDuration = 7;
							break;
							case 1024: convertedDuration = 8;
							break;
							case 2048: convertedDuration = 9;
							break;
							case 4096: convertedDuration = 10;
							break;
							case 8192: convertedDuration = 11;
							break;
							case 16384: convertedDuration = 12;
							break;
							case 32768: convertedDuration = 13;
							break;
							case 65536: convertedDuration = 14;
							break;
							default: convertedDuration = 0;
							}

Источник не известен, гуляет сейчас в офисе по чату

krypt, 15 Августа 2012

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

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

+128

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

rotate n xs = b ++ a
    where n'     = n `mod` (length xs)
      (a, b) = splitAt ((length xs) - n') xs

rotateAmount xs = _ra 0 ((length xs) - 1) (listArray (0, ((length xs) - 1)) xs)
    where _ra s e ys = if (e - s) == 1 
                       then (if ((ys ! s) &lt (ys ! e)) then s else e)  -- base case
                       else let h  = ys ! s                  -- first item
                                l  = ys ! e                  -- last item
                                mi = s + ((e - s) `div` 2)   -- middle index
                                m  = ys ! mi                 -- middle item
                            in if (h &lt l)
                               then s                        -- return start index
                               else if (h &gt m)
                                    then _ra s  mi ys
                                    else _ra mi e  ys

A “rotated array” is an array of integers in ascending order, after which for every element i, it has been moved to element (i + n) mod sizeOfList. Write a function that takes a rotated array and, in less-than-linear time, returns n (the amount of rotation). http://techguyinmidtown.com/2008/07/05/my-answers-to-the-microsoft-interview-questions

FAKYOUINTIRNEAT, 10 Августа 2012

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

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

+139

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

<HEADER>
<TITLE>The World Wide Web project</TITLE>
<NEXTID N="55">
</HEADER>
<BODY>
<H1>World Wide Web</H1>The WorldWideWeb (W3) is a wide-area<A
NAME=0 HREF="WhatIs.html">
hypermedia</A> information retrieval
initiative aiming to give universal
access to a large universe of documents.<P>
Everything there is online about
W3 is linked directly or indirectly
to this document, including an <A
NAME=24 HREF="Summary.html">executive
summary</A> of the project, <A
NAME=29 HREF="Administration/Mailing/Overview.html">Mailing lists</A>
, <A
NAME=30 HREF="Policy.html">Policy</A> , November's  <A
NAME=34 HREF="News/9211.html">W3  news</A> ,
<A
NAME=41 HREF="FAQ/List.html">Frequently Asked Questions</A> .
<DL>
<DT><A
NAME=44 HREF="../DataSources/Top.html">What's out there?</A>
<DD> Pointers to the
world's online information,<A
NAME=45 HREF="../DataSources/bySubject/Overview.html"> subjects</A>
, <A
NAME=z54 HREF="../DataSources/WWW/Servers.html">W3 servers</A>, etc.
<DT><A
NAME=46 HREF="Help.html">Help</A>
<DD> on the browser you are using
<DT><A
NAME=13 HREF="Status.html">Software Products</A>
<DD> A list of W3 project
components and their current state.
(e.g. <A
NAME=27 HREF="LineMode/Browser.html">Line Mode</A> ,X11 <A
NAME=35 HREF="Status.html#35">Viola</A> ,  <A
NAME=26 HREF="NeXT/WorldWideWeb.html">NeXTStep</A>
, <A
NAME=25 HREF="Daemon/Overview.html">Servers</A> , <A
NAME=51 HREF="Tools/Overview.html">Tools</A> ,<A
NAME=53 HREF="MailRobot/Overview.html"> Mail robot</A> ,<A
NAME=52 HREF="Status.html#57">
Library</A> )
<DT><A
NAME=47 HREF="Technical.html">Technical</A>
<DD> Details of protocols, formats,
program internals etc
<DT><A
NAME=40 HREF="Bibliography.html">Bibliography</A>
<DD> Paper documentation
on  W3 and references.
<DT><A
NAME=14 HREF="People.html">People</A>
<DD> A list of some people involved
in the project.
<DT><A
NAME=15 HREF="History.html">History</A>
<DD> A summary of the history
of the project.
<DT><A
NAME=37 HREF="Helping.html">How can I help</A> ?
<DD> If you would like
to support the web..
<DT><A
NAME=48 HREF="../README.html">Getting code</A>
<DD> Getting the code by<A
NAME=49 HREF="LineMode/Defaults/Distribution.html">
anonymous FTP</A> , etc.</A>
</DL>
</BODY>

HTML первого в мире сайта, которому на днях исполнился 21 год.

tirinox, 08 Августа 2012

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

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

+123

1

+ "cast(cast(cast([" + tableName + "].[id_0] as float) as numeric(18,2)) as nvarchar(100))"+

USB, 06 Августа 2012

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

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