ЙажаСценарий / Говнокод #29157 Ссылка на оригинал

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
  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
$(document).ready(function(){
	
	var formStr = '';
	
		formStr +=	'<button type="button" class="btn-close d-none d-md-block" data-bs-dismiss="modal" aria-label="Close"></button>';
		formStr +=		'<div class="modal-dialog modal-dialog-centered">';
		formStr +=			'<div class="modal-content">';				
		formStr +=				'<div class="modal-header position-relative">';			
		formStr +=					'<button type="button" class="btn-close d-md-none" data-bs-dismiss="modal" aria-label="Close"></button>';			
		formStr +=					'<div class="modal-header-image"></div>';			
		formStr +=				'</div>';			
		formStr +=				'<div class="modal-body">';			
		formStr +=				'<div class="good-result-text">';			
		formStr +=					'Ваша заявка успешно принята!';			
		formStr +=				'</div>';			
		formStr +=				'<div class="modal-body-title mb-3 text-center">';			
		formStr +=					'Заявка';			
		formStr +=				'</div>';			
		formStr +=				'<div class="mb-4 text-center">';			
		formStr +=					'Для подачи документов онлайн<br> заполните форму заявки.';			
		formStr +=				'</div>';			
		formStr +=				'<div class="mb-4">';			
		formStr +=					'<form class="modal-form">';			
		formStr +=						'<div class="modal-form-input-wrapper mb-2">';			
		formStr +=							'<select name="role-select">';			
		formStr +=								'<option selected disabled>Кто Вы?</option>';			
		formStr +=								'<option value="Родитель">Родитель</option>';			
		formStr +=								'<option value="Абитуриент">Абитуриент</option>';			
		formStr +=							'</select>';			
		formStr +=							'<span class="modal-form-input-error">';			
		formStr +=								'Необходимо выбрать Вашу роль';			
		formStr +=							'</span>';			
		formStr +=						'</div>';			
		formStr +=						'<div class="modal-form-input-wrapper mb-2">';			
		formStr +=							'<input type="text" autocomplete="name" name="name" value="" placeholder="ФИО:">';			
		formStr +=							'<span class="modal-form-input-error">';			
		formStr +=								'Укажите Ваше ФИО';			
		formStr +=							'</span>';			
		formStr +=						'</div>';			
		formStr +=						'<div class="modal-form-input-wrapper mb-2">';			
		formStr +=							'<input type="tel" autocomplete="phone" name="phone" value="" placeholder="Телефон:">';	
		formStr +=							'<span class="modal-form-input-error">';			
		formStr +=								'Укажите Ваш номер телефона';			
		formStr +=							'</span>';			
		formStr +=						'</div>';			
		formStr +=						'<div class="modal-form-input-wrapper mb-2">';			
		formStr +=							'<input type="email" autocomplete="email" name="email" value="" placeholder="Email:">';			
		formStr +=							'<span class="modal-form-input-error">';			
		formStr +=								'Укажите Ваш email';			
		formStr +=							'</span>';			
		formStr +=						'</div>';			
		// formStr +=						'<div class="modal-form-input-wrapper mb-2">';			
		// formStr +=							'<select name="theme-master-select">';			
		// formStr +=								'<option selected disabled>Выберите тему мастер-класса</option>';			
		// formStr +=								'<option value="Погружение во вселенную нейросетей">Погружение во вселенную нейросетей</option>';			
		// formStr +=								'<option value="Веселый кулинар">Веселый кулинар</option>';			
		// formStr +=								'<option value="Управление ">Управление </option>';			
		// formStr +=								'<option value="Эксперт-криминалист: секреты профессии">Эксперт-криминалист: секреты профессии</option>';			
		// formStr +=								'<option value="В мире финансов:  компас">В мире финансов:  компас</option>';
		// formStr +=								'<option value="Удивительные отели ">Удивительные отели </option>';
		// formStr +=								'<option value="В мире профессий. Операционная логистика">В мире профессий. Операционная логистика</option>';
		// formStr +=							'</select>';			
		// formStr +=							'<span class="modal-form-input-error">';			
		// formStr +=								'Необходимо выбрать тему мастер-класса';			
		// formStr +=							'</span>';			
		// formStr +=						'</div>	';			
		formStr +=						'<div class="privacy position-relative mb-3">';			
		formStr +=							'<label>';			
		formStr +=								'<input type="checkbox" name="pers-approval" checked>';			
		formStr +=								'<span class="checkmark"></span>';			
		formStr +=									'<div class="ps-4">';			
		formStr +=										'Согласен(-на) на обработку персональных данных, ';			
		formStr +=										'<a href="/privacy_policy.pdf" target="_blank">политикой конфиденциальности</a>, <a href="/Politika_v_otnoshenii_obrabotki.pdf" target="_blank">политикой в отношении обработки персональных данных</a>';			
		formStr +=									'</div>';			
		formStr +=							'</label>';			
		formStr +=							'<span class="modal-form-input-error">';				
		formStr +=								'Необходимо Ваше согласие';				
		formStr +=							'</span>';				
		formStr +=						'</div>';				
		formStr +=						'<div>';				
		formStr +=							'<button type="submit">';				
		formStr +=								'Отправить';				
		formStr +=							'</button>';				
		formStr +=						'</div>';				
		formStr +=					'</form>';				
		formStr +=				'</div>';				
		formStr +=				'<hr>';							

	$('#modalForm').append(formStr);

});

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

