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

    +1

    1. 1
    2. 2
    3. 3
    4. 4
    rt_fold(#{}, Acc) ->
    Acc;
rt_fold(Keys, Acc) ->
    maps:fold(<.... опущено ...>, Acc, Keys).

    CHayT, 14 Апреля 2019

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

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

    +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
    # это комментарий #
COMMENT это понятно что COMMENT
CO это тоже ко-ко-коментарий CO

CO функция принимает 3 параметра типа INT и возвращает ссылку на массив CO
PROC range = (INT start, end, step)REF[]INT : (
    INT length = ABS((end - start) % step);
    NEW [0 : length - 1]INT result; CO массив в куче CO
    CO LWB —– нижний индекс массива, UPB —– верхний CO
    FOR i FROM LWB result TO UPB result
    DO
        result[i] := start + i * step
    OD;
    result CO функции возвращают результат последнего вычесленного выражения CO
);

CO можно определять свои операторы CO
OP RANGE = (INT start, end)REF[]INT: range(start, end, (start < end | 1 | -1));
PRIO RANGE = 5; CO для бинарных операторов нужно задать приоритет, у сложения/вычитания приоритет = 6 CO

CO для операторов возможна перегрузка по количеству и типу аргументов CO
OP RANGE = (INT end)REF[]INT: 0 RANGE end;

OP ACCUM = ([]INT x, PROC(INT,INT)INT f)INT : (
    INT length = UPB x - LWB x;
    IF length = 0 THEN
        1
    ELIF length = 1 THEN
        x[LWB x]
    ELSE
        INT result;
        result := x[LWB x];
        FOR i FROM LWB x + 1 TO UPB x
        DO
            result := f(result, x[i])
        OD;
        result
    FI
);
PRIO ACCUM = 5;

CO правый операнд у ACCUM —– лямбда CO
OP ! = (INT x)INT: 1 RANGE x + 1 ACCUM ((INT x, y)INT: x * y);

printf(($g(0), "! = ", g(0), l$, 7, !7));

OP MAP = ([]INT x, PROC(INT)INT f)REF[]INT : (
    NEW [LWB x : UPB x]INT result;
    FOR i FROM LWB x TO UPB x
    DO
        result[i] := f(x[i])
    OD;
    result
);
PRIO MAP = 5;

PROC pow = (INT x, n)INT: x ^ n;

CO каррирование CO
printf(($g(0), " "$, RANGE 10 MAP pow(2, )));
print(new line);

OP FOREACH = (REF[]INT x, PROC(REF INT)VOID f)VOID : (
    FOR i FROM LWB x TO UPB x
    DO
        f(x[i])
    OD
);
PRIO FOREACH = 5;

REF[]INT a = -5 RANGE 6;
a FOREACH ((REF INT x)VOID:
    x := x ^ 2
);

printf(($g(0), " "$, a))

    https://tio.run/##jVVdbxJBFH3nV1xbTXZ1iaBpNVQfkFIlKV2C1T40mJBIkYRgUzFdEx@wtRpTPx70hyCWlkLBvzDzF/wj9dw7s0uBmgiF7syce@fOuecM5Xr1ZX3xbvX8fJ70F72nRqT6aqTO8O6qISbauqV66pTmYxk/n8@urUe438AN9TcMhhjqjzJrQQCHOP5Sx6oriePR18wGGT8mUe/1PhL29QfV09@wiywP8TlTbdXVe3Sbt@aoNufQe/zEu/R4mnKoUPVIdbDFierwov5kI/U7vA/VANn3CTnbxEl5FsEdrqBQ9DO0U25UK3SfHM71qlneaXpUaTz38FzZdovZlc0Sr6TIiRFe/FyvNKrNF4hJP3jsOABT3ES6dM2ELQl2LbtBmwmE2oA4JSXXTuXV63pzCSVMlsR/KFZ/BH8oj1MAsrrxgP60fvxpfSdh5li@T0mIOgKvff1uIo9qe/SkMA7qgI6WPrBhNvGKX6QarRT9vGxgSqJ1XyLNSHDLBs4vM7tZK1Hqvjkv3UCO63JkQfnL5uA221SDL2mU/sqNauEQJ8AN9GeRyJ7IDYcZYOEI4V31izXY0YfMjV0YshLHC6yQY5lmJeGUaELMMDwSzoAbicC6wtqAxaw/QyZSVE9WmSkuALu39CFn8QtUTK89zM4qJNJGymjIuSgeM6B7PKK3lMQnnnRRUqGY86OMC0YDR1wMqZ/SUdb6EOc5mCkIYwhkCKLscU5w5CNexTGsdRjWAxwG8Ai6F65GY2JuWhIZ07ZczYaitMXQomF1lxZj2hky3CaLQb/A3z6W@mbSXjQDbCANRI4Ou7JnrczPfPBfCAqvipEx6XQDJplP2EXMot3ApjOZJ3nGGtsGHrHLOdLDx@W5LfefhmbxB/ApWyIwWs6tjJcTtP4ouxYZIilP2dWLkOQkJNiUVCWLfJyNVi5cBFMOY3uFceO1KcMG8F4y9GsQoS7YdTLhlmOePaSuldwIFVp2jDbXQy4WijVkdMH66bdYDTLiOyhSBd9FLDiDDq8eKAf9/Mkqtb28EvYxcKWBSdtAcx4T7Ti2dW8MJsAd84btvL1TazS3HOdq1Um4Hs1xsjmPzKh@1aM7Hl25wzbjrfLpwqVCsCKYudrlujbcpgytpekmzTRhogH/uiu3nDHnk1dkRLKplSmWH6Xtl7sRTx41QhqeUcM2oc92EcOKE42Xzc/GNEk0B2IMycmEbITszi2PXCZK0E6jskv1WqNimcMxs@nMIy4hYikkEBOsXfepn1sGi/IvZPC/6ZlkJGJhvC8zEW1dxkR8wZ5hcSlWjoBOWA7kxJWkJGMgDgJbt2KXqUYIKbvu@flf
    Давайте течь от "Algol-68".

    BOKCEJIbHblu_nemyx, 13 Апреля 2019

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

  3. Си / Говнокод #25539

    +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
    #include <stdio.h>
#include <stdlib.h>
#include <stdint.h>

int main(void)
{
  uint32_t a = 24804541;
  for(size_t i = 0; i < 5; i++)
  {
    for(size_t j = 0; j < 5; j++)
    {
      putchar( "01"[(a >> (i*5 + j)) & 1]);
    }
    putchar('\n');
  }
  return EXIT_SUCCESS;
}

    https://ru.wikipedia.org/wiki/Параграф_86а_Уголовного_кодекса_Германии

    > В 1998 году суд Франкфурта-на-Майне своим решением запретил распространение компьютерных игр, в которых содержится какая-либо нацистская символика — прецедентом стала игра Wolfenstein 3D. Немецкие локализаторы вынуждены были заменять в играх нацистскую символику на другие символы, не попадающие под нарушение параграфа 86а Уголовного кодекса Германии.

    Предлагаю запретить число 24804541.

    j123123, 13 Апреля 2019

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

  4. PHP / Говнокод #25536

    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
    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
    class SqlXssFilter {
    private static $sql_keywords = array(
        'ADD',
        'ADD CONSTRAINT',
        'ALTER',
        'ALTER COLUMN',
        'ALTER TABLE',
        'ALL',
        'AND',
        'ANY',
        'AS',
        'ASC',
        'BACKUP DATABASE',
        'BETWEEN',
        'CASE',
        'CHECK',
        'COLUMN'
        'CONSTRAINT',
        'CREATE',
        'CREATE DATABASE',
        'CREATE INDEX',
        'CREATE OR REPLACE VIEW',
        'CREATE TABLE',
        'CREATE PROCEDURE',
        'CREATE UNIQUE INDEX',
        'CREATE VIEW',
        'DATABASE',
        'DEFAULT',
        'DELETE',
        'DESC',
        'DISTINCT',
        'DROP',
        'DROP COLUMN',
        'DROP CONSTRAINT',
        'DROP DATABASE',
        'DROP DEFAULT',
        'DROP INDEX',
        'DROP TABLE',
        'DROP VIEW',
        'EXEC',
        'EXISTS',
        'FOREIGN KEY',
        'FROM',
        'FULL OUTER JOIN',
        'GROUP BY',
        'HAVING',
        'IN',
        'INDEX',
        'INNER JOIN',
        'INSERT INTO',
        'INSERT INTO SELECT',
        'IS NULL',
        'IS NOT NULL',
        'JOIN',
        'LEFT JOIN',
        'LIKE',
        'LIMIT',
        'NOT',
        'NOT NULL',
        'OR',
        'ORDER BY',
        'OUTER JOIN',
        'PRIMARY KEY',
        'PROCEDURE',
        'RIGHT JOIN',
        'ROWNUM',
        'SELECT',
        'SELECT DISTINCT',
        'SELECT INTO',
        'SELECT TOP',
        'SET',
        'TABLE',
        'TOP',
        'TRUNCATE TABLE',
        'UNION',
        'UNION ALL',
        'UNIQUE',
        'UPDATE',
        'VALUES',
        'VIEW',
        'WHERE'
    );
    // XSS and SQL-inject filter 
    public static function filterInputData(&$str) {
        // remove html tags
        $res = strip_tags($str);
        $res = str_replace(self::sql_keywords, "", $str);
        return $res;
    }
}

    Сойдет.

    OlegUP, 12 Апреля 2019

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

  5. C# / Говнокод #25535

    0

    1. 1
    2. 2
    string str = "abcd";
 textBox.Text = Convert.ToString(str);

    Кратко об одногруппниках

    pillar_hunter, 12 Апреля 2019

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

  6. PHP / Говнокод #25534

    −2

    1. 1
    2. 2
    3. 3
    4. 4
    <?php
 
§nemyx = "kokoko";
echo §nemyx;

    Какой анскилл )))

    OCETuHCKuu_nemyx, 11 Апреля 2019

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

  7. C# / Говнокод #25533

    +3

    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
    using System;
