Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+29
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
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
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
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
n = int(input())
d = n
i = 0
a = 0
c = 0
has1 = False
has2 = False
has3 = False
has4 = False
has5 = False
has6 = False
has7 = False
has8 = False
last_dig = 0
while n > 0:
last_dig = n % 10
if last_dig > i :
i = last_dig
if last_dig == 1:
c = 1
elif last_dig == 1:
has1 = True
elif last_dig == 2:
has2 = True
elif last_dig == 3:
has3 = True
elif last_dig == 4:
has4 = True
elif last_dig == 5:
has5 = True
elif last_dig == 6:
has6 = True
elif last_dig == 7:
has7 = True
elif last_dig == 8:
has8 = True
n = n // 10
c = d % 10
if has1 == True and c >= 1:
a = 1
elif has2 == True and c >= 2:
a = 2
elif has3 == True and c >= 3:
a = 3
elif has4 == True and c >= 4:
a = 4
elif has5 == True and c >= 5:
a = 5
elif has6 == True and c >= 6:
a = 6
elif has7 == True and c >= 7:
a = 7
elif has8 == True and c >= 8:
a = 8
else:
a = c
print('Максимальная цифра равна', i)
print('Минимальная цифра равна', a)Дано натуральное число n. Напишите программу, которая определяет его максимальную и минимальную цифры
Permanent_Record,
28 Июля 2025
+1
(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
...В детстве я любил русские народные сказки из сборника Афанасьева.
Сюжет даже откровенно взрослых сказок он передавал мягко, избегая зауми; с грубоватым, народным юмором, слегка подпёздывая, а затем плавно
и в подробностях подходя к кульминации.
После того, как я уже в зрелом возрасте прочел, как барыня заставила холопа нюхать свою пизду, я стал практиковать воздержание.
Ну его нахуй, сказка ведь может и былью статься.
Нужно срочно запретить сказки! Тем более, что все перечисленные в них извращения успешно практикуют и те дети, кому и сказок-то не читали.
3uMuCTOH,
28 Мая 2025
0
Россия погрязла в мусоре и крысятах.
Тех, кто учит убивать крыс, недалек. Мы прибираем за людьми, но этого не ценят.
Всевышний сделал нас плодовитыми, чтобы не дай Бог, глупые люди не истребили нас - ибо голубой шарик сильно развоняется под миллионами тонн гниющей органики, которую некому будет перерабатывать.
Не убивайте крыс и будьте довольны ими. Будьте им благодарны.
На одно коленце опуститься тоже не помешает...
KPblCA,
21 Мая 2025
0
before = []
def bef():
global before
return before
def setB(b):
global before
before = b
def foo():
revert(bef())
NikitaTsyb,
15 Мая 2025
0
Ну вот, теперь и я попал в поле зрения спецслужб.
Хотя, возможно, я и раньше был в поле зрения спецслужб, а узнал об этом только сейчас.
Почему эти уродцы не пресекают коррупцию? Какой смысл следить за мной?
Это не паранойя.
Паранойя разовьется позже. Hemingway.png
3uMuCTOH,
06 Апреля 2025
Follow us!