Школоло / Говнокод #3323 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 3.14159265, (Updated )

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

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

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

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

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

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

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

            Ладно, я сам обосрался.
            Ответить
  • В васике нету битовых операций? Или писавший специально прикололся? Не верю, что по незнанию, такие дебилы давно на ПХП ушли.
    Ответить
    • >>Не верю, что по незнанию, такие дебилы давно на ПХП ушли.

      или на дельфи
      Ответить
      • >>>такие дебилы давно на ПХП ушли.
        он и на пхп пишет ))
        у меня просто сырцов его сайтов нету

        а вообще дебилы они везде есть,
        но на ПХП их вообще безумное количество
        Ответить
      • Дебилы не дельфи не уходят, потому что им внушили, что дельфи отстой.
        Ответить
        • благословенные времена! можно было сраться на тему си версус паскаль

          а теперь сплошой джаваскрипт кругом
          Ответить
            • сейчас это как-то глупо

              даже тарасбер уже лет восемь пишет на крестах
              Ответить
                • это по всей чеховской-кибальчеховской все-все знают
                  Ответить
    • нормальных битовых операций нет, сдвигов нет
      но код все равно говно
      ибо деления тормозят даже на бейсике
      я всегда проверял на VB биты так
      1. генил массив степеней 2 = pow2(0..31)
      2. n and pow2(i) - наш бит
      работает гОраздо быстрее подобных говнометодов
      ибо возведение в степень это вообще x87 команда
      Ответить
      • > работает гОраздо быстрее подобных говнометодов

        хаха, в говноязыке нормальные конструкты считаются говнометодами?
        Ответить
  • да пи, не знал, что ты вижул бейсик программист
    Ответить
    • 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" - дохуя.
            Ответить
              • И этого достаточно для многих практических задач. Как и пхп.
                Ответить
            • > Случаев ухода с "PHP" нет

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

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

                    «PHP» — вдыхай жизнь обеими ноздрями.
                    Ответить
                      • >https://qna.habr.com/q/665379

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

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

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

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

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

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

Где здесь C++, guest?!

    А не использовать ли нам bbcode?


    8