1. Assembler / Говнокод #27216

    −4

    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
    format pe console
   include 'win32ax.inc'
macro call1 f,p1{
   mov    ebx,p1
   call   f}
macro call2 f,p1,p2{
   mov    ecx,p2
   call1  f,p1}
macro call3 f,p1,p2,p3{
   mov    edx,p3
   call2  f,p1,p2}
.data
   lead_time dd ?
   handle_input dd ?
   handle_output dd ?
   byte_read_write dd ?
.code
   string db 'govnokod.ru ',13,10,0
   array_procs dd __strlen,_strlen,strlen,0
putdword:;ebx-handle,ecx-byte
   mov    eax,esp
   mov    esi,eax
   sub    esp,16
   xchg   eax,ecx
   mov    edi,10
@@:xor    edx,edx
   div    edi
   add    dl,'0'
   dec    ecx
   mov    [ecx],dl
   test   eax,eax
   jnz    @b
   sub    esi,ecx
   mov    edx,esi
   invoke WriteFile,ebx,ecx,edx,byte_read_write,0
   add    esp,16
   ret
align 4
strlen:;ebx-array of char
   mov    eax,12
   ret
align 4
_strlen:;ebx-array of char
   clc
   xor    ecx,ecx
   dec    ecx
   mov    edi,ebx
   xor    al,al
   repne  scasb
   not    ecx
   dec    ecx
   mov    eax,ecx
   ret
align 4
__strlen:;ebx-array of char
   xor    eax,eax
   dec    eax
@@:inc    eax
   cmp    byte[ebx+eax],0
   jne    @b
   ret
start:
   invoke GetStdHandle,STD_INPUT_HANDLE
   mov    [handle_input],eax
   invoke GetStdHandle,STD_OUTPUT_HANDLE
   mov    [handle_output],eax
   mov    ebp,array_procs
next_step:
   call   [GetTickCount]
   mov    [lead_time],eax
   xor    ecx,
@@:push   ecx
   mov    ebx,string
   call   dword[ebp]
   pop    ecx
   loop   @b
   push   eax
   call   [GetTickCount]
   sub    eax,[lead_time]
   mov    ecx,1000
   xor    edx,edx
   div    ecx
   push   edx
   call2  putdword,[handle_output],eax
   invoke WriteFile,ebx,string+8,1,byte_read_write,0
   pop    ecx
   call2  putdword,[handle_output],ecx
   invoke WriteFile,ebx,string+11,1,byte_read_write,0
   pop    ecx
   call2  putdword,[handle_output],ecx
   invoke WriteFile,[handle_output],string+12,2,byte_read_write,0
   add    ebp,4
   cmp    dword[ebp],0
   jne    next_step
   call   [GetTickCount]
   mov    [lead_time],eax
   invoke SetConsoleMode,[handle_input],0
   invoke ReadFile,[handle_input],byte_read_write,1,byte_read_write,0
   invoke ExitProcess,0
.end start

    Поговнокодим однако.
    Зачем в процессоре занимают место команды типа repne scasb и прочее, если простые аналоги быстрее компактнее и проще встраивать в алгоритм без отдельной подпрограммы да и регистров в разы меньше требуется. Пустая подпрограмма для понимания сколько времени занимает лишний код. Есть предположение что раньше на заре развития они работали шустрее, но это только предположение.

    chiacorp, 15 Января 2021

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

  2. Си / Говнокод #27215

    −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
    includelib  C:\Irvine\User32.Lib
includelib  C:\Irvine\Kernel32.Lib
includelib  D:\masm32\lib\Irvine32.lib
include     \masm32\include\Irvine32.inc

.data

data_1 dword  45

data_2 dword 29

msg byte ?

.code
main PROC
xor ebx,  ebx
xor eax,  eax
xor edx,  edx
xor esi,  esi

mov cl ,31
mov eax, data_1
mov esi , data_2


lm:

shl esi,   1
jnc one
cmp msg, 1

je two
shl eax,   cl

mov   msg, 1
mov ebx, data_1
jmp one

two:

