- 1
- 2
- 3
var t1 = "http://www.mno";
var t2 = ".ru/new_an";
$("#mnganketa").attr("href", t1+"go"+t2+"keta/name.html?range=877");
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+157
var t1 = "http://www.mno";
var t2 = ".ru/new_an";
$("#mnganketa").attr("href", t1+"go"+t2+"keta/name.html?range=877");
Замена ссылки=)
+132
@echo off
setlocal EnableDelayedExpansion
setlocal EnableExtensions
set /a _2=20
set /a _1=600
set /a _0=800
call :mandelbrot _3 0 _0 _1 _2
echo | set /p ^=!_3!
goto :EOF
:mandelbrot
set width_%~2=!%~3!
set height_%~2=!%~4!
set max_%~2=!%~5!
set /a row_%~2=0
:WHILE_6
if !row_%~2! LSS !height_%~2! (
set /a col=0
:WHILE_5
if !col! LSS !width_%~2! (
set /a c_re=^(^(^(!col! - ^(!width_%~2! / 2^)^) * 4^) / !width_%~2!^)
set /a c_im=^(^(^(!row_%~2! - ^(!height_%~2! / 2^)^) * 4^) / !width_%~2!^)
set /a x=0
set /a y=0
set /a iteration=0
set /a _9_%~2=0
if !iteration! LSS !max_%~2! (
set /a _8_%~2=1
) else (
set /a _8_%~2=0
)
set /a _18_%~2=^(1 + %~2^)
call :or _19_%~2 !_18_%~2! _8_%~2 _9_%~2
set _10_%~2=!_19_%~2!
set /a _4_%~2=2
set _3_%~2=!y!
set /a _20_%~2=^(1 + %~2^)
call :pow _21_%~2 !_20_%~2! _3_%~2 _4_%~2
set _5_%~2=!_21_%~2!
set /a _1_%~2=2
set _0_%~2=!x!
set /a _22_%~2=^(1 + %~2^)
call :pow _23_%~2 !_22_%~2! _0_%~2 _1_%~2
set _2_%~2=!_23_%~2!
set /a _24_%~2=^(1 + %~2^)
call :plus _25_%~2 !_24_%~2! _2_%~2 _5_%~2
set _6_%~2=!_25_%~2!
if !_6_%~2! LEQ 4 (
set /a _7_%~2=1
) else (
set /a _7_%~2=0
)
set /a _26_%~2=^(1 + %~2^)
call :and _27_%~2 !_26_%~2! _7_%~2 _10_%~2
set _11_%~2=!_27_%~2!
:WHILE_4
if !_11_%~2! EQU 1 (
set /a x_new=^(^(^(!x! * !x!^) - ^(!y! * !y!^)^) + !c_re!^)
set /a y=^(^(^(2 * !x!^) * !y!^) + !c_im!^)
set x=!x_new!
set /a iteration=^(!iteration! + 1^)
goto WHILE_4
)
if !iteration! LSS !max_%~2! (
set _14_%~2=!white!
set _13_%~2=!row_%~2!
set _12_%~2=!col!
set /a _30_%~2=^(1 + %~2^)
call :putpixel _31_%~2 !_30_%~2! _12_%~2 _13_%~2 _14_%~2
echo | set /p ^=!_31_%~2!
) else (
set _17_%~2=!black!
set _16_%~2=!row_%~2!
set _15_%~2=!col!
set /a _28_%~2=^(1 + %~2^)
call :putpixel _29_%~2 !_28_%~2! _15_%~2 _16_%~2 _17_%~2
echo | set /p ^=!_29_%~2!
)
set /a col=^(!col! + 1^)
goto WHILE_5
)
set /a row_%~2=^(!row_%~2! + 1^)
goto WHILE_6
)
goto :EOF
:and
set a_%~2=!%~3!
set b_%~2=!%~4!
rem emulation of &&
if !a_%~2! EQU 1 (
if !b_%~2! EQU 1 (
set %~1=1
goto :EOF
)
)
set %~1=0
goto :EOF
Мандельброт (без записи в картинку) на Batch
+156
$dateStart = "2015-01-01";
$dateEnd = date("Y-m-d", strtotime(date("Y-m-01", strtotime(date("Y-m-d", strtotime("+1 month", strtotime($dateStart))))) . " -1 day"));
Вычисляем последний день месяца
+166
$this->log->log($log);
−120
Функция Счет(УсловныйКодСчета, СоответствиеСчетов = Неопределено) Экспорт
ПС = ПланыСчетов.Хозрасчетный;
Результат = ПС.ПустаяСсылка();
Если УсловныйКодСчета = "01" Тогда
Результат = ПС.ОсновныеСредства;
ИНачеЕсли УсловныйКодСчета = "01.01" Тогда
Результат = ПС.ОСвОрганизации;
ИначеЕсли УсловныйКодСчета = "01.08" Тогда
Результат = ПС.ОСБезГосРегистрации;
ИначеЕсли УсловныйКодСчета = "01.09" Тогда
Результат = ПС.ВыбытиеОС;
ИначеЕсли УсловныйКодСчета = "02" Тогда
Результат = ПС.АмортизацияОсновныхСредств;
//Далее идет подобный треш более чем на 500 строк
ИначеЕсли УсловныйКодСчета = "008" Тогда
Результат = ПС.ОбеспеченияОбязательствПолученные;
ИначеЕсли УсловныйКодСчета = "009" Тогда
Результат = ПС.ОбеспеченияОбязательствВыданные;
ИначеЕсли УсловныйКодСчета = "011" Тогда
Результат = ПС.ОсновныеСредстваСданныеВАренду;
Иначе
ОписаниеОшибки = НСтр("ru='Не определен счет с условным кодом %1 в соответствии счетов'");
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ОписаниеОшибки, УсловныйКодСчета);
ВызватьИсключение ОписаниеОшибки;
КонецЕсли;
Возврат Результат;
КонецФункции
//СоответствиеСчетов так нигде и не используется :(
Типовая Бухгалтерия КОРП 3.0, модуль ЗаполнениеБухгалтерскойОтчетностиИтоги
+136
public static IEnumerable<T> Remove<T>(this IEnumerable<T> source, T key)
{
return source.Where(element => !element.Equals(key));
}
public static IEnumerable<string> Remove(this IEnumerable<string> source, string key)
{
return source.Where(element => element != key);
}
Немного велосипедостроения.
+161
<?php
/**
* Округляет число до заданного количества знаков после запятой.
* @param float $v - округляемое число.
* @param int $prec - количество знаков после запятой (по-умолчанию: 0).
* @param str $mode - режим округления: ceil | floor | round (по-умолчанию: round).
* @return float округлённое число.
*/
function round2($v, $prec = 0, $mode = "round") {
for ($k = 1, $i = 0; $i < $prec; $i++, $k *= 10)
;
switch ($mode) {
case "ceil" : $v = ceil($k * $v) / $k;
break;
case "floor" : $v = floor($k * $v) / $k;
break;
default : $v = round($k * $v) / $k;
}
return $v;
}
+152
<?
require_once('ittable.class.php');
class ITForm extends ITTable
{
public function __construct($tbl)
{
parent::__construct($tbl);
//путь с скрипту который удаляет файлы по tblname record_id filename
$this->path2deletephp='/itcms4/ckeditor/delete.php';
}
public function printForm($i, $action, $head, $submitvalue='', $captcha=0)
{
$form = $this->generateFormData($i, $action, $head, $submitvalue, $captcha);
print "<h1>$form->head</h1>
$form->begin
$form->inputhidden
<table>";
foreach($form->inputs as $k=>$v)
print "<tr id='itforms_$k'" . ($this->columns[$k]->blockclass?' class="' . $this->columns[$k]->blockclass . '"':'') ."><td>$v->name</td><td>$v->input</td></tr>\n";
print "</table>
$form->files
<hr><input type='submit' value='$form->submitvalue'></form>
<script type='text/javascript'>
var itform;
$(document).ready(function()
{
itform = new ITForm($('#$this->tbl$i->id'));
$form->js
});
</script>
";
}
public function insertForm($head, $submitvalue='', $i=0)
{
if(!$i)
$i = new stdClass();
$copy_id = intval($_GET['copy_id']);
if($copy_id)
{
$r=exec_mysql_query("SELECT * FROM $this->tbl WHERE id='$copy_id'");
$row=mysql_fetch_array($r);
foreach($row as $k=>$v)
if(!isset($i->$k))
$i->$k = $v;
}
//чтобы можно было загрузить файлы делаем временный id в диапазоне от 10^7 до 2*10^9
$i->id = 'r' . rand(10000000, 2000000000);
$this->printForm($i, 'insert.php', $head, $submitvalue);
}
public function updateForm($id, $head, $submitvalue='')
{
$this->printForm($this->getObject($id), 'update.php', $head, $submitvalue);
if(mysql_numrows(exec_mysql_query("SELECT id FROM it_updatelog WHERE tbl='$this->tbl' AND record_id='$id'")))
print "<a href=/crm2/log/?w_tbl_2=$this->tbl&w_record_id_1=$id>История изменений</a><br>";
}
public function deleteForm($id, $head, $submitvalue='')
{
$this->printForm($this->getObject($id), 'delete.php', $head, $submitvalue);
}
public function updateForm4Object($o, $head, $submitvalue='')
{
$this->printForm($o, 'update.php', $head, $submitvalue);
if(mysql_numrows(exec_mysql_query("SELECT id FROM it_updatelog WHERE tbl='$this->tbl' AND record_id='$o->id'")))
print "<a href=/crm2/log/?w_tbl_2=$this->tbl&w_record_id_1=$o->id>История изменений</a><br>";
}
Продолжение: http://govnokod.ru/17479
+50
else if ( pTemp->flags & FTENT_SPIRAL )
{
float s, c;
s = sin( pTemp->entity.baseline.origin[2] + fastFreq );
c = cos( pTemp->entity.baseline.origin[2] + fastFreq );
pTemp->entity.origin[0] += pTemp->entity.baseline.origin[0] * frametime + 8 * sin( client_time * 20 + (int)pTemp );
pTemp->entity.origin[1] += pTemp->entity.baseline.origin[1] * frametime + 4 * sin( client_time * 30 + (int)pTemp );
pTemp->entity.origin[2] += pTemp->entity.baseline.origin[2] * frametime;
}
entity.cpp из cl_dlls от xash. Предположительно унаследовано от half-life sdk. На 64 битах сборка разумеется падает.
Что они пытались сделать?
За запихивание указателя под синус имхо надо запихивать указатель в анус.
+164
function maybe_unserialize( $original ) {
if ( is_serialized( $original ) ) // don't attempt to unserialize data that wasn't serialized going in
return @unserialize( $original );
return $original;
}
Wordpress <3
is_serialized тоже блещет
https://core.trac.wordpress.org/browser/tags/4.1/src/wp-includes/functions.php#L265