−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
+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
0
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
before = []
def bef():
global before
return before
def setB(b):
global before
before = b
def foo():
revert(bef())
NikitaTsyb,
15 Мая 2025
0
- 1
- 2
- 3
- 4
Ну вот, теперь и я попал в поле зрения спецслужб.
Хотя, возможно, я и раньше был в поле зрения спецслужб, а узнал об этом только сейчас.
Почему эти уродцы не пресекают коррупцию? Какой смысл следить за мной?
Это не паранойя.
Паранойя разовьется позже. Hemingway.png
3uMuCTOH,
06 Апреля 2025
+1
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
Представьте такую картину: вам 27 лет, Вы идете такой, на работу или еще куда-нибудь и Вас сбивает машина.
Или Вам на голову падает бронзовая статуя Владимира Ильича. Или Вас убивает шальная пуля.
На вас глазеют люди да и Вы сам, с высоты седьмого этажа. Потом Вашу душу засасывает в небо.
Ваше тело погружают в труповоз и везут на вскрытие. Но этого Вы уже не видите, потому, что началось оформление документов на пограничье.
Вот - тело закатывают в разделочную, как именуют прозекторский зал, и начинается вскрытие.
Через пять минут помощница засовывает трупу - то есть, Вам - градусник в анус. Далее следует диалог примерно такого вида:
-Леонид Петрович, у него сперма в ректуме...
-Жертва изнасилования?
-Да нет, труп - не криминал.
-Мда. А на вид и не скажешь.
...
3uMuCTOH,
04 Апреля 2025
+1
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
Мне часто снится один и тот же сон, я растворяюсь в нем. Это события сорокапятилетней давности, которые все еще живы, свежи и
продолжают волновать меня.
...В нашем доме живет мальчик Рамон. Ему четырнадцать лет. Я дружен ним и его маленьким братом Рамилем.
С ними мы часто носимся по двору, но иногда придумываем и более разнузданные развлечения, вроде прыжков с обрыва.
Иногда мы забираемся в грушовый сад еврея-бобыля, живущего по соседству. Не единожды мне доставалось от шалостей,
на которые подстегнул меня Рамон. Едва взглянув на его выразительное, смуглое, в царапинах, лицо, моментально поддаешься
чарам иссиня-голубых пронзительных глаз. И не понять сразу, какой бедовый нрав имеет их хозяин. Когда же это осознание
приходит, то бывает уже поздно. Слишком поздно.
Вот и сейчас, словно сквозь пелену, я слышу елейно-приторный голос Рамона, предлагающего навестить сад, и последующее
осознание того, что я не смогу ему отказать. И вот - ватага мальчишек, среди которых я, украдкой пробирается в чужой сад, чтобы
полакомиться сладкими грушами. Досыта наевшись, мы продолжаем бродить по саду с перемазанными липкой сладостью рожами,
но вдруг раздается скрип калитки, а за ним следует вопль. Ребятишки в ужасе соскакивают с деревьев и бросаются наутек.
Еврей с красным от злости лицом гонится за нами, растопырив руки. Я явственно вижу его перекошенное лицо и чувствую
близость рук с короткими пальцами. Рамиль и Рамон ловко подтянувшись, залезают на каменный забор и прыгают вниз, а за ними я.
Поняв, что догнать нас ему не под силу, хозяин начинает швырять камни. Один из них больно ударяет меня в спину.
Я просыпаюсь от дикой боли...
...С тех пор минуло сорок пять лет. А однажды мне приснился сон, словно я опять ребенком лезу в чужой сад, и въявь услыхал смех
Рамона. Как и много лет назад, вбежал еврей и начал швырять в сорванцов камни. Но вопреки всему, в этот раз я не последовал за
ними, вдруг вспомнив, что уже достаточно пожилой и что у меня больные суставы. Я обреченно замер на месте, и... оглянулся.
К моему удивлению, еврей пробежал мимо, словно не заметив. Вот он уже у самой ограды пытается схватить беглецов за носок
и пятку, но они ловко исчезают за гребнем. Отдышавшись, старик заковылял назад.
-Они бросили тебя одного и удрали. Подумай, годятся ли они тебе в друзья. Сейчас они заманили тебя в мой сад, зная, что за это тебе достанется, а когда вырастут, могут толкнуть на преступление и посерьезнее. - Эти слова были излишни, я уже и сам прекрасно все понял. - Ну не стой же как столб, помоги мне прибрать беспорядок, что вы тут устроили. Я поспешил взять в руки грабли. Еврей стоял скрестив руки на животе, словно любуясь, и лишь изредка давал указания. Когда сломанные сучья и давленные плоды были собраны, хозяин улыбнулся: -Можешь подобрать вон те упавшие груши, - он указал вглубь сада. - Снеси их твоей матери. Затем он растворил передо мной щеколду и я вышел на улицу...
Я долго думал, что означает этот сон, и мало помалу, меня одолели воспоминания. Не выдержав их зова, я отпросился с работы и сел на автобус.
Не сразу я узнал родные места, многое здесь именилось. На месте нашего кишлака теперь стоит новая школа - там учатся ребятишки, и на переменках часто слышен их звонкий смех. Старый еврей давно умер. Дом его снесли, сад попал под топор. Семья Рамона переехала жить в Ташкент. Словом, от прошлого не осталось и следа. Хотя, нет. Оно живо и всегда будет жить в моей памяти. Эти мысли приятны, на душе от них становится теплее.
...Посещая места, где прошло детство, невольно робеешь. И смахиваешь слезу, сознавая, что все здесь теперь по-другому. Но такова жизнь. Безусловно, трехчасовой путь того стоил. Идя по дороге к к автобусу, я свернул за угол - в магазинчик. Смуглая черноглазая девушка улыбнулась. Дайте мне, пожалуйста, вон тех груш. Полкило. Вот деньги.
01.04.25
doomginho,
01 Апреля 2025
Follow us!