- 1
- 2
- 3
- 4
/**
* Этот класс содержит сакральные знания, полученные годами отладки предыдущей версии.
* Рационально понять этот код невозможно, поэтому менять с осторожностью!
*/
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+77.5
/**
* Этот класс содержит сакральные знания, полученные годами отладки предыдущей версии.
* Рационально понять этот код невозможно, поэтому менять с осторожностью!
*/
В одном из классов нашел вот такой вот комментарий.
+152
<xsl:variable name="regexp">
<xsl:text disable-output-escaping="yes">^(?:(?:(?:0?[13578]|1[02])(\/|-|\.)31)\1|(?:(?:0?[13-9]|1[0-2])(\/|-|\.)(?:29|30)\2))(?:19\d\d|20\d\d|\*\*\*\*)$|^(?:0?2(\/|-|\.)29\3(?:(?:(?:19|20)?(?:0[48]|[2468][048]|[13579][26])|(?:(?:19|[2468][048]|[3579][26])00))))$|^(?:(?:0?[1-9])|(?:1[0-2]))(\/|-|\.)(?:0?[1-9]|1\d|2[0-8])\4(?:19\d\d|20\d\d|\*\*\*\*)$</xsl:text>
</xsl:variable>
В XSLT - регулярное выражение то ли для показа, то ли для валидации дня рождения.
−150
use LWP::Simple;
use HTML::FormatText;
use Fcntl ':flock';
use DB_File;
for ($num = 0 ; $num <= 1900; $num=$num+25){
$url = "http://btk-online.ru/phcode/?curPos1=&curPos="."$num";
print $url."\n";
my $file = "text_in.txt";
my $file_out = "text_out.txt";
$connect = get($url) ;
$text = HTML::FormatText->format_string($connect);
open(MYFILE, ">" .$file) or die "Can't create file: $!";
flock(MYFILE, LOCK_EX);
print MYFILE $text, "\n";
flock(MYFILE, LOCK_UN);
$tie = tie( my @lines, DB_File , $file , O_RDWR , 0666 , $DB_RECNO)
or die "Cannot tie file $file: $!\n";
for ( $line_number = 140; $line_number <= 317 ; $line_number++){
print $line_number "\n";
unless ( $line_number < $tie->length){
die "Didn't find line $line_number in $file \n";
}
open (YFILE, ">>" .$file_out) or die "Can't create file $! \n";
flock (YFILE, LOCK_EX);
print YFILE "$lines[$line_number-1] \n";
flock (YFILE, LOCK_UN);
}
}
Ребят ! Спасибо ! Едиственное быстро найденое средство перекинуть код с одной тачки на другую :)
+138.5
if (($rtw['noavt']==1) OR ($rtw['noavt']==1)) {$rtw['noavt']=0;}
+142.3
$my_cgi = $_SERVER['REQUEST_METHOD'] == 'GET' ? $_GET : $_POST;
$fnumber = "";
$fname="";
$fjunction = "";
$fstreet = "";
$fintersectingstreet = "";
$flocality = "";
$fadministrative = "";
$fpostalcode = "";
$fsettlement = "";
$flatitude = 0.0;
$flongitude = 0.0;
$fcoordtype = "";
$ffreetext = "";
$fuid = "";
$fsettlement = "";
$tnumber = "";
$tname="";
$tjunction = "";
$tstreet = "";
$tintersectingstreet = "";
$tstreet = "";
$tlocality = "";
$tadministrative = "";
$tpostalcode = "";
$tsettlement = "";
$tlatitude = 0.0;
$tlongitude = 0.0;
$tcoordtype = "";
$tfreetext = "";
$tuid = "";
$method = "";
$passenger = "";
$return = "";
$trainf = "";
$traind = "";
$flocate = "";
$tlocate = "";
/*****************************************************************************
* Decode URL
****************************************************************************/
while (list($my_key, $my_value) = each($my_cgi)) {
if($my_key == "fname") {
$fname = $my_value;
} else if ($my_key == "fnumber" ) {
$fnumber = $my_value;
} else if($my_key == "fstreet") {
$fstreet = $my_value;
} else if($my_key == "fintersectingstreet") {
$fintersectingstreet = $my_value;
} else if($my_key == "flocality") {
$flocality = $my_value;
} else if($my_key == "fadministrative") {
$fadministrative = $my_value;
} else if ($my_key == "fpostalcode") {
if ($my_key["fpostalcode"] != "") {
$fpostalcode = $my_value;
}
} else if ($my_key == "fsettlement" ) {
$fsettlement = $my_value;
} else if ($my_key == "flatitude" ) {
$flatitude = $my_value;
} else if ($my_key == "flongitude" ) {
$flongitude = $my_value;
} else if ($my_key == "fcoordtype" ) {
$fcoordtype = $my_value;
} else if ($my_key == "fmatch_uid" ) {
$fuid = $my_value;
} else if ($my_key == "ffreetext" ) {
$ffreetext = $my_value;
} else if($my_key == "tname") {
$tname = $my_value;
} else if ($my_key == "tnumber" ) {
$tnumber = $my_value;
} else if($my_key == "tstreet") {
$tstreet = $my_value;
} else if($my_key == "tintersectingstreet") {
$tintersectingstreet = $my_value;
} else if($my_key == "tlocality") {
$tlocality = $my_value;
} else if($my_key == "tadministrative") {
$tadministrative = $my_value;
} else if ($my_key == "tpostalcode") {
if ($my_key["tpostalcode"] != "") {
$tpostalcode = $my_value;
}
} else if ($my_key == "tsettlement" ) {
$tsettlement = $my_value;
} else if ($my_key == "tnumber" ) {
$tnumber = $my_value;
} else if ($my_key == "tlatitude" ) {
$tlatitude = $my_value;
} else if ($my_key == "tlongitude" ) {
$tlongitude = $my_value;
} else if ($my_key == "tcoordtype" ) {
$tcoordtype = $my_value;
} else if ($my_key == "tmatch_uid" ) {
$tuid = $my_value;
−285.8
public function check():void {
var gem:Gem;
var counter:Number = 1;
for (var i : int = 0; i < _cols; i++) {
gem = null;
counter = 1;
for (var j : int = 0; j < _rows; j++) {
checkCell();
}
}
for (var j : int = 0; j < _rows; j++) {
gem = null;
counter = 1;
for (var i : int = 0; i < _cols; i++) {
checkCell();
}
}
function checkCell():void {
if (getCell(i,j).gem == gem) {
counter++;
} else {
if (counter>=GEMS_IN_ROW) {
checkLine(i, j-counter, i, j-1);
}
gem = getCell(i,j).gem;
counter = 1;
}
}
deleteCells();
}
private function checkLine(startX:Number, startY:Number, endX:Number, endY:Number):void {
if (startX == endX) {
for (var j : int = startY; j < endY; j++) {
_cells[startY][j].toDelete = true;
}
} else {
for (var i : int = startX; i < endX; i++) {
_cells[i][startY].toDelete = true;
}
}
}
знакомый осваивает программирование на флэше
жжот не по детски
+31
int qwer;
cin >> *&*&*&*&*&*&qwer;
оО
+150
// генерация области отображения команд "все снять" и "все починить"
function update_vse_snyat_ili_po4init_div() {
в продолжение предыдущего поста)) Ололо!!
+131.2
WCHAR szSLASHSTARDOTSTAR[] = TEXT("\\*"); /* This is a single "\" */
Из убежавших исходников Widnows 2000,
win2k\private\ntos\w32\ntuser\client\clg lobal.c
+153
program Drink;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
const
C: array[0..5] of Cardinal = ($64AABAB8, $54AAA288, $54AB3A90, $54AAAAA0, $563ABBB8,$60820000);
var
I: Byte;
B: PByte;
begin
for I := 191 downto 0 do
begin
B := @C[I div 32];
Inc(B, (I - (I div 32) * 32) div 8);
if (B^ and (1 shl (I mod 8))) <> 0 then
Write('X')
else
Write(' ');
if (I mod 32) = 0 then
Writeln('');
end;
ReadLn;
end.