freeman_men freeman_men, (Updated )

Комментарии (3, +3)

Куча говна / Говнокод #29156 Ссылка на оригинал

0

  1. 1
IT Оффтоп #218

#188: https://govnokod.ru/28837 https://govnokod.xyz/_28837
#189: https://govnokod.ru/28840 https://govnokod.xyz/_28840
#190: https://govnokod.ru/28875 https://govnokod.xyz/_28875
#191: https://govnokod.ru/28878 https://govnokod.xyz/_28878
#192: https://govnokod.ru/28886 https://govnokod.xyz/_28886
#193: https://govnokod.ru/28911 https://govnokod.xyz/_28911
#194: https://govnokod.ru/28914 https://govnokod.xyz/_28914
#195: https://govnokod.ru/28917 https://govnokod.xyz/_28917
#196: https://govnokod.ru/28925 https://govnokod.xyz/_28925
#197: https://govnokod.ru/28935 https://govnokod.xyz/_28935
#198: https://govnokod.ru/28938 https://govnokod.xyz/_28938
#199: https://govnokod.ru/28942 https://govnokod.xyz/_28942
#200: https://govnokod.ru/28945 https://govnokod.xyz/_28945
#201: https://govnokod.ru/28948 https://govnokod.xyz/_28948
#202: https://govnokod.ru/28951 https://govnokod.xyz/_28951
#203: https://govnokod.ru/28954 https://govnokod.xyz/_28954
#204: https://govnokod.ru/28971 https://govnokod.xyz/_28971
#205: https://govnokod.ru/28986 https://govnokod.xyz/_28986
#206: https://govnokod.ru/28991 https://govnokod.xyz/_28991
#207: https://govnokod.ru/29002 https://govnokod.xyz/_29002
#208: https://govnokod.ru/29060 https://govnokod.xyz/_29060
#209: https://govnokod.ru/29070 https://govnokod.xyz/_29070
#210: https://govnokod.ru/29079 https://govnokod.xyz/_29079
#211: https://govnokod.ru/29092 https://govnokod.xyz/_29092
#212: https://govnokod.ru/29093 https://govnokod.xyz/_29093
#213: https://govnokod.ru/29104 https://govnokod.xyz/_29104
#214: https://govnokod.ru/29114 https://govnokod.xyz/_29114
#215: https://govnokod.ru/29125 https://govnokod.xyz/_29125
#216: https://govnokod.ru/29132 https://govnokod.xyz/_29132
#217: https://govnokod.ru/29147 https://govnokod.xyz/_29147

nepeKamHblu_nemyx nepeKamHblu_nemyx, (Updated )

Комментарии (408, +408)

Куча говна / Говнокод #29155 Ссылка на оригинал

0

  1. 1
Пиздец-оффтоп #112

