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

    +125

    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
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    <!-- ... -->
    </body>
    </html><noindex>
    <table id="c_add2" name="c_add2" cellpadding="0" cellspacing="0" class="sh0"><tr><td><br></td></tr></table>
    <table id="c_add" name="c_add" cellpadding="0" cellspacing="0" class="sh0 clcart ft11">
    <tr>
    <td width="100%" height="27px" class="c_h"><strong class="fs72">Товар добавлен в корзину</strong></td>
    </tr>
    <tr>
    <td width="100%" height="90px">
    	<table width="100%" cellpadding="2" cellspacing="0" class="fs b fcgr">
    	<tr>
    		<td width="50%" align="right">Товаров в корзине: </td><td> <span id="c_cart" name="c_cart" class="fcz"></span></td>
    	</tr>
    	<tr>
    		<td width="50%" align="right">На сумму: </td><td> <span id="sum_cart" name="sum_cart" class="fcz"></span>&nbsp;р</td>
    	</tr>
    	</table>
    </td>
    </tr>
    <tr>
    <td width="100%" align="center" class="description">Окно будет закрыто через <span name="cl_time" id="cl_time">5</span> секунд</td>
    </tr>
    <tr>
    <td width="100%" align="center">
    <table width="100%" cellpadding="0" cellspacing="0">
    <tr>
    <td width="50%" align="center"><a href="cart.php"><img title="Перейти в корзину" alt="Перейти в корзину" src="img/btn/cartorder.gif" border="0"></a></td>
    <td width="50%" align="center"><a href="#" onclick="clTCart(); return false;"><img border="0" src="img/btn/closewin.gif"></a></td>
    </tr>
    </table>
    </td>
    </tr>
    </table>
    </noindex>

    I love my webmasterz!

    Stallman, 04 Января 2013

    Комментарии (3)
  2. Куча / Говнокод #12377

    +84

    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
    >                          +
                              +++
                            +++++++
                         ++---[>++++++
                      +>+++++ +++ ++>++++
                             +++++
                           ++>++++++
                        +++++>+++++++++
                   +++>+++>++ +++ +++>++++++
                             ++++>
                          +++++++++++
                      +>+++>+++++++++>+++
                 +++++++>++++++++++>++++++++++
           +>+++><<<<<<<<<<<<<<<<-]>++>--->++>++>+>+
                             +>-->
                             +>->+
    +>->+>--->++++>+++><<<<<<<<<<<<<<<<>.>.>.>.>.>.>.>.>.>.+
    ->.>.>.>.>.[-]++++++++++.>[-]<[>+++<-]>++.....>+++++++++
    +[>+++++>+++++>+++++>+++++><<<<<-]>>-->->+><<<<<>.>.>.>.

    С новым 2013м годом!

    Пусть в новом году вас обойдут стороной индусизмы, баги и крестобатхерты,
    а красивые решения, чистый код и годные фичи не заставят себя ждать!

    bormand, 31 Декабря 2012

    Комментарии (70)
  3. Куча / Говнокод #12364

    +129

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    <style type="text/css" media="all">
    <!--
    @import url("files/style.css");
    -->
    </style>

    Я чего-то не понимаю?

    Stud, 26 Декабря 2012

    Комментарии (47)
  4. Куча / Говнокод #12281

    +127

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    IF context.page_name == 'company' or context.page_name == 'accessibility' or context.page_name == 'arbitrage'  or context.page_name == 'arbitrage_income' or context.page_name == 'family_income' or context.page_name == 'family_income_acc' or context.page_name == 'family_income_fac' or context.page_name == 'family_income_summary' or context.page_name == 'arbitrage-rf' or context.page_name == 'federal-arbitrage' or context.page_name == 'appelate-arbitrage' or context.page_name == 'citation-index' or context.page_name == 'openness' or context.page_name == 'openness-mo' or context.page_name == 'openness-moscow' or context.page_name == 'openness-spb' or context.page_name == 'openness-lenob' or context.page_name == 'media-moscow' or context.page_name == 'media-mo' or context.page_name == 'media-general-jurisdiction' or context.page_name == 'media-spb' or context.page_name == 'media-lenob' or context.page_name == 'court-site-msk' or context.page_name == 'phone-court-general-jurisdiction' or context.page_name == '
    court-site-mo' or context.page_name == 'court-site-spb' or context.page_name == 'court-site-lo' or context.page_name == 'citation-court-general-jurisdiction' or context.page_name == 'phone-openness-msk' or context.page_name == 'phone-openness-mo' or context.page_name == 'phone-openness-spb' or context.page_name == 'phone-openness-lo' or context.page_name == 'court-transparency-msk' or context.page_name == 'court-transparency-mo' or context.page_name == 'court-transparency-spb' or context.page_name == 'court-transparency-lo' or context.page_name == 'court-transparency-general-jurisdiction' or context.page_name == 'court-arbitrage-citation-rf' or context.page_name == 'court-arbitrage-appellate-citation' or context.page_name == 'court-federal-arbitrage-citation' or context.page_name == 'court-arbitrage-citation-summary' or context.page_name == 'phone-openness-sub' or context.page_name == 'phone-openness-aac' or context.page_name == 'phone-openness-fas' or context.page_name == 'phone-openness-svod' or context.
    page_name == 'media-court-subjects-rf' or context.page_name == 'media-court-arbitration-appeal' or context.page_name == 'media-court-federal-arbitration-courts-districts' or context.page_name == 'media-all';
    	context.xslt_name = "casual/raiting_${context.page_name}.xslt";
    ELSE;
    	context.http_status = 404;
    END;

    Template Toolkit

    Un1oR, 13 Декабря 2012

    Комментарии (3)
  5. Куча / Говнокод #12279

    +126

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    rename-wiki:
    	$(shell cd ${WIKIDST} && rename 'i-iterate' 'Iterate' *.wiki)
    	$(shell find ${WIKIDST} -name "*.wiki" -exec \
    sed -i 's/\[i-iterate/\[Iterate/g' '{}' \;)
    	$(shell find ${WIKIDST} -name "*.wiki" -exec \
    sed -i 's/\.html\#/\#/g' '{}' \;)
    	$(shell find ${WIKIDST} -name "*.wiki" -exec \
    sed -i 's/&lt;/\</g' '{}' \;)
    	$(shell find ${WIKIDST} -name "*.wiki" -exec \
    sed -i 's/&gt;/\>/g' '{}' \;)

    Чтоль порадовать вас чем-нибудь?

    wvxvw, 12 Декабря 2012

    Комментарии (8)
  6. Куча / Говнокод #12235

    +127

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    val arr = new Array[Int](3)
    val arr2 = arr
    
    arr(0) = 100
    arr(1) = 200
    arr(2) = 300
    
    //arr2 == Array(100, 200, 300)

    Не говнокод конечно, хотя как посмотреть.

    Это нормально, учитывая, что val предполагает неизменяемость значения, или в данном случае считается, что только присвоить новое значение нельзя, а изменять внутреннюю структуру массива можно как захочешь?

    Ведь наже в C++ нельзя изменить значения const std::vector.

    Fai, 01 Декабря 2012

    Комментарии (12)
  7. Куча / Говнокод #12214

    +130

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    perft :: Int -> Position -> Int
    perft depth pos 
    	| depth <= 0 = 1
    	| otherwise  = sum . map (perft $ depth - 1) $ legalPositions where
    		legalPositions = filter isLegalPosition nextpositions
    		nextpositions = map (\move -> makeMove move pos) $ (moves pos)

    Fai, 28 Ноября 2012

    Комментарии (59)
  8. Куча / Говнокод #12195

    +120

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    <style>
    .pitalic {
        font-style:italic;
    }
    </style>
    <p class = 'pitalic'>блаблабла</p>

    прям новый супергерой...

    Snickers, 25 Ноября 2012

    Комментарии (11)
  9. Куча / Говнокод #12193

    +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
    samples = [(1,14),(2,-66),(3,-414),(4,-1180),(5,-2370),(6,-3726),(7,-4606),(8,-3864),(9,270)]
     
    -- Бесконечная система уравнений для МНК
    system s = zip (matrix s) (column s) where
        matrix = iterate tail . foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) 1)
        column = foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) y)
     
    -- Сведение бесконечной системы к треугольному виду (первый шаг гаусса)
    triangle (eq:eqs) = (eq : triangle (map (sub eq) eqs)) where
        sub eq1@(a1:as, ae) eq2@(b1:bs, be) = (zipWith f as bs, f ae be) where
            f a b = b - a * b1 / a1
     
    -- Вычисление иксов (второй шаг гаусса)
    calcX n = foldr calc [] . take n where
        calc (a:as, b) xs = ((b - sum (zipWith (*) as xs)) / a : xs)
     
    -- метод наименьших квадратов
    mnk n = reverse . calcX n . triangle . system

    Метод наименьших квадратов.

    http://ideone.com/CsD0ku

    bormand, 25 Ноября 2012

    Комментарии (52)
  10. Куча / Говнокод #12192

    +125

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    splitOn :: (a -> Bool) -> [a] -> [[a]]
    splitOn _ [] = []
    splitOn f xs = removeEmpty $ takeWhile (not . f) xs: splitOn f (dropWhile (f) $ dropWhile (not . f) xs) where
    	removeEmpty [] 	= []
    	removeEmpty (x:xs) 
    		| null x 	= removeEmpty xs 
    		| otherwise = x: removeEmpty xs
    
    words' :: String -> [String]
    words' = splitOn (flip elem " \n\r\f\t\v\160")

    Еще один words'

    Fai, 25 Ноября 2012

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