shl ebx, cl
mov   msg, 0
add eax, ebx
add edx , eax
mov eax, data_1


one:

loop lm

mov eax , edx

call WriteInt
Call CrLf
	
	exit
main ENDP
END main

    Hey, Mr. Tambourine Man, play a song for me
    I'm not sleepy and there is no place I'm going to
    Hey, Mr. Tambourine Man, play a song for me
    In the jingle jangle morning I'll come following you
    Though I know that evening's empire has returned into sand
    Vanished from my hand
    Left me blindly here to stand, but still not sleeping
    My weariness amazes me, I'm branded on my feet
    I have no one to meet
    And the ancient empty street's too dead for dreaming
    Hey, Mr. Tambourine Man, play a song for me
    I'm not sleepy and there is no place I'm going to
    Hey, Mr. Tambourine Man, play a song for me
    In the jingle jangle morning I'll come following you
    Take me on a trip upon your magic swirling ship
    My senses have been stripped
    My hands can't feel to grip
    My toes too numb to step
    Wait only for my boot heels to be wandering
    I'm ready to go anywhere, I'm ready for to fade
    Into my own parade
    Cast your dancing spell my way, I promise to go under it
    Hey, Mr. Tambourine Man, play a song for me
    I'm not sleepy and there is no place I'm going to
    Hey, Mr. Tambourine Man, play a song for me
    In the jingle jangle morning I'll come following you

    Madhouse_camomile, 14 Января 2021

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

  3. Pascal / Говнокод #27214

    −2

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    procedure ProgramRestart(Sender: TObject);
begin
   Application.Terminate;
   ShellExecute(0,'open',Application.ExeName,'','',SW_NORMAL); // ))
end;

    Неделю когда-то пытался понять почему этот код не работает: "Я же программу вырубил? - вырубил... Я же ее запускаю? - запускаю... А че она не запускается?)))..."

    vovka3003, 13 Января 2021

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

  4. Куча / Говнокод #27213

    0

    1. 1
    'x'.repeat(a).concat('x'.repeat(b)).length

    Сложение чисел a и b без использования операторов + и -

    Мистер Хэнки, 12 Января 2021

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

  5. Куча / Говнокод #27212

    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
    # ------------------- fUnicodeToUTF8----------------------
:global fUnicodeToUTF8
:if (!any $fUnicodeToUTF8) do={ :global fUnicodeToUTF8 do={
  :global fByteToEscapeChar
#  :local Ubytes [:tonum $1]
  :local Nbyte
  :local EscapeStr ""

  :if ($1 < 0x80) do={
    :set EscapeStr [$fByteToEscapeChar $1]
  } else={
    :if ($1 < 0x800) do={
      :set Nbyte 2
    } else={  
      :if ($1 < 0x10000) do={
        :set Nbyte 3
      } else={
        :if ($1 < 0x20000) do={
          :set Nbyte 4
        } else={
          :if ($1 < 0x4000000) do={
            :set Nbyte 5
          } else={
            :if ($1 < 0x80000000) do={
              :set Nbyte 6
            }
          }
        }
      }
    }
    :for i from=2 to=$Nbyte do={
      :set EscapeStr ([$fByteToEscapeChar ($1 & 0x3F | 0x80)] . $EscapeStr)
      :set $1 ($1 >> 6)
    }
    :set EscapeStr ([$fByteToEscapeChar (((0xFF00 >> $Nbyte) & 0xFF) | $1)] . $EscapeStr)
  }
  :return $EscapeStr
}}

    угадай язык

    MAKAKA, 12 Января 2021

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

  6. JavaScript / Говнокод #27211

    0

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    if (condition)
{
    return result;
}

for (let i = 0; i < 5; i++) 
{
    console.log(i)
}

    Зачастую у многих программистов, который пишут на джаваскрипте, наблюдаю следующую картину - вероятно, унаследованную из какого-нибудь си шарпа.
    Можно ли назвать это говнокодом, в рамках JS?

    Alexandre, 11 Января 2021

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

  7. C++ / Говнокод #27210

    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
    #include <iostream>
#include <vector>

template <typename T>
struct Vec {
        T x, y;

