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)