#82: https://govnokod.ru/28779 https://govnokod.xyz/_28779
#83: https://govnokod.ru/28788 https://govnokod.xyz/_28788
#84: https://govnokod.ru/28795 https://govnokod.xyz/_28795
#85: https://govnokod.ru/28808 https://govnokod.xyz/_28808
#86: (vanished) https://govnokod.xyz/_28814
#87: https://govnokod.ru/28817 https://govnokod.xyz/_28817
#88: https://govnokod.ru/28836 https://govnokod.xyz/_28836
#89: https://govnokod.ru/28843 https://govnokod.xyz/_28843
#90: https://govnokod.ru/28874 https://govnokod.xyz/_28874
#91: https://govnokod.ru/28880 https://govnokod.xyz/_28880
#92: https://govnokod.ru/28884 https://govnokod.xyz/_28884
#93: https://govnokod.ru/28889 https://govnokod.xyz/_28889
#94: https://govnokod.ru/28895 https://govnokod.xyz/_28895
#95: https://govnokod.ru/28904 https://govnokod.xyz/_28904
#96: https://govnokod.ru/28912 https://govnokod.xyz/_28912
#97: https://govnokod.ru/28918 https://govnokod.xyz/_28918
#98: https://govnokod.ru/28932 https://govnokod.xyz/_28932
#99: https://govnokod.ru/28936 https://govnokod.xyz/_28936
#100: https://govnokod.ru/28940 https://govnokod.xyz/_28940
#101: https://govnokod.ru/28949 https://govnokod.xyz/_28949
#102: https://govnokod.ru/28978 https://govnokod.xyz/_28978
#103: https://govnokod.ru/28982 https://govnokod.xyz/_28982
#104: https://govnokod.ru/28989 https://govnokod.xyz/_28989
#105: https://govnokod.ru/29052 https://govnokod.xyz/_29052
#106: https://govnokod.ru/29069 https://govnokod.xyz/_29069
#107: https://govnokod.ru/29086 https://govnokod.xyz/_29086
#108: https://govnokod.ru/29102 https://govnokod.xyz/_29102
#109: https://govnokod.ru/29126 https://govnokod.xyz/_29126
#110: https://govnokod.ru/29136 https://govnokod.xyz/_29136
#111: https://govnokod.ru/29142 https://govnokod.xyz/_29142

nepeKamHblu_nemyx nepeKamHblu_nemyx, (Updated )

Комментарии (425, +425)

Хламидомонада / Говнокод #29154 Ссылка на оригинал

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
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
(ql:quickload :cl-json)

