- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
function floor(value) {
// http://kevin.vanzonneveld.net
// + original by: Onno Marsman
// * example 1: floor(8723321.4);
// * returns 1: 8723321
return Math.floor(value);
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+198.8
function floor(value) {
// http://kevin.vanzonneveld.net
// + original by: Onno Marsman
// * example 1: floor(8723321.4);
// * returns 1: 8723321
return Math.floor(value);
}
сколько пафоса!
+149
protected void SubmitOk_ServerClick(object sender, EventArgs e)
{
----- здесь код
bool lOk = true;
try
{
lSurvey.Save(int.Parse(mId.Value));
}
catch (Exception ex)
{
lOk = false;
Util.ShowAdminError(ex.Message, this.Page);
}
if (lOk) Response.Redirect("AdminSurvey.aspx");
}
Поступило предложение написать свою СМСКУ (ЦМС), блин ну спаришиветсо зачем???
+149
unsigned arrtoint(u_char *arr)
{
unsigned r=0;
unsigned s=0xFF;
for(unsigned int i=0; i<4; i++)
{
r+=arr[i]*s;
s*=0xFF;
}
return r;
}
Крайне неудачная попытка моего коллеги сконвертить IP в число. Кто найдет больше ошибок?
+141
function arr2xml($data, $rootNodeName = 'response', $xml = null) {
if ($xml == null) {
$xml = simplexml_load_string("<$rootNodeName />");
}
// loop through the data passed in.
foreach($data as $key => $value) {
// no numeric keys in our xml please!
if (is_numeric($key)) {
// make string key...
$key = "unknownNode_". (string) $key;
}
// replace anything not alpha numeric
$key = preg_replace('/[^a-z_0-9]/i', '', $key);
// if there is another array found recrusively call this function
if (is_array($value)) {
$node = $xml->addChild($key);
// recrusive call.
arr2xml($value, $rootNodeName, $node);
} else {
// add single node.
$value = $value;
$xml->addChild($key,$value);
}
}
// pass back as string. or simple xml object if you want!
$res = substr($xml->asXML(), 22);
return $res;
}
ХУЙПИЗДА ЗУМЛЬ
−140
Public Function fRoundSumma(pDbl As Double) As Double
On Error Resume Next
Dim vStrSum As String
If vFieldRoundSummuDoInt Then
vStrSum = str(pDbl)
If InStr(1, vStrSum, ".5") > 0 Then
If pDbl < 0 Then
fRoundSumma = Abs(Fix(pDbl)) + 1
fRoundSumma = fRoundSumma * (-1)
Else
fRoundSumma = Fix(pDbl) + 1
End If
Else
fRoundSumma = Round(pDbl, 0)
End If
Else
fRoundSumma = Round(pDbl, vFieldRoundDo)
End If
End Function
Такое забавное округление. Из коммерческого проекта :)
+83.5
ret = (func(a, b) == SpecNumber) ? true : false;
if (! ret)
{
ShowError ("Some message", a, b));
}
Обратить внимание на хитрость получения значения ret, а потом как его используют :)
−140.2
:logger => lambda { |xyz| logger.info xyz }
{
:logger => lambda { |xyz| logger.info xyz }
}
+138.5
$text = "я ты тут ляляля это тест подсветки слово1";
$get = $_GET[text];
preg_match_all('/([0-9a-zA-Zа-яА-Я]+)/',$get,$ok);
for ($i=0; $i<count($ok[1]); $i++) $word.=$ok[1][$i]."|";
$string=preg_replace("/($word)/si","<b>\\0</b>",$text);
print $string;
Подсветка слов
+147.3
$foo = "";
$l = strlen($testoBanner);
for($i=0; $i<$l; $i++) {
$t = substr($testoBanner, $i, 1);
if($t != "\r") {
if($t == "\n") {
//$foo .= "<br>";
} else {
$foo .= $t;
}
}
}
$testoBanner = $foo;
Нашел тут свой старый код. Это я так из строки удалял \r и \n :)
−316.8
If CLng(Text1.Text)<400 and CLng(Text1.Text)>400 then
Text3.Text="17"
End if
и почему условие не проходит?