	Vec& operator /=(const T& d) {
            x /= d;
            y /= d;
	    return *this;
	}
};

    Найдите баг в коде.

    Посмотрел этот видос: https://www.youtube.com/watch?v=4M1MlW0sP0Q

    3_dar, 11 Января 2021

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

  8. C++ / Говнокод #27209

    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
    // https://www.linux.org.ru/forum/development/16099510/
// c++ шаблон zip-like итератора? 
// В python есть крайне полезные функции zip, enumerate, range. Мне нужно что-то подобное для cpp/cuda (c++17).
// Если c range и enumerate более менее понятно, то как реализовать zip не соображу. Семантически это должно быть variadic template

template<typename t, typename... ts>
class zip : zip<ts...>{
	zip(t arg, ts... args);
	struct iterator;
	begin() -> iterator;
	end()   -> iterator;
};

// Где итератор возвращает кортеж ссылок на элементы что с контейнерами можно было работать как:

for(auto [x,y,z] : zip(xs,ys,zs))

// Рекурсивное наследование должно быть ограничено тривиальным случаем одного аргумента.
//Но, кажется, я думаю не в правильную сторону, в частности, не соображу как рекурсивно вывести тип возвращаемых итератором кортежей:

using ret_type = tuple<decltype(begin(declval<t>())), decltype(???)>

    Блять, как всё сложно. Какие-то рекурсивные выводы типов возвращаемых итераторов кортежей блядь.

    Вот если б вместо ущербного триждыблядского типодрочерского шаблоноговна сделали что-то помощнее...

    j123123, 11 Января 2021

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

  9. Python / Говнокод #27206

    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
    import fnmatch,os,datetime,time,re,shutil,sys 
	
def find(pattern, startdir=os.curdir): 
		for (thisDir, subsHere, filesHere) in os.walk(startdir): # 
			for name in subsHere + filesHere:
				if fnmatch.fnmatch(name,pattern): 
					fullpath = os.path.join(thisDir,name)
					yield fullpath 

def timeconvert(x):
	convert  = time.strftime("%Y-%m-%d",time.localtime(os.path.getctime(x)))   
	return   convert

print("select action: delete: delete files: copy: copy files: view: view files")
action = input(" ")

if action == "copy":
    print("inter path")
    dest = input(" ") 

else:
    print ("inter date")
    cursive = input("")
    optime  = re.search('20[0-12]\d{1,2}.\d{1,2}',cursive)

if optime == None:
    print ('error')
else:    
	if __name__== '__main__':
		import sys 
		namepattern,startdir, = sys.argv[1],sys.argv[2]
        for name in find(namepattern,startdir): 
        
		
          
		  if not  str(cursive) <= timeconvert(name):   
            if action == 'copy':
                shutil.copy(name, dest)
            
			elif action == 'delete':
                os.remove(name)
			  
            elif  action == "view":
               print(name + timeconvert(name))
            
			else:
                print ('error')

    Я по сусекам метён,
    По коробам скребён,
    На сыром масле мешен,
    На окошке стужен;
    Я от дедушки ушёл,
    Я от бабушки ушёл,
    И от тебя убегу.

    Madhouse_camomile, 11 Января 2021

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

  10. Assembler / Говнокод #27205

    −6

    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
    includelib  C:\Irvine\User32.Lib
includelib  C:\Irvine\Kernel32.Lib
includelib  D:\masm32\lib\Irvine32.lib
include     \masm32\include\Irvine32.inc

; D:/masm32/bin/ml.exe /c  /coff  "D:\asm\rcl.asm"
; D:/masm32\bin\link.exe /subsystem:console  "D:\asm\rcl.obj"

.data

  
.code
main PROC
  xor eax, eax
  xor edx , edx
  
  mov al , 10101010b
  
  cmp al,80h
  jns just
  shr al,1
  jmp print
  
  just:
 
  shr al,1
  or ax,80h
 
  print:
  call WriteBin
		
	exit
	main ENDP
END main

    Дай бог здоровья товарищу Ирвину.

    Madhouse_camomile, 10 Января 2021

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