(defmacro penetrate-json (val shifrate)
  `(if (null ,shifrate)
     ,val)

  `(case ,shifrate
     (#XA (penetrate-json (car ,val) (cadr ,shifrate)))
     (#XF (penetrate-json (cdr ,val) (cadr ,shifrate)))
     (#XFF (penetrate-json (caadar ,val) (cadr ,shifrate)))
     (#XFA (penetrate-json (cddddr ,val) (cadr ,shifrate)))
     (#XAF (penetrate-json (caddar ,val) (cadr ,shifrate)))
     (#XFFF (penetrate-json (cdaadr ,val) (cadr ,shifrate)))
     (#XFAF (penetrate-json (cddadr ,val) (cadr ,shifrate)))
     (#XAAA (penetrate-json (caaddr ,val) (cadr ,shifrate)))))

(let ((parsed (with-open-file (stream "C:/Users/lisps/PycharmProjects/pythonProject/.venv/Scripts/commonlisp/test" :direction :input)
                (json:decode-json-from-source stream))))

  (setf (cdadar (penetrate-json (assoc :pidorasik parsed) `(,#XA ,#XFAF ,#XFFF ,#XAF ,#XF ,#XAAA ,#XFAF ,#XFF))) 100) ; oh my fucking gosh

  (with-open-file (stream "C:/Users/lisps/PycharmProjects/pythonProject/.venv/Scripts/commonlisp/test" :direction :output :if-exists :supersede)
    (json:encode-json parsed stream)))

car/cdr ад

lisp-worst-code lisp-worst-code, (Updated )

Комментарии (6, +6)

Змея / Говнокод #29153 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
from gremllm import Gremllm

# Be sure to tell your gremllm what sort of thing it is
counter = Gremllm('counter')
counter.value = 5
counter.increment()
print(counter.value)  # 6?
print(counter.to_roman_numerals()) # VI?

https://github.com/awwaiid/gremllm

Нет, вы не поняли. На каждый метод он запускает "ИИ", который додумывает что нужно сделать.

OCETuHCKuu_nemyx OCETuHCKuu_nemyx, (Updated )

Комментарии (9, +9)

Си диез / Говнокод #29152 Ссылка на оригинал

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
  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
// https://github.com/dotnet/runtime/issues/117233#issuecomment-3028066225

// Issue: Math.Pow relies directly on the OS pow implementation

// Location: [src/coreclr/classlibnative/float/floatdouble.cpp lines 232‑236] and [src/coreclr/classlibnative/float/floatsingle.cpp lines 207‑211]

// COMDouble::Pow and COMSingle::Pow simply call pow/powf from the C runtime. On Windows 11 Insider Preview (build 27881.1000),
// these functions can return incorrect results (e.g., Math.Pow(-1, 2) giving -1). The JIT also uses these functions for constant folding, causing
// wrong constants to be embedded at compile time.

// Suggested Fix: Introduce a managed fallback in COMDouble::Pow/COMSingle::Pow that handles negative bases with integral exponents, bypassing the faulty system call.

//A simple approach:

FCIMPL2_VV(double, COMDouble::Pow, double x, double y)
{
    FCALL_CONTRACT;

    if ((x < 0.0) && (y == floor(y)))
    {
        double absResult = pow(-x, y);
        return fmod(fabs(y), 2.0) == 1.0 ? -absResult : absResult;
    }

    return pow(x, y);
}

// Suggested Implementation:

// Add the following code to src/coreclr/classlibnative/float/floatdouble.cpp below line 234 before the return pow:

if ((x < 0.0) && (y == floor(y)))
{
    double result = pow(-x, y);

    if (fmod(fabs(y), 2.0) != 0.0)
    {
        result = -result;
    }

    return result;
}

// Add the following code to src/coreclr/classlibnative/float/floatsingle.cpp below line 209 before the return powf:

if ((x < 0.0f) && (y == floorf(y)))
{
    float result = powf(-x, y);

    if (fmodf(fabsf(y), 2.0f) != 0.0f)
    {
        result = -result;
    }

    return result;
}

// Add the following code to src/libraries/System.Runtime/tests/System.Runtime.Extensions.Tests/System/Math.cs below line 1124:

[Fact]
public static void Pow_NegativeBaseEvenExponent_ReturnsPositive()
{
    Assert.Equal(1.0, Math.Pow(-1, 2));
    Assert.Equal(16.0, Math.Pow(-2, 4));
}

Вот к чему плавучий петух приводит!

j123123 j123123, (Updated )

Комментарии (22, +22)

Куча говна / Говнокод #29151 Ссылка на оригинал

0

  1. 1
The stylesheet http://govnokod.ru/media/07be0bfd97ac9918b4a7bacde60881b6.css?files=jquery-ui.css,jip.css,jip/jipCore.css,icons.css,bullets.css,flags.css,langs/javascript.css,langs/python.css,langs/.css,langs/c.css was not loaded because its MIME type, “text/html”, is not “text/css”.

Кто-то обосрался

mittorn mittorn, (Updated )

Комментарии (4, +4)

ЙажаСценарий / Говнокод #29150 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
Казалось бы, измненений не много
https://github.com/microsoft/monaco-editor/compare/v0.47.0...v0.48.0-dev-20240319
Но за ними конечно же кроется это
https://github.com/microsoft/vscode/compare/1e790d77f81672c49be070e04474901747115651...33cd6f1001b92a912898996be69b6928eda1a682
Все фронтендеры должны гореть в аду

Где-то здесь поломали рендер. Где, конечно, неясно, эксепшнов никаких нету, просто рисует какую-то эпилепсию вместо текста, но разумеется этот редахтур пихуют повсюду. Как среди этой кучи что-то найти тоже неясно.
Это не код, авгивевы конюшни.
Горите блять в аду

mittorn mittorn, (Updated )

Комментарии (4, +4)

Змея / Говнокод #29149 Ссылка на оригинал

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
  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
def animate_fight (self, игрок):
       if self.gamedata.animate_fight == True: 
          
          if self.gamedata.fight_animation_progress < 3:
           self.gamedata.screen.blit(self.fight1, (self.x - (self.width // 2), self.y - (self.width //2) ))
           
          elif 3 <= self.gamedata.fight_animation_progress < 6:
           self.gamedata.screen.blit(self.fight2, (self.x - (self.width // 2), self.y - (self.width //2) ))

          elif  6 <= self.gamedata.fight_animation_progress < 9:
           self.gamedata.screen.blit(self.fight3, (self.x - (self.width // 2), self.y - (self.width //2) ))
           self.gamedata.screen.blit(self.fight1, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
          elif  9 <= self.gamedata.fight_animation_progress < 12:
           self.gamedata.screen.blit(self.fight4, (self.x - (self.width // 2), self.y - (self.width //2) ))
           self.gamedata.screen.blit(self.fight2, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
          elif  12 <= self.gamedata.fight_animation_progress < 15:
           self.gamedata.screen.blit(self.fight5, (self.x - (self.width // 2), self.y - (self.width //2) ))
           self.gamedata.screen.blit(self.fight3, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
          elif  15 <= self.gamedata.fight_animation_progress < 18:
           self.gamedata.screen.blit(self.fight6, (self.x - (self.width // 2), self.y - (self.width //2) ))
           self.gamedata.screen.blit(self.fight4, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
          elif  18 <= self.gamedata.fight_animation_progress < 21:
             self.gamedata.screen.blit(self.fight5, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))

          elif  21 <= self.gamedata.fight_animation_progress < 24:
             self.gamedata.screen.blit(self.fight6, (игрок.x - (self.width // 2), игрок.y - (self.width // 2) ))
           
          elif  24 <=self.gamedata.fight_animation_progress:
             self.gamedata.animating = False
             self.gamedata.fight_animation_progress = 0
             self.gamedata.animate_fight = False
          if 24 > self.gamedata.fight_animation_progress:
           self.gamedata.fight_animation_progress += 1

Зачем делить на 3, если можно написать кучу говна?

1004w 1004w, (Updated )

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

Хламидомонада / Говнокод #29148 Ссылка на оригинал

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
  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
(defun sbcl-vrt-simd-pntr (a f fa &aux (defun (progn (defmacro << (x y) `,(ash x y)) (defmacro >> (x y) `,(ash x (- y))) (defmacro ~ (x) `(lognot ,x))))
                                       (if (progn (labels ((t (a f fa) (declare (type integer a)
                                                                                (type (function (integer (function () (values)) (pointer single-float)) integer) f)
                                                                                (type (array real (*)) fa))
                                                                       (declaim (optimize (speed (the (list integer (*)) '(-1 0 1))) (debug 0) (safety 0) (space 0))))) (funcall #'t a f fa)))))

  (defclass res (standard-class) ((%size-st :initform nil :accessor size-st)))
  (defclass d (standard-class) ((%size-n :initform nil :accessor size-n)))
  (defmethod sb-mop:validate-superclass ((class class) (meta standard-class)) defun t)
  (defmethod initialize-instance :after ((obj res) &key &allow-other-keys) (setf (size-st obj) (sb-vm::primitive-object-size (type-of (let ((a #xFFFF)) (declare (type (integer #x0 #xFFFF) a)))))))
  (defmethod initialize-instance :after ((obj d) &key) (setf (size-n obj) (sb-vm::primitive-object-size 0)))
  (defclass simd-virtual-guard (res d) ((%spn :initform 0 :accessor spn :type integer)) (:metaclass d))

  (let ((lac (make-instance 'simd-virtual-guard)) (data f) (b "8153024679"))
    `(declare (type (array (member ,(let* ((i '())) (do* ((y 0 (+ y 1))) ((= (- y 1) 9) 'nil) (push y i)))) (3)) data)
              (type string b)
              (type simd-virtual-duard lac))

    (setf (spn lac) (+ (size-st lac) (size-n lac)))

    (loop for ll from (- (sb-vm::primitive-object-size b) 55) downto 0 by 4
          do (progn
               (setf (char b ll) #\0)
               (setf (char b (- ll #x1)) #\1)
               (setf (char b (if (= ll 1) (- (+ ll 9) #x2) (- ll #x2))) #\2)))

    (- (ash 1 2) (- (char-code (char b 0)) (sb-vm::primitive-object-size "2")))))

(defun sbcl-vrt-simd64 (f0 f1 &aux (returnable 0) (declare (labels ((nil (f0 f1) (declare (type (function ()) f0) (type (function ()) f1)))) (funcall #'nil f0 f1))))
  (labels ((pntr (addr) (sb-sys:sap-ref-8 (sb-sys:int-sap addr) 0))
           (ref (obj) (sb-kernel:get-lisp-obj-address obj)))

    (macrolet ((s (v) `(setq returnable ,v)))
      (let ((d (- (ref f0) (ref f1))))
        (declare (type integer d))

        (if (not (ash (- (* (integer-length 0) (integer-length 0)) 1) d))
          (do* ((d d (- d 1))) (zerop d)
            (case (+ (ref f0) d)
              (0XC3C9 (s 0))
              (0XB8 (if (not (+ (ref f0) d 1)) (s 1) (s -1))
              (0XC031 (s 2)))))))

      (return-from sbcl-vrt-simd64 returnable))))

пародия на https://www.govnokod.ru/29120

lisp-worst-code lisp-worst-code, (Updated )

Комментарии (1, +1)