1. VisualBasic / Говнокод #3323

    −349

    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
    Function shr(ByVal a As Long, ByVal i As Long) As Long
    Dim r As Variant
    r = a / (2 ^ i)
    shr = Fix(r)
    End Function
    
    'используется для получения значения n-го бита таким вот образом
    if (shr(value,n) mod 2)=1 then
    ....
    end if
    
    'в другом месте почему-то биты проверяются по-другому
    For i = 2 To Len(s)
      a = Asc(Mid(s, i, 1))
      b = (q Mod (2 ^ (i - 1))) \ (2 ^ (i - 2))
      If b = 1 Then a = a - 32  'сути этого я так и не понял
      t = t + Chr(a)
    Next

    мастерская работа с битами. епта я б на асме это в 1 строку сделал

    Запостил: 3.14159265, 26 Мая 2010

    Комментарии (44) RSS

    • показать все, что скрытоа я бы вдул, адназначна)
      Ответить
    • а ну автор, зажги на 1-ну строчку на асме :-)
      Ответить
      • что проверку бита или shr?
        Ответить
        • я не знаю, что ты имел ввиду сказав "епта я б на асме это в 1 строку сделал "
          Ответить
          • Говорит Кэп
            shr eax,ecx ; сдвиг в одну строку

            bt eax,ecx ; проверка бита в одну строку

            на VB
            n and pow2(i)>0 ' проверка бита в одну строку

            n \ pow2(i) ' сдвиг вправо в одну строку

            pow2(0..31) - заранее заготовленый массив степеней
            для скорости
            pow(i)=2^i

            на плюсах надо?
            Ответить
            • всё-всё :-D убедил
              Ответить
            • Где здесь одна строка асма? Ты сказал, что в одну можешь, тебя и попросили первую строку (из одной). Признайся, что обосрался.

              Ладно, я сам обосрался.
              Ответить
    • В васике нету битовых операций? Или писавший специально прикололся? Не верю, что по незнанию, такие дебилы давно на ПХП ушли.
      Ответить
    • Причем тут asm вообще?
      Ответить
    • Фу, Пи писал на школоло?
      Ответить
    • показать все, что скрытоvanished
      Ответить
      • For example, I personally believe that Visual Basic did more for programming than Object-Oriented Languages did. 
        Yet people laugh at VB and say it's a bad language, and they've been talking about OO languages for decades.
        And no, Visual Basic wasn't a great language, but I think the easy database interfaces in VB were fundamentally more important than object orientation is, for example.


        Именно поэтому я за «Visual Basic» и против оопухов.
        Ответить
        • Да нет, это просто Торвальдс кресты ненавидит.

          Это как вот ты скажешь про какого-то плохого человека: "Ты такое мерзкое говно, что даже коровье говно лучше тебя". Но это же не будет означать, что ты любишь коровье говно?
          Ответить
          • Хахаха. Я вот не единожды в нулевых пинал адептов С++ бейсиком.

            И всегда их реакция была дико ржачной.

            Они с жаром доказывали какой С++ дико крутой и навороченный язык.

            Правда потом они все почему-то пересели на PHP.
            Ответить
            • Заметили? Случаев ухода с "PHP" нет, а вот случаев перехода на "PHP" - дохуя.
              Ответить
              • показать все, что скрытоvanished
                Ответить
                • И этого достаточно для многих практических задач. Как и пхп.
                  Ответить
              • > Случаев ухода с "PHP" нет

                Попробуй PHP.
                Взрослые говорят что он вреден, но это ложь.
                Ты сможешь отказаться PHP в любой момент.
                PHP делает жизнь интереснее и ярче.
                Если использовать PHP редко, то зависимость не возникает.
                Ответить
                • показать все, что скрытоvanished
                  Ответить
                  • Попробовал уйти в "Go" и тоже не захотел. Можно провести параллели с коронашизой: "Java", "Go", "Haskell" и "C/C++" - это жёсткий масочный режим с вонючими санитайзерами и залетающим в лёгкие синтетическим ворсом от масок, а "PHP" - чистейший альпийский воздух.
                    Ответить
                    • > «PHP» - чистейший альпийский воздух

                      Именно поэтому я за «PHP».

                      «PHP» — вдыхай жизнь обеими ноздрями.
                      Ответить
                      • вдохни-ка свежего альпийского воздушку
                        https://qna.habr.com/q/665379
                        https://qna.habr.com/q/672681
                        https://qna.habr.com/q/692348
                        да выпей чаю
                        Ответить
                        • >https://qna.habr.com/q/665379

                          Поэтому я против фреймворков. Это вообще долбоебизм - использовать сотни тысяч строк левого кода в уёбищной манере ООП, чтобы в итоге просто сделать пять-шесть раздельчиков или примитивное апцо.

                          >https://qna.habr.com/q/672681

                          Поэтому я за нормальные дорогие выделенные физические сервера. Об оптимизациях думают только нищеброды, желающие и рыбку съесть, и с "VPS" не слезть.

                          >https://qna.habr.com/q/692348

                          Поэтому я против "composer". С тех пор, как это говно возникло и захватило почти весь рынок, использование "PHP" и левых халявных плагинов превратилось в нескончаемую гонку за временем - ты постоянно должен обновлять "PHP", обновлять движок сайта, обновлять установленный предыдущим долбоёбом фреймворк и все "пацкаги" к нему. Раньше на одной версии "PHP" и одном движке можно было годами сидеть и не париться.
                          Ответить
    • - Стоп. Что за стремительная метаморфоза? То в ухо, то на тебе...
      Ответить

    Добавить комментарий