// Интерфейс места содержит координату его расположения
interface IPlace { long Distance { get; } }
// Интерфейс "двигатель" имеет его мощность
interface IEngine { float Power { get; } }
// Интерфейс Транспорт содержит двигатель и функция расчета времени на путь к определенному месту
interface IVehicle { IEngine Engine { get; } float TimeToTrip(IPlace place); }
// Интерфейс человека, имеющего дом и какой-либо транспорт
interface IPerson { IPlace Home { get; } IVehicle Vehicle { get; } }

// Описываем некоторые классы, реализующие интерфейс места
class Home : IPlace { public long Distance => 0; }      // Класс дома, расположенного в начале координат
class Work : IPlace { public long Distance => 100; }    // Класс рабочего офиса и расстояние до него
class School : IPlace { public long Distance => 58; }   // Класс школы. Она расположена ближе к началу

// Петя -- это рабочий человек, ездящий на работу на автомобиле
class Petya : IEngine, IVehicle, IPerson
{
    IVehicle car; // автомобиль
    IEngine engine; // двигатель внешнего сгорания
    IPlace home; // Петин дом

    public float Power => 80f; // максимальная мощность двс в км/ч
    public IEngine Engine => engine; // возвращаем двигатель авто
    public IPlace Home => home; // возвращаем Петин дом
    public IVehicle Vehicle => car; // возвращаем авто как транспорт

