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

    +122

    1. 1
    2. 2
    substractOneFromArgument = (-)1
main = print $ substractOneFromArgument 4

    ПИШУ ФУНКЦИЮ ВЫЧИТАЮЩУЮ ЕДИНИЦУ ИЗ СВОЕГО АРГУМЕНТА
    @
    ПОЛУЧАЮ УПОРОТЫЙ РЕЗУЛЬТАТ
    http://ideone.com/I34iLA

    LispGovno, 14 Марта 2014

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

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

    +133

    1. 1
    access denied for the user "King1986" with password "weakCocc".

    Часть строки из лога. Логи пока общедоступны.

    laMer007, 13 Марта 2014

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

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

    +124

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    @set /p d=<%0
%d:~0,5%a=%d:~0,5%
%a%c=%d:~9,1%
%a%b%c%%d:~4,1%&%a%i%c%%d:~0,1%&%a%k%c%&%a%l%c%&%a%m%c%&%a%n%c%&%a%o%c%&%a%p%c%&%a%q%c%&%a%r%c%&%a%s%c%&%a%t%c%&%a%u%c%&%a%v%c%&%a%w%c%&%a%x%c%&%a%y%c%&%a%z%c%
%k%c%l%o%m%l%n%o%o%r%b%1%p%a%q%&%i%m%r%o%s%d%t%e%b%c%u%o%v%n%b%c%w%o%x%l%y%s%c%1%z%4%b%l%k%i%l%n%m%e%n%s%c%4%o%&%a%f%c%п%p%&%a%g%c%«%q%&%a%h%c%Ѓ%r%&%a%j%c%Д%s%&%a%e%c%!%t%&%u%t%v%i%w%t%x%l%y%e%b%.
%i%e%k%c%t%h%s%o%b%%b%Ъ%j%%j%%j%%j%%j%%j%%j%%j%%j%ї%r%&%i%e%q%c%p%h%o%o%b%%b%і%b%%b%%h%%g%%f%%b%%e%%b%%b%і%n%&%i%e%m%c%l%h%k%o%b%%b%А%j%%j%%j%%j%%j%%j%%j%%j%%j%Щ%b%&%v%p%o%a%y%u%x%s%p%e%u%>%q%n%k%u%m%l%o%

    Должно быть запущено на русскоязычной Windows, сохраните в .bat файл, а на концах строчек (6 строк) не должно быть лишних пробелов!

    Ссылка на зипованную версию:
    http://klimaleksus.narod.ru/Files/C/fuck.zip

    aleksusklim, 11 Марта 2014

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

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

    +130

    1. 1
    DECLARE (A, B INIT ((5)0,(5)1)) DIM (0:9) FLOAT;

    LispGovno, 08 Марта 2014

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

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

    +127

    1. 1
    unfoldr (\b -> fmap (const . (second $ drop 1) . break (==' ') $ b) . listToMaybe $ b)

    LispGovno, 07 Марта 2014

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

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

    +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
    check =: 3 : 0
a=.>;:y
b=.|:(6,#y) $,'(){}[]'=/a
b=.(-1 3 5{"(1)b) (1 3 5)}"(1) b
c=.|:(3 2$i.6)([:+/[{[:|:])"(1 _) b
no=._1
n=.#c
p=. 13 : 'I.*./"(1)(1 _1)="(1)(2+\(x{y))'
while. n~:no do.
no=.n
cc =. |:c
d=.~.(0 p cc),(1 p cc),(2 p cc)
c=.((i.#c)-.(d,>:d)){c
n=.#c
end.
n=0
)

samples =: '({[{}]{}[]})';'({}}{[{}]{}[]})';'({[{}]{}[]}';'({[{}]{}]})';'({[{}{}[]})';'';'{}'

test =: 13 : 'check >y{samples'

test"(0) i.7

    По мотивам http://govnokod.ru/15363

    Abbath, 06 Марта 2014

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

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

    +127

    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
    import Data.List
import Data.Maybe
checkBraces "" = True
checkBraces e = checkBrace e [] where
	openBraces = "({["
	closeBraces = ")}]"
	braceToBrace fromBraces toBraces brace = toBraces!!(fromJust $ elemIndex brace fromBraces)
	otcBrace = braceToBrace openBraces closeBraces
	checkBrace (c:e) s | elem c openBraces = checkBrace e ((otcBrace c):s)
	checkBrace (c:e) (h:s) | (elem c closeBraces) && (h==c) = checkBrace e s
	checkBrace (_:e) _ = False
	checkBrace [] [] = True
	checkBrace [] _ = False
main = mapM_ (print . checkBraces) bracesExpressionExamples where
	bracesExpressionExamples = 
		[
			"({[{}]{}[]})",
			"({}}{[{}]{}[]})",
			"({[{}]{}[]}",
			"({[{}]{}]})",
			"({[{}{}[]})",
			"",
			"{}"
		]

    http://ideone.com/sZ9tiN
    Кот с собеседований.
    Проверка правильности расстановки скобок для каждого выражения из bracesExpressionExamples.

    USB, 05 Марта 2014

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

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

    +134

    1. 1
    2. 2
    http://www.freepascal.ru/forum/viewtopic.php?t=9463&p=77107
ебаный пиздец.

    ебаный пиздец.

    Stertor, 02 Марта 2014

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

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

    +124

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    http://www.youtube.com/watch?v=swAEcc9JX4Q

(автор пишет троян на дельфях, и комментирует)

убила фраза:

"...реестр[...]. Так как в линуксе все по-другому, Вы должны быть уверены, что ваша программа запускается на Windows"

    убила фраза:

    "...реестр[...]. Так как в линуксе все по-другому, Вы должны быть уверены, что ваша программа запускается на Windows"

    Stertor, 01 Марта 2014

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

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

    +86

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    load 'regex'
f=: 13 : '((+./-.(1 2 3 4{y))+.(0{y))*.(5{y)'
a =: #:i.2^6
b =: f"(1) a
cc =: ":|:(|:a),(|:b)
cc1 =: (32+i.32){cc
cc2 =: (i.32){cc
ccc=:|:(|:cc2),(1 32$'*'),(|:cc1)
ccc=:('\*';'&&') rxrplc"1 (ccc)
(,&'\\ \hline')"1 (' ';' & ')rxrplc"1 (ccc)

    Вот он, первый говнокод на J

    Abbath, 28 Февраля 2014

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