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

    +124

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 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)

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

    +118

    1. 1
    2. 2
    3. 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)

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

    +117

    1. 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)

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

    +121

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

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

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

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

    +142

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 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)

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

    +131

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    if (http_status_code == 200 || http_status_code == 500) {
  .... //success!!
} else {
  .... // error!!
}

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

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

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

  7. Куча / Говнокод #11666

    +129

    1. 1
    2. 2
    3. 3
    4. 4
    <li title="document.location='http://handleopenurl.com/scheme/buffer' null" href="http://handleopenurl.com/scheme/buffer" class="scheme" onclick="document.location='http://handleopenurl.com/scheme/buffer'">
<h1>Buffer</h1>
<h2 class="code">bufferapp</h2>
</li>

    И это всё вместо <a>.

    Vindicar, 29 Августа 2012

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

  8. Куча / Говнокод #11658

    +121

    1. 1
    2. 2
    (set 'b (read))
(eval b)

    http://ideone.com/3ImB9

    LispGovno, 28 Августа 2012

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

  9. Куча / Говнокод #11656

    +119

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    > Наша фирма разрабатывает серьезный софт на CL, Scheme и
некоторых других языках. Но в последнее время в нашей продукции
часто стали находить эксплоиты (что-бы не пугать наших клиентов -
подробнее не скажу). Нам для LISP-подобных языков необходима
DEP (Data Execution Prevention). Есть ли подобные наработки в этой области?
Пока ничего побобного для языков этого семейства мы не находили и очень
расстроены сложившимися обстоятельствами.

    Не мог ни запостить.

    HaskellGovno, 27 Августа 2012

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

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

    +115

    1. 1
    2. 2
    3. 3
    4. 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)