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

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

+137

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

{- Haskell -}
bruteforceGeneratorWithEasySimplication :: Description d => d -> [StandartTable]
bruteforceGeneratorWithEasySimplication description =
    let width = size_h description; height = size_v description; vHeader = headerV description in
        do
            table <- genListBasedOn (map lineVariants vHeader)
            return (ST table)
    where
        lineVariants :: [Int] -> [[Bool]]
        lineVariants headerLine = let
            всё_я_задолбался_однако = True -- K.O.
            количество_цельных_блоков = length headerLine
            число_промежутков = количество_цельных_блоков - 1
            число_свободных_пробелов_которые_нам_нужно_распихать_между_цельными_блоками = ширина_поля - суммарная_длина_цельных_блоков
            ширина_поля = size_h description
            суммарная_длина_цельных_блоков = sum headerLine
            
            возможная_строка_использующая :: [Int] -> [Bool]
            возможная_строка_использующая разбиение = replicate (head разбиение) False ++ 
                concat (zipWith (\x y -> replicate y True ++ replicate x False) (tail разбиение) headerLine)
            
            и = and
            по = undefined
            
            in do
                разбиение <- получить_разбиение_для_строки по (число_свободных_пробелов_которые_нам_нужно_распихать_между_цельными_блоками) и (число_промежутков)
                return (возможная_строка_использующая разбиение :: [Bool])

получить_разбиение_для_строки по числу_свободных_элементов и числу_промежутков = do ...

Из раннего.

По-видимому, задолбался писать на тарабарщине, захотелось выражаться родными русскими словами.

Jean-Esther, 16 Сентября 2012

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

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

+132

1
2
3
4

<form method="POST" action="/registr/detail.php?ID=114022261">
    <input type="submit" value="Да" name="YES">
    <input type="submit" value="Нет" name="NO">
</form>

Таким образом на mkrf.ru посетитель подтвердить своё желание продолжить просмотр каждый раз, когда хочет почитать карточку фильма "с ограничениями".

nsauk, 15 Сентября 2012

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

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

+127

1
2
3
4
5

<ul>
 <li><label><input class="smert_zaemchika" type="checkbox" /> Смерть заемщика</label></li>
 <li><label><input class="poterya_raboty" type="checkbox" /> Потеря работы</label></li>
 <li><label><input class="ne_nado" type="checkbox" /> Нет</label></li>
 </ul>

не могу больше молчать......

Mihard, 12 Сентября 2012

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

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

+124

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

data = load('ex1data1.txt');
X = data(:, 1); y = data(:, 2);
m = length(y); % number of training examples
X = [ones(m, 1), data(:,1)]; % Add a column of ones to x
theta = zeros(2, 1); % initialize fitting parameters

% Some gradient descent settings
iterations = 1500;
alpha = 0.01;

function J = computeCost(X, y, theta)
  m = length(y); % number of training examples
  hypothesis = theta' * X';
  J = 1 / (2 * m) * sum((hypothesis' - y) .^ 2);
endfunction

% compute and display initial cost
computeCost(X, y, theta)

Язык: Матлаб / Октава.
Что происходит: из массива создается матрица путем добавления еще одного такого же массива полностью заполненного единицами, а потом эта матрица умножается на вектор из двух элементов (первая колонка, соответственно, умножается на первый элемент вектора, вторая - на второй). Т.е. это равносильно вызову функции вида y(x) = Kx + b для всех членов исходного массива X. По сути происходит следующее: y(x_0, x_1) = K * x_1 + b * x_0, где x_0 всегда равен единице.
Источник разглашать не буду.

wvxvw, 11 Сентября 2012

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

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

+118

1
2
3

yoba = (flip (>>=) .) . ((filter .) . (flip . (((==) .) . flip mod)))
 
main = print $ yoba 3 0 [КО КО КО]

http://ideone.com/UGoYJ
result: Internal error time: 0s memory: 0 kB signal: 0

LispGovno, 09 Сентября 2012

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

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

+117

1

main = print x where x = x + 0

http://ideone.com/9caQE

result: Runtime error     time: 0.01s    memory: 3536 kB     signal: -1 

input: no

output: no

stderr:

prog: <<loop>>

LispGovno, 09 Сентября 2012

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

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

+121

1
2
3
4

ignore(MainForm.g.Items.Add
			(
				if(! $['A'..'Z'].Concat($['а'..'я']).Concat($['А'..'Я']).Concat($['a'..'z']).Contains(tok[0])) $"#$code" else tok
			));

LispGovno, 04 Сентября 2012

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

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

+142

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

program maze;{МАЗЬ}

...

REPEAT UNTIL KEYPRESSED;

...

case {коза} с of:
...


/* FILE NAME   : IMAGE.C
 * PURPOSE     : Fig it knows.
...
*/

  BYTE *buf = 0L;
  if (!(buf += malloc(WWW * HHH)))
  {
    printf(" У меня склероз ...\n Press Ctrl-Alt-Del.");
    return;
  }

for(int C=0;C<n;/*Borland*/C++)
...

Петросянство в школокоде :-\

(+= - чтобы избавиться от варнинга.)

Steve_Brown, 31 Августа 2012

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

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

+131

1
2
3
4
5

if (http_status_code == 200 || http_status_code == 500) {
  .... //success!!
} else {
  .... // error!!
}

Было замечено в одном андроид приложении.

mr.The, 30 Августа 2012

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

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