Говнокод: по колено в коде.

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5711)
2. C++ (2742)
3. Куча (2395)
4. JavaScript (2034)
5. C# (1930)
6. Java (1503)
7. Си (1120)
8. Pascal (648)
9. Python (591)
10. 1C (540)
11. SQL (432)
12. ActionScript (292)
13. Objective C (202)
14. bash (200)
15. Perl (194)
16. Assembler (148)
17. Ruby (145)
18. VisualBasic (138)
19. Lua (49)
20. Haskell (44)
21. Go (31)
22. Swift (27)
23. Kotlin (14)

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

   +121

   1. 1

   #include "commode.h"

   //development might be long and harassing
   //we'll need some furniture to keep food and coffee

   ckopo, 06 Сентября 2013

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

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

   +131

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5
   6. 6
   7. 7
   8. 8

   <td>
   						<select class="form-control" ng-model="contact.type">
   							<option value="meat">Работоспособный</option>
   							<option value="children">Ребенок</option>
   							<option value="cripple">Пенсионер</option>
   							<option value="cripple">Инвалид</option>
   						</select>
   					</td>

   дети цветы жизни. остальные - мясо и калеки

   rombik, 03 Сентября 2013

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

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

   +119

   1. 1
   2. 2

   /proc/add_action(source, action, param1, param2)
   	toExecute += list(source = source, procname = ( action = "attack" ? "attack" : ( action = "move" ? "move" : ( action = "..." ? "someshit1" : ( action = "...(2)" ? "someshit2" : null ) ) ) ), params = list( ( (action = "attack") or (action = "move") ? param1 : null), (action = "..." or action = "...(2)" ? param2 : null ) )

   А я люблю обмазываться несвежим кодом в одну строку и дрочить.
   
   Сам код - лишь пример, но его можно расширять бесконечно.

   EditorRUS, 02 Сентября 2013

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

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

   +135

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   BoxOfIndex =[0,0,0,1,1,1,2,2,2,0,0,0,1,1,1,2,2,2,0,0,0,1,1,1,2,2,2,
                          3,3,3,4,4,4,5,5,5,3,3,3,4,4,4,5,5,5,3,3,3,4,4,4,5,5,5,
                          6,6,6,7,7,7,8,8,8,6,6,6,7,7,7,8,8,8,6,6,6,7,7,7,8,8,8]
   
   Box = BoxOfIndex[i*9 +j]

   Определение индекса малого квадрата в судоку
   
   Вместо
   Box = (i/3)*3 +j/3

   kegdan, 01 Сентября 2013

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

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

   +141

   1. 1
   2. 2

   Хаскелисты против Сионистов:
   http://trollingnews.com/

   USB, 29 Августа 2013

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

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

   +125

   1. 001
   2. 002
   3. 003
   4. 004
   5. 005
   6. 006
   7. 007
   8. 008
   9. 009
   10. 010
   11. 011
   12. 012
   13. 013
   14. 014
   15. 015
   16. 016
   17. 017
   18. 018
   19. 019
   20. 020
   21. 021
   22. 022
   23. 023
   24. 024
   25. 025
   26. 026
   27. 027
   28. 028
   29. 029
   30. 030
   31. 031
   32. 032
   33. 033
   34. 034
   35. 035
   36. 036
   37. 037
   38. 038
   39. 039
   40. 040
   41. 041
   42. 042
   43. 043
   44. 044
   45. 045
   46. 046
   47. 047
   48. 048
   49. 049
   50. 050
   51. 051
   52. 052
   53. 053
   54. 054
   55. 055
   56. 056
   57. 057
   58. 058
   59. 059
   60. 060
   61. 061
   62. 062
   63. 063
   64. 064
   65. 065
   66. 066
   67. 067
   68. 068
   69. 069
   70. 070
   71. 071
   72. 072
   73. 073
   74. 074
   75. 075
   76. 076
   77. 077
   78. 078
   79. 079
   80. 080
   81. 081
   82. 082
   83. 083
   84. 084
   85. 085
   86. 086
   87. 087
   88. 088
   89. 089
   90. 090
   91. 091
   92. 092
   93. 093
   94. 094
   95. 095
   96. 096
   97. 097
   98. 098
   99. 099
   100. 100

   fn AsText Val BufferID:undefined AppendLast:false Prefix:"" Postfix:"" ArraySeparators:#("#(", ",", ")") ValClass:undefined AncestorName:undefined PushVar:undefined = (
   	if PushVar == undefined then PushVar = GIMS.Core.BufferMgr.PushVar
   	case (ClassOf Val) of (
   		ArrayParameter:
   			AsText Val BufferID:BufferID AppendLast:AppendLast Prefix:Prefix Postfix:Postfix ArraySeparators:ArraySeparators ValClass:Array AncestorName:AncestorName PushVar:PushVar
   		Array: (
   			if BufferID != undefined then (
   				PushVar BufferID (Prefix + ArraySeparators[1]) AppendLast:AppendLast
   				for ItemID = 1 to Val.Count do (
   					if ItemID != Val.Count then
   						AsText Val[ItemID] BufferID:BufferID AppendLast:AppendLast Postfix:ArraySeparators[2] AncestorName:AncestorName PushVar:PushVar
   					else
   						AsText Val[ItemID] BufferID:BufferID AppendLast:AppendLast AncestorName:AncestorName PushVar:PushVar
   				)
   				PushVar BufferID (ArraySeparators[3] + Postfix) AppendLast:AppendLast
   			) else (
   				local	Res = (Prefix + ArraySeparators[1])
   				for ItemID = 1 to Val.Count do (
   					if ItemID != Val.Count then
   						Res += (AsText Val[ItemID] Postfix:ArraySeparators[2] AncestorName:AncestorName PushVar:PushVar)
   					else
   						Res += (AsText Val[ItemID] AncestorName:AncestorName PushVar:PushVar)
   				)
   				Res += (ArraySeparators[3] + Postfix)
   			)
   			Res
   		)
   		String: (
   			if BufferID != undefined then
   				PushVar BufferID (Prefix + "\"" + (GIMS.Core.StringOps.ReplaceChars Val ReplaceTags:#(#("\"", "\\"), #("\\\"", "\\\\")) MultiChar:true) + "\"" + Postfix) AppendLast:AppendLast
   			else
   				(Prefix + "\"" + (GIMS.Core.StringOps.ReplaceChars Val ReplaceTags:#(#("\"", "\\"), #("\\\"", "\\\\")) MultiChar:true) + "\"" + Postfix)
   		)
   		Name: (
   			if BufferID != undefined then
   				PushVar BufferID (Prefix + "#" + Val as string + Postfix) AppendLast:AppendLast
   			else
   				(Prefix + "#" + Val as string + Postfix)
   		)
   		BitmapTexture: (
   			GIMS.Core.MaterialOps.FixTexName Val
   			local	FileName = (GetFileNameFile Val.FileName)
   			if BufferID != undefined then (
   				if (DoesFileExist Val.FileName) then (
   					local	FilePath = (GIMS.CurrentGame.ResourceCachePath + AncestorName + "/")
   					MakeDir FilePath All:true
   					CopyFile Val.FileName (FilePath + (FileNameFromPath Val.FileName))
   				)
   				PushVar BufferID (Prefix + "(GIMS.Core.MaterialOps.CreateBitmapFile (GIMS.CurrentGame.ResourceCachePath + \"" + AncestorName + "/\") \"" + FileName + "\")" + Postfix) AppendLast:AppendLast
   			) else
   				(Prefix + "(GIMS.Core.MaterialOps.CreateBitmapFile \"" + (GetFileNamePath Val.FileName) + "\" \"" + FileName + "\")" + Postfix)
   		)
   		default: (
   			local	VarType = (SuperClassOf Val)
   			if VarType == StructDef or VarType == GeometryClass or VarType == Material then (
   				if BufferID == undefined then
   					throw "Undefined BufferID!"
   				local	AllTagNames = (GetPropNames Val),
   						StructNameTagID = (FindItem AllTagNames #StructName),
   						StructName = (
   						if StructNameTagID != 0 then
   							(GetProperty Val AllTagNames[StructNameTagID])
   						else
   							((ClassOf Val) as string)
   						),
   						Tags = (
   							for TempTag in AllTagNames where
   								TempTag != #StructName and
   								not (IsKindOf (GetProperty Val TempTag) MAXScriptFunction)
   							collect
   								TempTag
   						)
   				if Tags.Count == 1 then
   					PushVar BufferID (Prefix + "(" + StructName + "())") AppendLast:AppendLast
   				else (
   					PushVar BufferID (Prefix + "(") AppendLast:AppendLast
   					PushVar BufferID (StructName + " \\") AppendLast:AppendLast
   					case VarType of (
   						GeometryClass: (
   							PushVar BufferID ("Name:" + (AsText Val.Name AncestorName:AncestorName PushVar:PushVar) + " \\") AppendLast:AppendLast
   							PushVar BufferID ("Pos:" + Val.Pos as string + " \\") AppendLast:AppendLast
   						)
   						Material: (
   							PushVar BufferID ("Name:" + (AsText Val.Name AncestorName:AncestorName PushVar:PushVar) + " \\") AppendLast:AppendLast
   							PushVar BufferID ("ShowInViewPort:" + Val.ShowInViewPort as string + " \\") AppendLast:AppendLast
   						)
   					)
   					for TagID = 1 to Tags.Count do
   						AsText (GetProperty Val Tags[TagID]) BufferID:BufferID AppendLast:AppendLast Prefix:(Tags[TagID] as String + ":") Postfix:" \\" AncestorName:AncestorName PushVar:PushVar
   					PushVar BufferID (")" + Postfix) AppendLast:AppendLast
   				)
   			) else (
   				if BufferID != undefined then
   					PushVar BufferID (Prefix + Val as string + Postfix) AppendLast:AppendLast
   				else
   					(Prefix + Val as string + Postfix)
   			)
   		)
   	)
   )

   MAXScript. Сериализация от бога!

   3Doomer, 29 Августа 2013

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

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

   +134

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   private static final String IPADDRESS_PATTERN =  
   "^([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\." + 
   "([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\." + 
   "([01]?\\d\\d?|2[0-4]\\d|25[0-5])\\." + 
   "([01]?\\d\\d?|2[0-4]\\d|25[0-5])$";

   Сначала статья по регуляркам, а потом хороший, годный пример для ip)

   kegdan, 28 Августа 2013

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

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

   +126

   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

   import Data.Char
   import Data.List
   
   digitRangeToRegex :: Integer -> Integer -> String
   digitRangeToRegex min max
       | min == max = digit min : ""
   -- uncomment if you want \d instead of [0-9]
   --    | min == 0 && max == 9 = "\\d"
       | min >= 10 || max <= 9 = "[" ++ rangeToStr (digit min) (digit max) ++ "]"
       | otherwise = "[" ++ rangeToStr (digit min) '9' ++ rangeToStr 'a' (digit max) ++ "]"
       where
           rangeToStr min max
               | min == max = min : ""
               | otherwise = min : '-' : max : ""
           digit d
               | d >= 0 && d <= 9 = chr (ord '0' + fromIntegral d)
               | d < 36 = chr (ord 'a' + fromIntegral d - 10)
   
   numberRangeToRegex :: Integer -> Integer -> Integer -> String
   numberRangeToRegex base min max
       | min == 0 && max == 0 = "0"
       | cmin == cmax = intercalate "|" $ map formatRanges $ step dmin dmax
       | otherwise = intercalate "|" $
           (map formatRanges $ step dmin (replicate cmin (base-1))) ++
           (if cmin + 1 < cmax then [digitRangeToRegex 1 (base - 1) ++ digitRangeToRegex 0 (base-1) ++ formatCount cmin (cmax-2)] else []) ++
           (map formatRanges $ step (1 : replicate (cmax-1) 0) dmax)
       where
           digits 0 = [0]
           digits n = reverse $ map (`mod` base) $ takeWhile (>0) $ iterate (`div` base) n
           dmin = digits min
           dmax = digits max
           cmin = length dmin
           cmax = length dmax
           step [] [] = [[]]
           step (a:as) (b:bs) =
               if a == b then
                   prepend a $ step as bs
               else
                   (if zeroHead then [] else prepend a $ step as nines) ++
                   (if na > nb then [] else [(na, nb) : replicate (length as) (0, base-1)]) ++
                   (if nineTail then [] else prepend b $ step zeros bs)
               where
                   suffixLen = length as
                   zeroHead = all (== 0) as
                   nineTail = all (== base-1) bs
                   na = if zeroHead then a else a+1
                   nb = if nineTail then b else b-1
                   zeros = replicate suffixLen 0
                   nines = replicate suffixLen (base-1)
                   prepend x = map ((x, x):)
           formatRanges = concatMap formatGroup . group . dropWhile (== (0,0)) where
               formatGroup [(min, max)] = digitRangeToRegex min max
               formatGroup xs@((min, max) : _)
                   | min == max = concat $ replicate (length xs) $ digitRangeToRegex min max
                   | otherwise = digitRangeToRegex min max ++ "{" ++ show (length xs) ++ "}"
           formatCount min max
               | min == 1 && max == 1 = ""
               | min == max = "{" ++ show min ++ "}"
               | otherwise = "{" ++ show min ++ "," ++ show max ++ "}"

   Генератор реджексов, проверяющих диапазон чисел. Говнецо то еще, причем не только в реализации и выхлопе, но и в самой идее :)
   
   Пример: http://ideone.com/FzAmYd

   bormand, 27 Августа 2013

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

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

   +116

   1. 1

   string pattern = @"\d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d?";

   Регулярка для IP //_*)

   kegdan, 25 Августа 2013

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

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

    +139

    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

    Всего обработано 12582 постов (не считая 1055 исключённых из-за 404 ошибки), 186254 комментариев, которые создали 4163 пользователей.
    
    3390+	юзеров имеют 1+	постов
    181+	юзеров имеют 10+	постов
    6+	юзеров имеют 100+	постов
    1+	юзеров имеют 1000+	постов
    
    3159+	юзеров имеют 1+	комментариев
    875+	юзеров имеют 10+	комментариев
    178+	юзеров имеют 100+	комментариев
    24+	юзеров имеют 1000+	комментариев
    2+	юзеров имеют 10000+	комментариев
    
    711+	юзеров создали 1+	комм./постов за последние 360	дней
    299+	юзеров создали 5+	комм./постов за последние 360	дней
    197+	юзеров создали 10+	комм./постов за последние 360	дней
    77+	юзеров создали 50+	комм./постов за последние 360	дней
    49+	юзеров создали 100+	комм./постов за последние 360	дней
    17+	юзеров создали 500+	комм./постов за последние 360	дней
    
    290+	юзеров создали 1+	комм./постов за последние 90	дней
    118+	юзеров создали 5+	комм./постов за последние 90	дней
    86+	юзеров создали 10+	комм./постов за последние 90	дней
    37+	юзеров создали 50+	комм./постов за последние 90	дней
    25+	юзеров создали 100+	комм./постов за последние 90	дней
    
    144+	юзеров создали 1+	комм./постов за последние 30	дней
    59+	юзеров создали 5+	комм./постов за последние 30	дней
    40+	юзеров создали 10+	комм./постов за последние 30	дней
    23+	юзеров создали 20+	комм./постов за последние 30	дней
    14+	юзеров создали 50+	комм./постов за последние 30	дней
    9+	юзеров создали 100+	комм./постов за последние 30	дней
    
    Топ 20 пользователей, которые вызывают эмоции
    (по количеству кликов по +/-):
    1: guest (#1) - 224256 (1418 постов, 32235 комментариев)
    2: Lure Of Chaos (#1538) - 28637 (133 постов, 14460 комментариев)
    3: bormand (#5528) - 17334 (62 постов, 8303 комментариев)
    4: TarasB (#721) - 15999 (60 постов, 5978 комментариев)
    5: roman-kashitsyn (#3818) - 12252 (71 постов, 5767 комментариев)
    6: 3.14159265 (#1438) - 11991 (85 постов, 4851 комментариев)
    7: bugmenot (#1632) - 11748 (51 постов, 6120 комментариев)
    8: anonimb84a2f6fd141 (#5798) - 10073 (52 постов, 1806 комментариев)
    9: absolut (#1528) - 7881 (21 постов, 4142 комментариев)
    10: defecate-plusplus (#4442) - 6788 (13 постов, 2748 комментариев)
    11: LispGovno (#6011) - 5951 (88 постов, 2733 комментариев)
    12: Анонимус (#1679) - 5783 (8 постов, 3021 комментариев)
    13: eth0 (#2108) - 5401 (0 постов, 2608 комментариев)
    14: inkanus-gray (#1659) - 5307 (16 постов, 2538 комментариев)
    15: Stertor (#5934) - 4395 (98 постов, 864 комментариев)
    16: Говногость (#320) - 3893 (184 постов, 937 комментариев)
    17: istem (#1997) - 3851 (31 постов, 2130 комментариев)
    18: wvxvw (#988) - 3446 (115 постов, 2446 комментариев)
    19: xXx_totalwar (#963) - 3427 (24 постов, 1099 комментариев)
    20: Vasiliy (#1478) - 3404 (56 постов, 1573 комментариев)

    Статистика ГК. Данные были собраны за последние 3-4 дня.
    Постараюсь добавить в комментарии несколько Топ50.

    1024--, 21 Августа 2013

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

• ← влево
• вправо →

• 240
• …
• 89
• 88
• 87
• 86
• 85
• 84
• 83
• 82
• 81
• …
• 1