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

    +126

    1. 1
    2. 2
    put = "hello"
    put put # Гениально!

    Ну что же, открылся онлайн интерпретатор Lapis-а на отдельном сайте!
    http://lapis.at.ua/Lapis.htm

    Mobac, 10 Мая 2014

    Комментарии (24)
  2. Куча / Говнокод #15954

    +138

    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
    Аватар:
    Привет, Пахомыч
    Слушай друг, будь ласка, смени пжлст свою аватарку на чтонить попроще, ну очень ужасная - попртит общую картину
    
    Тролль:
    С указанной Вами личностью я не знаком.
    Теперь насчет авы: это не Ваше дело. Мне например, не нравится Ваш аватар, однако, я же не прошу его сменить.
    
    Аватар:
    Всё же прошу покорнейше, пжлст, смени аву
    
    Тролль:
    
    Ну хорошо, если это так сильно Вас беспокоит, я пойду навстречу. [поставил зеленый троллфейс]
    
    Аватар:(цитирует)
    Мне лично абсолютно наплевать на всё - мало-ли какие закидоны бывают у различной шешуры, но вот форуму в целом, нет.
    Пахомыч, чувак, ти случайно не заметил что тебе слегка репу опустили? Если нет, то посмотри, подивись.
     Следующей будет временная баня - тебе это надо? А ведь ещё есть вечный бан, затем блокировка по IP и мылу
     (это если ты опять никулю сменишь), передача его в К7 для последующей мозгоправки, много чего ещё есть
    Пжлст, смени аву

    Адекватен ли этот человек? Вот как не пойти, и не зафлудить/завайпать форум, где сидят такие упоротые?
    Но это больше админ местный виноват, продажная скотина.
    Все началось с того, что на форуме http://www.delphisources.ru/forum я поставил на аву красный троллфейс.

    brutushafens, 10 Мая 2014

    Комментарии (27)
  3. Куча / Говнокод #15951

    +132

    1. 1
    <!--php session_start(); include('blocks/sessions.php'); -->

    Комментарии в php? Не, не слышали

    Webius, 09 Мая 2014

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

    +118

    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
    Пример 1.
    
    def rnd20
    put rnd(0..20)
    end
    rnd20
    
    Пример 2.
    Нахождение корней квадратного уравнения.
    
    def sqrt(num, prec)
    number = num / 2.0
    
    while(((rsq = number**2) - num > prec))
    root -= (rsq - num) / (2.0*number)
    end
    
    return number
    end
    
    a = 2
    b = 10
    c = 12
    d = b**2-(4*a*c)
    put 'Дискриминант равен: ' + d.to_s + '.'
    x1 = -b-sqrt(d,1)/2*a
    x2 = -b+sqrt(d,1)/2*a
    put 'X1 = ' + x1.to_s + ', X2 = ' + x2.to_s + '.'

    Онлайн интерпретатор Lapis-а тут : http://pma.clan.su/Lapis.htm. Пишите ваши отзывы!

    Mobac, 05 Мая 2014

    Комментарии (42)
  5. Куча / Говнокод #15901

    +131

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    ГовноКод.ру - это отличный русскоязычный ресурс, аналогов которому по количеству пользователей и новым говнокодам нет.
    На нем сидит множество толковых парней, таких например как Борманд, laMer007, inkanus-gray и тд, и мне лично их комментарии всегда интрестно почитать.
    Но всё желание пользоваться сайтом отбивает модерация, которой попросту нет.
    Один или несколько пользователей, типа Стертор или как его там, просто убивает ресурс, портит ветки комментов, пишет сам себе и отвечает сам себе, спамит.
    Это нужно как-то решать или ресурс умрёт, потому что просто игнорировать молодняк уже не получится.
    Может ввести на сайте пару баннеров рекламы и нанять модератора?
    Может закрыть доступ писать без учетки? Временно можно даже добавлять комменты только после модерации.
    Я не веб программист, и не знаю всех нюансов, но ведь должы быть способы избавиться от этого спама?
    Побуду немного экстрасенсом, сейчас появится коммент "Въебал минус"

    Извините, наболело, не могу больше в себе это держать

    Smekalisty, 05 Мая 2014

    Комментарии (81)
  6. Куча / Говнокод #15894

    +127

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    let inline id a = a 
    let inline const1 value _ = value
    let inline applyNTimes f n s =
        let fs = Seq.init n <| const1 f
        let fa = Seq.fold (>>) id fs
        fa s

    HaskellGovno, 04 Мая 2014

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

    +126

    1. 1
    2. 2
    printfn "%A" <| [1,2,3,4,5].Length
    printfn "%A" <| [1..5].Length

    F#
    http://ideone.com/A2DZPr

    HaskellGovno, 03 Мая 2014

    Комментарии (23)
  8. Куча / Говнокод #15889

    +133

    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
    open System
     
    let inline un激辛カレー<'a> (f:obj) (tuple:obj) =
      match tuple with
      | :? ('a * 'a * 'a) as tuple -> 
        let a , b , c = tuple
        match f with
        | :? ('a -> 'a -> 'a -> 'a) as f -> f a b c
        | _ -> failwith "type did not matched! 3"
      | :? ('a * 'a) as tuple ->
        let a,b = tuple
        match f with
        | :? ('a -> 'a -> 'a) as f -> f a b
        | _ -> failwith "type did not matched! 2"
      | :? 'a as tuple ->
        let a = tuple
        match f with
        | :? ('a -> 'a) as f -> f a
        | _ -> failwith "type did not matched! 1"
      | _ -> failwith "type did not matched! tuple"
     
    printfn"%A"<| un激辛カレー<float> (fun x->x + 1.) 2.
    printfn"%A"<| un激辛カレー<int> (+) (10,10)
    printfn"%A"<| un激辛カレー<string> (fun (x:string) y z->x + y + z) ("How ","are ","you?")

    HaskellGovno, 03 Мая 2014

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

    +139

    1. 1
    2. 2
    Представляю Вашему вниманию новейший минусатор: http://rghost.ru/54852059
    Исправлены многие ошибки предыдущих версий. Не побрезгуйте, родимые!..

    Новейший минусатор для творения непотребностей с рейтингом.

    brutushafens, 02 Мая 2014

    Комментарии (45)
  10. Куча / Говнокод #15879

    +117

    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
    96. 96
    97. 97
    98. 98
    DataSection
      Data.f 0.0025,0.0026,0.00235
    EndDataSection
    
    Global SCREENWIDTH,SCREENHEIGHT
    
    Define .f:bitplanes.b=32
    
    SCREENWIDTH=GetSystemMetrics_(#SM_CXSCREEN)
    SCREENHEIGHT=GetSystemMetrics_(#SM_CYSCREEN)
    
    If InitSprite()=0 Or InitSprite3D()=0 Or InitKeyboard()=0
      MessageRequester("Error","Can't access DirectX",0)
      End
    EndIf
    
    desktop.l = CreateImage(0,DesktopWidth(0),DesktopHeight(0))
    hdc.l = StartDrawing(ImageOutput(0))
    SelectObject_(hdc,desktop)
    BitBlt_(hdc,0,0,DesktopWidth(0),DesktopHeight(0),GetDC_(GetDesktopWindow_()),0,0,#SRCCOPY)
    StopDrawing()
    DeleteDC_(hdc)
    
    While OpenScreen(SCREENWIDTH,SCREENHEIGHT,bitplanes.b,"FullScreen")=0
      If bitplanes.b>16
        bitplanes.b-8
      ElseIf SCREENHEIGHT>600
        SCREENWIDTH=800
        SCREENHEIGHT=600
      ElseIf SCREENHEIGHT>480
        SCREENWIDTH=640
        SCREENHEIGHT=480
      ElseIf SCREENHEIGHT>400
        SCREENWIDTH=640
        SCREENHEIGHT=400
      ElseIf SCREENHEIGHT>240
        SCREENWIDTH=320
        SCREENHEIGHT=240
      ElseIf SCREENHEIGHT>200
        SCREENWIDTH=320
        SCREENHEIGHT=200
      Else
        MessageRequester("Listen:","Can't open Screen!",0)
        End
      EndIf
    Wend
    w=DesktopWidth(0)
    h=DesktopHeight(0)
    z=1000/Sqr(3)
    perspw=w
    PerspectiveAngle.d=#PI/16
    CreateSprite(0,w,h,#PB_Sprite_Texture)
    StartDrawing(SpriteOutput(0))
    DrawImage(ImageID(0),0,0)
    StopDrawing()
    DisplaySprite(0,0,0)
    FlipBuffers()
    DisplaySprite(0,0,0)
    CreateSprite3D(0,0)
    x3=w-1
    x4=0
    y3=h
    y4=h
    z3=z
    z4=z
    For t.b=1 To 3
      omega=-omega
      Read alfa
      Repeat
        ExamineKeyboard()
        ClearScreen(0)
        Incrz=h*Sin(Angle)
        x1=Incrz*Tan(PerspectiveAngle)
        x2=x3-x1
        y1=h-h*Cos(Angle)
        y2=y1
        z1=z+Incrz/4.75
        z2=z1:Start3D()
        TransformSprite3D(0,x1,y1,z1,x2,y2,z2,x3,y3,z3,x4,y4,z4)
        DisplaySprite3D(0,0,0,255)
        Stop3D()
        omega+alfa
        If omega<0
          Angle-Pow(omega,2)
        Else
          Angle+Pow(omega,2)
        EndIf
        If Angle<0 Or Angle>4/5*#PI
          Break
        EndIf
        FlipBuffers()
        Delay(10)
      Until KeyboardPushed(#PB_Key_Escape)
    Next
    DisplaySprite(0,0,0)
    FlipBuffers()
    Delay(10)
    DisplaySprite(0,0,0)

    Очень интересный эффект - экран "отшатывается" от юзера :)
    Для компиляции понадобится PureBasic не ниже 4.50

    brutushafens, 01 Мая 2014

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