- 1
 - 2
 - 3
 
<style Language="JavaScript">
...
</style>
                                    Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+132
<style Language="JavaScript">
...
</style>
                                    WUT
+127
override def text: String = super.text
                                    https://github.com/scala/scala/blob/master/src/library/scala/xml/Node.scala
+137
{- 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 ...
                                    
            Из раннего.
По-видимому, задолбался писать на тарабарщине, захотелось выражаться родными русскими словами.
        
+132
<form method="POST" action="/registr/detail.php?ID=114022261">
    <input type="submit" value="Да" name="YES">
    <input type="submit" value="Нет" name="NO">
</form>
                                    Таким образом на mkrf.ru посетитель подтвердить своё желание продолжить просмотр каждый раз, когда хочет почитать карточку фильма "с ограничениями".
+125
#include <beer>
#include <autopilot>
// C праздничком, говнокодеры
                                    
+127
<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>
                                    не могу больше молчать......
+124
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 всегда равен единице.
Источник разглашать не буду.
        
+118
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
        
+117
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>>
        
        
        
        +121
ignore(MainForm.g.Items.Add
			(
				if(! $['A'..'Z'].Concat($['а'..'я']).Concat($['А'..'Я']).Concat($['a'..'z']).Contains(tok[0])) $"#$code" else tok
			));