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

    +124

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    import Control.Applicative
    import Data.List
    isSimple n | n > 0 = not $ or $ map (\n1 -> n `rem` n1 == 0) [2..n-1]
    isNaturalAndSimple n = n > 0 && isSimple n
    generateSource b e = map (flip replicate $ [b..e]) [2..]
    splitAll = groupBy $ \_ _->False
    splitedNumberRangesToNumberSequence l = foldl (liftA2 (++)) (head l) (tail l)
    toNumberSequences = map $ splitedNumberRangesToNumberSequence . map splitAll
    onlySimple = map $ filter $ isNaturalAndSimple . sum
    main = print $ take 4 $ onlySimple $ toNumberSequences $ generateSource 2 3

    HaskellGovno, 20 Февраля 2013

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

    +118

    1. 1
    2. 2
    fib = 0 : 1 : zipWith (+) fib (tail fib)
    main = print $ take 700 fib

    HaskellGovno, 20 Февраля 2013

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

    +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
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    import Control.Monad
    import Control.Arrow
    import Data.List
    
    solve' :: [String] -> [[String]]
    solve' = nub . filter (
                and . uncurry (
                    zipWith (
                        (.head) . (==) . last
                    )
                ) . (id &&& tail)
             ) . uncurry ($) . (
                last . (((
                    map (
                        last . fst &&& uncurry (++) . (init . fst &&& snd)
                    ) . tail . uncurry (zipWith (,)) . (inits &&& tails)
                ) >=> (uncurry map) . 
                    ((:) *** solve')
                ):
                ) . (uncurry takeWhile) . (
                        const . null &&& const [const [[]]]
                    ) &&& id
             )
    
    main = print $ solve' ["123","321","123"]

    HaskellGovno, 20 Февраля 2013

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

    +133

    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
    drwxrwxrwx  1 wvxvw None       0 02-17 16:59 .svn
      -rw-rw-rw-  1 wvxvw None   22082 02-04 11:03 header.asp
      -rw-rw-rw-  1 wvxvw None   14331 02-04 11:02 header.utf.asp
      -rw-rw-rw-  1 wvxvw None   10333 02-04 11:01 header2.asp
      -rw-rw-rw-  1 wvxvw None   10368 02-04 11:02 header2_test.asp
      -rw-rw-rw-  1 wvxvw None   11825 02-04 11:02 header3.asp
      -rw-rw-rw-  1 wvxvw None   11734 02-04 11:03 header3_liran.asp
      -rw-rw-rw-  1 wvxvw None   11238 02-04 11:01 header3_old.asp
      -rw-rw-rw-  1 wvxvw None    7403 02-04 11:02 header3_ssl.asp
      -rw-rw-rw-  1 wvxvw None    9045 02-04 11:01 header3del.asp
      -rw-rw-rw-  1 wvxvw None   39451 02-04 11:02 header4.asp
      -rw-rw-rw-  1 wvxvw None   40224 02-04 11:02 header4_new.asp
      -rw-rw-rw-  1 wvxvw None   13348 02-04 11:02 header4rus.asp
      -rw-rw-rw-  1 wvxvw None     230 02-04 11:02 headers.asp
      -rw-rw-rw-  1 wvxvw None     208 02-06 09:37 headers.php

    Наследство.

    wvxvw, 19 Февраля 2013

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

    +141

    1. 1
    http://rosettacode.org/wiki/Category:Programming_Tasks

    Сегодня это реально сразу куча.

    LispGovno, 16 Февраля 2013

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

    +141

    1. 1
    http://www.youloveit.ru/uploads/gallery/main/439/youloveit_ru_pony-arts07.png

    dos_, 15 Февраля 2013

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

    +116

    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
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    <style type="text/css">
    	header
    	{
    		display: block;
    	}
    
    	header
    	{
    		clear: both;
    		height: 160px;
    		width: 100%;
    		background: url(/images/imges.jpg) no-repeat;
    		-moz-background-size: 100%;
    		-webkit-background-size: 100%;
    		-o-background-size: 100%;
    		background-size: 100% 100%;
    		background-position: center center;
    
    	}
    	.block1
    	{
    		height: 160px;
    		width: 20%;
    	}
    	.block2
    	{
    		height: 160px;
    		width: 15%;
    	}
    	.block3
    	{
    		height: 160px;
    		width: 30%;
    	}
    	.block4
    	{
    		height: 160px;
    		width: 15%;
    	}
    	.block5
    	{
    		height: 160px;
    		width: 20%;
    	}
    	table
    	{
    		width: 100%;
    		border-collapse: collapse;
    		table-layout: fixed;
    	}
    
    </style>
    
    
    <header>
    	<table>
    		<tr>
    			<td class="block1" onClick="document.location='/' "  onmouseover ="this.style.cursor='pointer' " title= "Главная">
    			</td>
    			<td class="block2">
    			</td>
    			<td class="block3">
    			</td>
    			<td class="block4">
    			</td>
    			<td class="block5" onClick="document.location='/script/enter.php' " onmouseover ="this.style.cursor='pointer' " title= "Вход">
    			</td>
    		</tr>
    	</table>
    </header>

    Найдено на просторах интернета: обычная шапка сайта, ничего лишнего.
    Код был нечитаемым - форматировал я. CSS, касаемо использованных тегов, вся.

    superfood, 13 Февраля 2013

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

    +110

    1. 1
    <img border="0" width="476" height="179" src="file:///C|/Users/jy88h0/AppData/Roaming/Macromedia/Dreamweaver /eCustomer/iq/images/AI289.jpg" alt="Image of a properly addressed mail piece">

    http://faq.usps.com/eCustomer/iq/usps/request.do?create=kb%3AUSPSFAQ&view%28%2 9=c[c_usps0910]

    someone, 13 Февраля 2013

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

    +141

    1. 1
    http://sqlserverplanet.com/troubleshooting/cannot-insert-explicit-value-for-identity-column-in-table-table-when-identity_insert-is-set-to-off

    Последний комментарий

    denis90, 11 Февраля 2013

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

    +141

    1. 1
    http://habrahabr.ru/post/168723/

    Я даже копипастить всё не буду.

    kasthack, 10 Февраля 2013

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