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

    0

    1. 1
    2. 2
    aaa" (the Amazing Awk Assembler) is a primitive assembler written entirely
    in awk and sed

    Aaa

    BagorCtretora, 30 Сентября 2016

    Комментарии (0)
  2. C++ / Говнокод #21298

    −1

    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
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    #include <iostream>
    #include <string>
    
    std::string lol;
    int x;
    int y=1994;
    
    int main()
    {
    //std::string winter = "winter";
    //std::string summer = "summer";
    int z;
    std::cin >> x;
    while (true){
    //---------------------------
    //check
    if ((x>=1896) and (x<1924)){z=x%4;if(z!=0){break;}}
    if ((x>=1924) and (x<1992)){z=x%4;if(z!=0){break;}}
    if ((x<=1994) and (x<1992)){z=x%2;if(z!=0){break;}}
    //check
    //---------------------------
    if ((x>=1896) and (x<1924)){
    y=1896;
    while(true){
    lol="summer";
    if (y==x)
    {
    std::cout << lol;
    break;
    }
    y=y+4;
    lol="winter";
    if (y==x)
    {
    std::cout << lol;
    break;
    }
    y=y+2;
    }
    break;
    }
    //--------------------------------------
    if ((x>=1924) and (x<1992)){
    y=1924;
    while(true){
    lol="winter";
    if (y==x)
    {
    std::cout << lol;
    break;
    }
    y=y+4;
    lol="summer";
    if (y==x)
    {
    std::cout << lol;
    break;
    }
    y=y+2;
    }
    break;
    }break;
    //-------------------------
    
    //----------------------------
    if (x>=1994){
    lol="winter";
    if (y==x)
    {
    std::cout << lol;
    break;
    }
    y=y+2;
    lol="summer";
    if (y==x)
    {
    std::cout << lol;
    break;
    }
    y=y+2;
    }
    }
    }

    NodnolStudio, 29 Сентября 2016

    Комментарии (3)
  3. Pascal / Говнокод #21297

    0

    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
    function WRITESTRINGINREG(HK:HKEY;Key:string;CanCreate:boolean;Name:string;Value:string):boolean;
    
    var
    
    reg: TRegistry;
    
    begin
    
    Result:=false;
    
    reg := TRegistry.Create;
    
    reg.RootKey := HK;
    
    reg.LazyWrite := false;
    
    if reg.OpenKey(Key,CanCreate)=true then
    
    begin
    
    reg.WriteString(Name,Value);
    
    Result:=true;
    
    end else
    
    begin
    
    Result:=false;
    
    end;
    
    reg.CloseKey;
    
    reg.free;
    
    end;

    Ололо ковыряется в реестре.

    http://zedcreate.narod.ru/pages/clauses/clause001.htm

    voodoodal16, 29 Сентября 2016

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

    +3

    1. 1
    2. 2
    3. 3
    #define que queue
    #define queueue queue
    #define dequeue deque

    3_dar, 29 Сентября 2016

    Комментарии (12)
  5. JavaScript / Говнокод #21295

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    this.getSource() && (result["source"] = this.getSource());
      this.getMedium() && (result["medium"] = this.getMedium());
      this.getCampaign() && (result["campaign"] = this.getCampaign());
      this.getContent() && (result["content"] = this.getContent());
      this.getTerm() && (result["term"] = this.getTerm());
      this.getReferralPath() && (result["referralPath"] = this.getReferralPath());
      this.getCampaignId() && (result["campaignId"] = this.getCampaignId());
      this.getGclid() && (result["gclid"] = this.getGclid());
      this.getYclid() && (result["yclid"] = this.getYclid());
      this.getRoistatId() && (result["roistatId"] = this.getRoistatId());

    wesutareb, 29 Сентября 2016

    Комментарии (3)
  6. Pascal / Говнокод #21294

    +2

    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
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    Получить список компьютеров, подключенных к сети.
     
    Святослав Ушаков
    дата публикации 15-05-2000 00:00
    Версия для печати 
    unit NetUtils;
    interface
    uses Windows, Classes;
    function GetContainerList(ListRoot:PNetResource):TList; Type
      {$H+}
       PNetRes = ^TNetRes;
       TNetRes = Record
                 dwScope       : Integer;
                 dwType        : Integer;
                 dwDisplayType : Integer;
                 dwUsage       : Integer;
                 LocalName     : String;
                 RemoteName    : String;
                 Comment       : String;
                 Provider      : String;
               End;
      {H-}
     
    implementation
    uses SysUtils;
     type
     PnetResourceArr = ^TNetResource; {TNetResource - это запись,
                          эквивалентная TNetRes, за исключением того, что
                          вместо типов string там типы PChar. }
     
     function GetContainerList(ListRoot:PNetResource):TList;
    {возвращает список сетевых имён с подуровня ListRoot, каждый
    элемент списка TList - это PNetRes, где поле RemoteName определяет
    соответственно сетевое имя элемента списка. Если ListRoot=nil, то
    возвращается самый верхний уровень типа:
    1. Microsoft Windows Network
    2. Novell Netware Network
    Чтобы получить список доменов/рабочих групп сети Microsoft, нужно
    вызвать эту функцию второй раз, передав ей в качестве параметра,
    соответствующий элемент списка, полученного при первом её вызове.
    Чтобы получить список компьютеров домена - вызвать третий раз...}
    {Единственное, я не знаю как узнать имя текущего домена.}
    Var
      TempRec     : PNetRes;
      Buf         : Pointer;
      Count,
      BufSize,
      Res         : DWORD;
      lphEnum     : THandle;
      p           : PNetResourceArr;
      i           : SmallInt;
      NetworkList : TList;
    Begin
      NetworkList := TList.Create;
      Result:=nil;
      BufSize := 8192;
      GetMem(Buf, BufSize);
      Try
        Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
    RESOURCEUSAGE_CONTAINER{0}, ListRoot,lphEnum);
        {в результате получаем ссылку lphEnum}
        If Res <> 0 Then Raise Exception(Res);
        Count := $FFFFFFFF; {требуем выдать столько записей в
    список, сколько есть}
        Res := WNetEnumResource(lphEnum, Count, Buf, BufSize);
                     {в буфере Buf - списочек
                      в виде массива указателей на структуры типа TNetResourceArr
                      а в Count - число этих структур}
        If Res = ERROR_NO_MORE_ITEMS Then Exit;
        If (Res <> 0) Then Raise Exception(Res);
        P := PNetResourceArr(Buf);
        For I := 0 To Count - 1 Do
        Begin           //Требуется копирование из буфера, так как он
          New(TempRec); //действителен только до следующего  вызова функций группы
    WNet
          TempRec^.dwScope := P^.dwScope;
          TempRec^.dwType := P^.dwType ;
          TempRec^.dwDisplayType := P^.dwDisplayType ;
          TempRec^.dwUsage := P^.dwUsage ;
          TempRec^.LocalName := StrPas(P^.lpLocalName);  {имеются  ввиду вот эти указатели}
          TempRec^.RemoteName := StrPas(P^.lpRemoteName); {в смысле  - строки PChar}
          TempRec^.Comment := StrPas(P^.lpComment);
          TempRec^.Provider := StrPas(P^.lpProvider);
          NetworkList.Add(TempRec);
          Inc(P);
        End;
        Res := WNetCloseEnum(lphEnum);
        {а следующий вызов - вот он!}
        If Res <> 0 Then Raise Exception(Res);
        Result:=NetWorkList;
        Finally
          FreeMem(Buf);
      End;
    End;
    end.

    Уебан, блядь.

    voodoodal16, 29 Сентября 2016

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

    −2

    1. 1
    2. 2
    3. 3
    4. 4
    wp_enqueue_script( 'hoverIntent', THEMATER_URL . '/js/hoverIntent.js', array('jquery') );
    
    
    <?php wp_nav_menu( 'depth=' . $theme->get_option('menu_primary_depth') . '&theme_location=' . $theme->options['menus']['menu-primary']['theme_location'] . '&container_class=' . $theme->options['menus']['menu-primary']['wrap_class'] . '&menu_class=' . $theme->options['menus']['menu-primary']['menu_class'] . '&fallback_cb=' . $theme->options['menus']['menu-primary']['fallback'] . '') ?>

    Индусы добрались до WP

    jkbroker, 29 Сентября 2016

    Комментарии (2)
  8. Java / Говнокод #21290

    0

    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
    public static List<Period> getPeriods(final int id, final Date startDate, final Date endDate) throws SomeException {
        final List<?>[] result = new List<?>[1];
    
        doInTransaction(new Script() {
            @Override
            public void execute() throws AnotherException {
                // Some business logic
                //...
                result[0] = allPeriods;
            }
        });
        return (List<Period>) result[0];
    }

    Оригинальный способ присвоить final переменной значение.

    Destiner, 29 Сентября 2016

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

    −2

    1. 1
    2. 2
    typealias Length = Double
    typealias Weight = Double

    "it won’t do us much good, because Length can be freely assigned to Weight and vice versa. In fact, they can both be assigned to and from a regular Double."

    В Kotlin тайпдефы завезли

    barop, 29 Сентября 2016

    Комментарии (0)
  10. Pascal / Говнокод #21288

    +1459

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    program LeakMem;
    
    uses sysutils;
    
    var
       str:string;
    
    ...

    В седьмой делфе утекает память.

    voodoodal16, 28 Сентября 2016

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