-
Лучший говнокод
- В номинации:
-
- За время:
-
-
−45.6
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
if ( g_nIdleState == 0 )
{ // Initialize the splash screen right away
if ( g_CurrentOptions.get_splash_screen() )
fgSplashInit();
g_nIdleState++;
}
else
if ( g_nIdleState == 1 )
g_nIdleState++;
else
if ( g_nIdleState == 2 )
g_nIdleState++;
else
if ( g_nIdleState == 3 )
{
if( !fgInitSubsystems())
{
FG_LOG(__FILE__, __LINE__, FG_DK_GENERAL, FG_FALSE, "Subsystem initializations failed ..." );
exit(-1);
}
g_nIdleState++;
}
else
if ( g_nIdleState == 4 )
{
fgInitVisuals(); // setup OpenGL view parameters
g_nIdleState++;
}
else
if ( g_nIdleState == 5 )
g_nIdleState++;
else
if ( g_nIdleState == 6 )
{
mark_time( &g_tsFrame );
mark_time(&g_tsTime);
g_nIdleState = 1000;
}
if ( g_nIdleState == 1000 )
fgMainLoop();
else
if ( g_CurrentOptions.get_splash_screen() == 1 )
fgSplashUpdate(0.0);
процесс загрузки и вывода сплэш-скрина и запуск основного рендера после этого (так предлагал делать flight gear в очень старой версии или чел, который ваял этот код, когда переделывал FG под нужды двигла, бугага)
guest,
12 Декабря 2008
-
+29
- 1
$result = $this->CachedRequest(600, $sirenaXml->Write(true) . ' ', $rxml); // Никто никогда не поверит, зачем нужен пробел. ЧТОБЫ ВСЕ РАБОТАЛО! Магия.
запрос в систему бронирования авиабилетов
guest,
11 Декабря 2008
-
+29
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
bool MyProc::CompareModule(int *operand1, int *operand2, int n) {
for (int i = 1; i < n; i++) {
if (operand1[i] != operand2[i]) {
if (operand1[i] < operand2[i])
return false;
else
return true;
};
};
return true;
};
guest,
10 Декабря 2008
-
−42.8
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
procedure TForm1.fritb(ie:longint;var fr0:extended);
begin
v1:=0;
for nsf:=1 to 5 do
begin
kl11:=0;kl12:=0;kl22:=0;
for k:=1 to km[nsf] do
begin
if (cm^[ie]=cm^[nm^[(ie-1)*kms[ksf+1]+kms[nsf]+k]])and (cm^[ie]=1)
then kl11:=kl11+1;
if (cm^[ie]=cm^[nm^[(ie-1)*kms[ksf+1]+kms[nsf]+k]])and (cm^[ie]=2)
then kl22:=kl22+1;
if (cm^[ie]<>cm^[nm^[(ie-1)*kms[ksf+1]+kms[nsf]+k]])and(cm^[nm^[(ie-1)*kms[ksf+1]+kms[nsf]+k]]<>0)and (cm^[ie]<>0)
then kl12:=kl12+1;
end;
fr0:=fr0+kl11*(p11[1,nsf])+kl22*p11[2,nsf]+kl12*p11[3,nsf];
v1:=v1+kl11*(f11[1,nsf])+kl22*f11[2,nsf]+kl12*f11[3,nsf];
end;
fr0:=fr0-sqrt(abs(v1));
end;
процеДуро
guest,
09 Декабря 2008
-
−50
- 1
- 2
- 3
- 4
contents = contents.replaceAll("\\<(\\w+)\\>", "<CT_$1>\n");
contents = contents.replaceAll("\\<(\\w+)(\\s\\w+)=\\"(\\w+)\\"\\>", "<CT_$1$2=\"$3\">\n");
contents = contents.replaceAll("\\<(\\w+)(\\s\\w+)=\\'(\\w+)\\'\\>", "<CT_$1$2='$3'>\n");
contents = contents.replaceAll("\\</(\\w+)\\>", "\n</CT_$1>\n");
преобразуем эскейпнутые тэги в обычные
guest,
09 Декабря 2008
-
+30
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
private static string identifier(string wmiClass, string wmiProperty)
{
string result = "";
System.Management.ManagementClass mc =
new System.Management.ManagementClass(wmiClass);
System.Management.ManagementObjectCollection moc = mc.GetInstances();
foreach (System.Management.ManagementObject mo in moc)
{
//Only get the first one
if (result == "")
{
try
{
result = mo[wmiProperty].ToString();
break;
}
catch
{
}
}
}
return result;
}
guest,
08 Декабря 2008
-
0
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 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,
04 Июля 2025
-
+1
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 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,
23 Июня 2025
-
0
- 1
- 2
- 3
- 4
- 5
...В детстве я любил русские народные сказки из сборника Афанасьева.
Сюжет даже откровенно взрослых сказок он передавал мягко, избегая зауми; с грубоватым, народным юмором, слегка подпёздывая, а затем плавно
и в подробностях подходя к кульминации.
После того, как я уже в зрелом возрасте прочел, как барыня заставила холопа нюхать свою пизду, я стал практиковать воздержание.
Ну его нахуй, сказка ведь может и былью статься.
Нужно срочно запретить сказки! Тем более, что все перечисленные в них извращения успешно практикуют и те дети, кому и сказок-то не читали.
3uMuCTOH,
28 Мая 2025
-
0
- 1
Россия погрязла в мусоре и крысятах.
Тех, кто учит убивать крыс, недалек. Мы прибираем за людьми, но этого не ценят.
Всевышний сделал нас плодовитыми, чтобы не дай Бог, глупые люди не истребили нас - ибо голубой шарик сильно развоняется под миллионами тонн гниющей органики, которую некому будет перерабатывать.
Не убивайте крыс и будьте довольны ими. Будьте им благодарны.
На одно коленце опуститься тоже не помешает...
KPblCA,
21 Мая 2025