- 1
- 2
- 3
- 4
- 5
- 6
- 7
var pattern = /^([a-z0-9_\.-])+@[a-z0-9-]+\.([a-z]{2,4}\.)?[a-z]{2,4}$/i;
if (pattern.test($(e).val())){
result = true;
} else {
result = false;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+143
var pattern = /^([a-z0-9_\.-])+@[a-z0-9-]+\.([a-z]{2,4}\.)?[a-z]{2,4}$/i;
if (pattern.test($(e).val())){
result = true;
} else {
result = false;
}
перепроверка же)
−163
SET DELETED ON
store 0 to r_klot,r_kpot,r_vspot,r_klgv,r_kpgv,r_vspgv,r_klvod,r_kpvod,r_vspvod,r_klngv,r_kpngv,r_vspngv
store 0 to r_klkan,r_kpkan,r_sumkan,r_klmys,r_kpmys,r_summys,r_klmys1,r_kpmys1,r_summys1,r_vspmys,r_vspkan,r_vspmys1
STORE 0 TO r_klmys2,r_kpmys2,r_summys2,r_vspmys2
STORE 0 TO r_klmys3,r_kpmys3,r_summys3,r_vspmys3
STORE 0 TO r_klmys4,r_kpmys4,r_summys4,r_vspmys4
STORE 0 TO r_klmys5,r_kpmys5,r_summys5,r_vspmys5
SELECT 2
USE tarif INDEX tarif SHARED
SELECT 1
use kw SHARED
SET RELATION TO kodtar INTO tarif
go top
do while .not. eof()
if kw.ot=0
r_klot=r_klot+1
r_kpot=r_kpot+kp
r_vspot=r_vspot+vsp
endif
if kw.gv#0 .or. prgvod=0
r_klgv=r_klgv+1
r_kpgv=r_kpgv+kp
r_vspgv=r_vspgv+vsp
endif
if kw.vod#0 .or. prv=0
r_klvod=r_klvod+1
r_kpvod=r_kpvod+kp
r_vspvod=r_vspvod+vsp
endif
IF tarif.tgv#0
r_klngv=r_klngv+1
r_kpngv=r_kpngv+kp
r_vspngv=r_vspngv+vsp
ENDIF
IF kw.kan#0
r_klkan=r_klkan+1
r_kpkan=r_kpkan+kp
r_sumkan=r_sumkan+kan
r_vspkan=r_vspkan+vsp
ENDIF
IF kw.mys#0
r_klmys=r_klmys+1
r_kpmys=r_kpmys+kp
r_summys=r_summys+mys
r_vspmys=r_vspmys+vsp
ENDIF
*газ.плита 2-х комфорочная
IF kw.gpp=1
r_klmys1=r_klmys1+1
r_kpmys1=r_kpmys1+kp
r_summys1=r_summys1+gps
r_vspmys1=r_vspmys1+vsp
ENDIF
*газ.плита 4-х комфорочная
IF kw.gpp=2
r_klmys2=r_klmys2+1
r_kpmys2=r_kpmys2+kp
r_summys2=r_summys2+gps
r_vspmys2=r_vspmys2+vsp
ENDIF
*нагреватель проточный (обычная колонка)
IF kw.gkp=1
r_klmys3=r_klmys3+1
r_kpmys3=r_kpmys3+kp
r_summys3=r_summys3+gks
r_vspmys3=r_vspmys3+vsp
ENDIF
*нагреватель емкостной, газовый (титан)
IF kw.gkp=2
r_klmys4=r_klmys4+1
r_kpmys4=r_kpmys4+kp
r_summys4=r_summys4+gks
r_vspmys4=r_vspmys4+vsp
ENDIF
*водоотведение
IF kw.yb#0
r_klmys5=r_klmys5+1
r_kpmys5=r_kpmys5+kp
r_summys5=r_summys5+yb
r_vspmys5=r_vspmys5+vsp
ENDIF
skip
enddo
REPORT FORM spr1r TO PRINTER prompt PREVIEW
---
set date british
select 2
use sprstr index sprstr SHARED
SET ORDER TO TAG KST OF SPRSTR.CDX
SELE 3
USE TARIF INDEX TARIF SHARED
select 1
use kw index kw1 SHARED
set relation to kst into b,kodtar INTO c
SET FILTER TO ls=r_ls
sdr=DTOC(thisform.text1.Value)
REPORT FORM subsid PREVIEW
Вот такой пиздец мне надо сопровождать и дописывать. Судя по говённости кода, по уёбскому названию переменных, по дико ебланской манере писать код - аффтар из Дульфистов, только у них может получиться настолько уёбский код.
+143
<?php
$i1=217; $i2=12; $i3=200; $i4=1; //здесь надо вписать начало диапазона
$a1=217; $a2=12; $a3=240; $a4=255; //здесь конец диапазона
$o1=$i1; $o2=$i2; $o3=$i3; $o4=$i4;
for( ; ; ){
$host=gethostbyaddr($o1.'.'.$o2.'.'.$o3.'.'.$o4);
if($host & $host != $o1.'.'.$o2.'.'.$o3.'.'.$o4)
echo $o1.'.'.$o2.'.'.$o3.'.'.$o4.': '.$host."\r\n";
$o4++;
if($i3<$a3 or $i2<$a2 or $i1<$a1){
if($o4>255){
$o3++;
if($i2<$a2 or $i1<$a1){
if($o3>255){
$o2++;
if($i1<$a1){
if($o2>255){
$o1++;
if($o1>$a1){
break;
}
$o2=1;
}
}elseif($o2>$a2){
break;
}
$o3=1;
}
}elseif($o3>$a3){
break;
}
$o4=1;
}
}elseif($o4>$a4){
break;
}
}
?>
Как найти все домены в определенном диапазоне ip адресов ?
https://toster.ru/q/138021
+143
if(_dataArray['HAS_AT'] == 0)
{
_newDom.style.backgroundColor = '';
}
else
{
_newDom.style.backgroundColor = ''
}
+144
<!--
Правил верстку, затем решил не коммитить без необходимости
<table border="1" style=" width: 900pt; margin-top: 20px; table-layout: fixed;">
<col style=" width: 55pt"/>
<col style=" width: 65pt"/>
<col style=" width: 140pt"/>
<col style=" width: 70pt"/>
<col style=" width: 65pt"/>
<col style=" width: 65pt"/>
<col style=" width: 70pt"/>
<col style=" width: 70pt"/>
<col style=" width: 75pt"/>
<col style=" width: 70pt"/>
<col style=" width: 75pt"/>
-->
И все-таки закоммитил.
+141
if(!empty($_GET['DEP'])){
setVar('DEP_ID',$_GET['DEP']);
}else{
setVar('DEP_ID',null);
}
if(!empty($_GET['P_KIND'])){
setVar('P_KIND',$_GET['P_KIND']);
}else{
setVar('P_KIND',null);
}
if($_GET['IS_VMP']==0){
setVar('IS_VMP',null);
}else{
setVar('IS_VMP',$_GET['IS_VMP']);
}
Одно и то же дерьмо аж в двух файлах.
+142
var _0xdb2a=["","\x6A\x6F\x69\x6E","\x72\x65\x76\x65\x72\x73\x65","\x73\x70\x6C\x69\x74"];
function getCoo2(_0x733fx2,_0x733fx3){
return _0x733fx2[_0xdb2a[3]](_0xdb2a[0])[_0xdb2a[2]]()[_0xdb2a[1]](_0xdb2a[0])+_0x733fx3}
Чтобы жизнь маслом ботоводам не казалась. Вот вам загадочка - что здесь происходит?
+142
### TASK 1
R <- 1.987
toSi <- function (value, molar_mass) {
return (value * 4190 / molar_mass)
}
delta <- function (experiment, theory) {
return((experiment - theory)/experiment*100)
}
einsteinFormula <- function (t, A, B, D) {
return(A + B * t + D * t^2)
}
bennewitzRossner <- function (cv, Cnu, n, m, Cd, q) {
coeff1 = (3*n-6-m-q)/q
return(cv + R + 1/2 * m * R + Cnu + coeff1*Cd)
}
heatCapacity <- function(n, links, t, Anu, Bnu, Dnu, Ad, Bd, Dd, m, M) {
c_nu <- einsteinFormula(t, Anu, Bnu, Dnu)
#print(c_nu)
c_d <- einsteinFormula(t, Ad, Bd, Dd)
#print(c_d)
C_rot <- sum(c_nu*links)
C_bend <- sum(c_d*links)
q <- sum(links)
C_kalmol <- bennewitzRossner(3*R, C_rot, n, m, C_bend, q)
C_br <- toSi(C_kalmol, M)
return(data.frame(C_kalmol, C_br, C_rot, C_bend))
}
task11 <- function () {
t_C6H14 <- c(400, 600, 800)
n_C6H14 <- 20
m_C6H14 <- 5
M_C6H14 <- 86.2
Cp_C6H14_kalmol <- (3 * n_C6H14 - 2) * R
#print(Cp_C6H14_kalmol)
Cp_C6H14_mkt <- toSi(Cp_C6H14_kalmol, M_C6H14)
# print(Cp_C6H14_mkt)
Cp_C6H14_exp <- c(1890, 2611, 3159)
deltaC <- delta(Cp_C6H14_exp, Cp_C6H14_mkt)
cp_C6H14_1 <- heatCapacity(
20,
c(5, 14), #Links number
400, #Temperatures
c(-1.09, 0.229), c(6*10^-3, -1.224*10^-3), c(-4.495*10^-6, 1.658*10^-6), #A, B, D rotational
c(0.73, -0.928), c(3.414*10^-3, 3.9*10^-3), c(-2.577*10^-6, -1.324*10^-6), #A, B, D bending
m_C6H14, 86.2
)
cp_C6H14_2 <- heatCapacity(
20,
c(5, 14), #Links number
600, #Temperatures
c(-1.09, 0.229), c(6*10^-3, -1.224*10^-3), c(-4.495*10^-6, 1.658*10^-6), #A, B, D rotational
c(0.73, -0.928), c(3.414*10^-3, 3.9*10^-3), c(-2.577*10^-6, -1.324*10^-6), #A, B, D bending
m_C6H14, 86.2
)
cp_C6H14_3 <- heatCapacity(
20,
c(5, 14), #Links number
800, #Temperatures
c(-1.09, 0.229), c(6*10^-3, -1.224*10^-3), c(-4.495*10^-6, 1.658*10^-6), #A, B, D rotational
c(0.73, -0.928), c(3.414*10^-3, 3.9*10^-3), c(-2.577*10^-6, -1.324*10^-6), #A, B, D bending
m_C6H14, 86.2
)
cp <- c(cp_C6H14_1$C_br, cp_C6H14_2$C_br, cp_C6H14_3$C_br)
print(c(cp_C6H14_1$C_rot, cp_C6H14_2$C_rot, cp_C6H14_3$C_rot))
print(c(cp_C6H14_1$C_bend, cp_C6H14_2$C_bend, cp_C6H14_3$C_bend))
deltaC_br <- delta(Cp_C6H14_exp, cp)
#r <- data.frame(t, Cp_C6H14_mkt, Cp_C6H14_exp, cp, deltaC, deltaC_br)
return(data.frame(t_C6H14, Cp_C6H14_mkt, Cp_C6H14_exp, deltaC, cp, deltaC_br))
}
Мой грязный говнокод на R. Решал дз в инст, рассчет теплоемкости дряни по методу -Д-ж-и-г-у-р-д-ы-и-Б-а-р-р-и-А-л-е-б-а-с-о-в-а- Бенневица-Росснера. Шлю в кучу, потому что нет раздела для эрочки :( Особая ржака начинается со строчки №46.
+143
if(count($events->getItems()))
{
$c = 0;
foreach($events->getItems() as $event)
{
if($c == 0) { echo "<div class=\"text-block\">"; }
$eventStartDate = getStartTimeEvent($event);
echo "<div class=\"eventContainer\">";
echo "<div class=\"eventTime\">".$eventStartDate->format('H:i')."</div>";
echo "<div class=\"eventPlace\">".$event->location."</div>";
echo "<div class=\"eventName\">".$event->getSummary()."</div>";
echo "</div>";
echo "<hr class=\"dottedHr\">";
$c++;
if($c == 12) { echo "</div>"; $c = 0;}
}
}
else echo "<div class=\"NonEvent\">Нет запланированных мероприятий на сегодня</div>";
+69
debug("Continue current `round={}`", next);
/** 3-мя строчками ниже */
debug("Next round `round={}`", current);