    // Рассчитываем время, требуемое на путь
    public float TimeToTrip(long distance) => distance / Engine.Power;
    public float TimeToTrip(IPlace place) => TimeToTrip(place.Distance - home.Distance);

    // Конструктор Пети, принимающий транспорт и его двигатель
    public Petya(IEngine engine, IVehicle vehicle)
    { car = vehicle; this.engine = engine; }
    // Конструктор, задающий Петин дом
    public Petya(IPlace place = null)
    {   // Если дома нет, создаем его сами
        home = place ?? new Home();
        car = this; engine = this;
    }
}

// Иван -- школьник, он ездит в школу на велосипеде
class Ivan : IEngine, IVehicle, IPerson
{
    IVehicle bike; // Ваня ездит на велосипеде
    IEngine legs; // в качестве двигателя выступают Ванины ноги
    IPlace home; // дом Вани

    public float Power => 15f; //максимальная скорость Ваниных ног в к/мч
    public IEngine Engine => legs; // возвращаем ноги в виде двигателя
    public IPlace Home => home; // возвращаем Ванин дом
    public IVehicle Vehicle => bike; // возвращаем велосипед как транспорт

    // Рассчитываем время, требуемое на путь
    public float TimeToTrip(long distance) => distance / Engine.Power;
    public float TimeToTrip(IPlace place) => TimeToTrip(place.Distance - home.Distance);

    // Конструктор Вани, принимающий транспорт и его двигатель
    public Ivan(IEngine engine, IVehicle vehicle)
    { bike = vehicle; legs = engine; }
    // Конструктор, задающий Ванин дом
    public Ivan(IPlace place = null)
    {   // Если дома нет, создаем его сами
        home = place ?? new Home();
        bike = this; legs = this;
    }
}

class InterfacesLesson
{
    // Вспомогательный метод для вывода на экран нужной нам информации
    static void PrintInfo(IPerson person, IPlace place)
    {
        Console.WriteLine("{0} едет из {1} в {2} за {3:f2} ч.",
            person, person.Home, place, person.Vehicle.TimeToTrip(place));
    }

    static void Main()
    {
        IPlace // Создаем несколько мест
            home = new Home(),
            work = new Work(),
            school = new School();

        IPerson // Создаем несколько людей
            petya = new Petya(),
            ivan = new Ivan(),
            egor = new Ivan(school);

        // Проверяем, кто за какое время добирается к нужному месту
        PrintInfo(petya, home);
        PrintInfo(petya, work);
        PrintInfo(ivan, school);
        PrintInfo(egor, work);
        PrintInfo(egor, home);

        Console.ReadLine();
    }
}

    Вот таким примером учат в одном известном ВУЗе интерфейсам...

    groser, 11 Апреля 2019

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

  8. C# / Говнокод #25532

    +1

    1. 1
    2. 2
    3. 3
    4. 4
    switch (true)
{

}

    pillar_hunter, 11 Апреля 2019

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

  9. PHP / Говнокод #25531

    0

    1. 1
    2. 2
    В "PHP" одинарные кавычки быстрее, чем двойные.
https://habr.com/ru/company/alfa/blog/447416/

    Какой анскилл )))

    BoeHHblu_nemyx, 10 Апреля 2019

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

  10. Perl / Говнокод #25530

    +1

    1. 1
    http://pragmaticperl.com/issues/26/pragmaticperl-26-грамматики-в-perl-6.html

    :3
    Где еще такое может быть то?

    OlegUP, 10 Апреля 2019

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