1. SQL / Говнокод #12058

    −123

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    DECLARE @Quarter int --квартал
    DECLARE @Year int --год
    DECLARE @Code int
    ...
    SET @Code =  CAST((CAST(@Year as char(4))+ CAST( (@Quarter) as char))as int)
    ...

    Получаем код квартала вида 20123 - третий квартал 2012 года

    CrazyMORF, 05 Ноября 2012

    Комментарии (7)
  2. PHP / Говнокод #12057

    +71

    1. 1
    2. 2
    3. 3
    <?php
    </script>
    ?>

    ПыхапеГовно выдаёт:
    ?>
    Как оказалось, ему асболютно пофиг каким тегом его открывают, и каким закрывают... <script language="php"> echo "blah-blah-blah"; ?> тоже работает...

    Lowezar, 05 Ноября 2012

    Комментарии (54)
  3. Haskell / Говнокод #12056

    −82

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    only :: (Integral nt) => nt -> [Bool]
    only n = [ x `mod` n == 0 | x <- [0..] ]
    
    each :: (Integral nt) => nt -> [a] -> [a]
    each n xs = [ snd x | x <- filter fst $ zip (only n) xs ]
    
    main = do print $ each 2 [1,2,3,4,5,6,7,8,9]

    Haskell. Получение каждого n-го элемента списка.

    Fai, 05 Ноября 2012

    Комментарии (104)
  4. 1C / Говнокод #12054

    −156

    1. 1
    2. 2
    3. 3
    Говнокод, выручай пишу быстро. Работаю дома, так же как и ты наверно, у нас есть модем мегафон 4G.
    Я не знал что там трафик не безлимитный. Сейчас мамка хочет сделать запрос сайтов, точнее уже начала смотреть.
    Я смотрел на порно и дрочил, что делать?

    serpinski, 04 Ноября 2012

    Комментарии (11)
  5. Java / Говнокод #12053

    +68

    1. 1
    2. 2
    3. 3
    public ConcurrentHashMap(int initialCapacity, float loadFactor, int concurrencyLevel) {
         if (initialCapacity < 0)
           throw new IllegalArgumentException();

    - unsigned?
    - ЖАБАПРОБЛЕМЫ.

    А ещё это не портируется на 64хбитные платформы с 32хбитным intом.

    LispGovno, 04 Ноября 2012

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

    +142

    1. 1
    http://s9.postimage.org/7t1dai0en/born_to_program.png

    Born to program :(

    wvxvw, 04 Ноября 2012

    Комментарии (10)
  7. PHP / Говнокод #12051

    +56

    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
    <?php
    /*
    @package   Widgetkit
    * @author    YOOtheme http://www.yootheme.com
    */
    $sets = array_chunk($widget->items, $settings['items_per_set']);
    	foreach(array_keys($sets) as $s) {
    	  $nav[] = '<li><span></span></li>';
    	}
    ?>
    				<?php foreach ($sets as $set => $items) : ?>
    				<ul class="set">
    					<?php foreach ($items as $item) : ?>
    					<li>
    						<div><?php echo $item['navigation']; ?></div>
    					</li>
    					<?php endforeach; ?>
    				</ul>
    				<?php endforeach; ?>
    <?php 
    
    ?>

    И так в 230 файлах.
    Садо-мазо, блин!

    virtual_cia, 03 Ноября 2012

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

    +136

    1. 1
    2. 2
    3. 3
    <!--[if lte IE 6]>
    Ваш браузер говно. Качайте новый...
    <![endif]-->

    Верстальщику респект...

    BaranOnGovnokod, 03 Ноября 2012

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

    +122

    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
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    data IdPState a r = IdPEnd r | IdPNeedInput | IdPHaveInput a
    {-# INLINE_STREAM idP #-}
    idP :: (Monad m) => Stream l a a r m r
    idP = Stream next IdPNeedInput where
    	{-# INLINE_INNER next #-}
    	next (IdPEnd r) = Done r
    	next IdPNeedInput = NeedInput IdPHaveInput IdPEnd
    	next (IdPHaveInput a) = HaveOutput IdPNeedInput (return ()) a
    
    {-# INLINE_STREAM pipe #-}
    pipe :: Monad m => Stream l a b r0 m r1 -> Stream Void b c r1 m r2 -> Stream l a c r0 m r2
    pipe (Stream nextL sL) (Stream nextR sR) = Stream next (Right (return (), sL, Right sR)) where
    	{-# INLINE_INNER next #-}
    	next (Left r) = Done r
    	next (Right (final, sL, Right sR)) = case nextR sR of
    		Skip sR' -> Skip (Right (final, sL, Right sR'))
    		HaveOutput sR' c o -> HaveOutput (Right (final, sL, Right sR')) (c >> final) o
    		NeedInput p c -> Skip (Right (final, sL, Left (p, c)))
    		Done r -> PipeM (final >> return (Left r))
    		PipeM ms -> PipeM (liftM (Right . (final, sL,) . Right) ms)
    		Leftover _ i -> absurd i
    	next (Right (final, sL, Left (p, c))) = case nextL sL of
    		Skip sL' -> Skip (Right (final, sL', Left (p, c)))
    		HaveOutput sL' final' o -> Skip (Right (final', sL', Right (p o)))
    		NeedInput pL cL -> NeedInput (Right . (final,, Left (p, c)) . pL) (Right . (final,, Left (p, c)) . cL)
    		Done r -> Skip (Right (return (), sL, Right (c r)))
    		PipeM ms -> PipeM (liftM (Right . (final,, Left (p, c))) ms)
    		Leftover sL' i -> Leftover (Right (final, sL', Left (p, c))) i
    
    {-# INLINE_STREAM purePipe #-}
    purePipe :: (forall m . Monad m => Stream l a b r0 m r1) -> (forall m . Monad m => Stream Void b c r1 m r2) -> (forall m . Monad m => Stream l a c r0 m r2)
    purePipe (Stream nextL sL) (Stream nextR sR) = Stream next (sL, Right sR) where
    	{-# INLINE_INNER next #-}
    	next (sL, Right sR) = case nextR sR of
    		Skip sR' -> Skip (sL, Right sR')
    		HaveOutput sR' _ o -> HaveOutput (sL, Right sR') (return ()) o
    		NeedInput p c -> Skip (sL, Left (p, c))
    		Done r -> Done r
    		PipeM ms -> Skip (sL, Right (runIdentity ms))
    		Leftover _ i -> absurd i
    	next (sL, Left (p, c)) = case nextL sL of
    		Skip sL' -> Skip (sL', Left (p, c))
    		HaveOutput sL' _ o -> Skip (sL', Right (p o))
    		NeedInput pL cL -> NeedInput ((, Left (p, c)) . pL) ((, Left (p, c)) . cL)
    		Done r -> Skip (sL, Right (c r))
    		PipeM ms -> Skip (runIdentity ms, Left (p, c))
    		Leftover sL' i -> Leftover (sL', Left (p, c)) i

    qbasic, 03 Ноября 2012

    Комментарии (23)
  10. ActionScript / Говнокод #12048

    −116

    1. 1
    ExternalInterface.call('setTimeout', exec, 60, 'reattachWeapon');

    Пришлось такую конструкцию использовать... Функция вызывает функцию, которая вызывает функцию.
    Объясню, есть библиотека для AS3 Deval, выполняющая ту же функцию, что и JS'овский eval, только в AS.
    Но в этой библиотеке есть свои минусы и из-за некоторых ограничений setTimeout там можно использовать только для заранее написанных функций.
    В общем пришлось JS'овский setTimeout использовать, который через время определенное вызовет JS функцию, а JS функция вызовет функцию из списка функций текстовых.

    swing1991, 02 Ноября 2012

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