- 1
- 2
- 3
- 4
- 5
procedure proc(a, b: integer);
begin
end;
proc(1, 2,); // лишняя запятая после 2 !!!!11
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+107
procedure proc(a, b: integer);
begin
end;
proc(1, 2,); // лишняя запятая после 2 !!!!11
на Delphi7 компилится и работает!!! Я в шокенах, 8 лет на Делфи и не знал...
+154
$src = fopen("0.txt", 'r');
while(!feof($src))
{
$line[] = fgets($src);
$line++;
}
Интересно чему в конце будет равно $line? :)
+145
/*----------------------------------------------------------------------------*/
double XzMinSec( double XBOCT, unsigned int OKP){ /*Gr(Ch).dG(dC)->Gr(Ch)MS.dS*/
signed int min, xz = XBOCT; XBOCT-=xz; min=60*XBOCT; XBOCT=(XBOCT*60-min)*60;
if (XBOCT>=59.5) { unsigned char teg[32]; double n = pow(10,OKP) * (XBOCT-min);
signed int z=n;n-=z; if(n>=0.5||n<=-0.5){ signed int x,y=0; sprintf(teg,"%d",z);
while(teg[y]!='\0') y++; z=1; for( x=0; x<OKP; x++ ) if ( teg[--y]!='9' ) z=0;
if(z==1) if(abs(min)==59) if(min<0) XBOCT=-4100; else XBOCT=4100; else if(min<0)
XBOCT=-100; else XBOCT=100; }} return xz * 10000 + min * 100 + XBOCT; }
/*----------------------------------------------------------------------------*/
гм... работает...
+144
switch ($mode) {
default:
<не интересный код пропущен>
break;
}
Догайтесь с какого это проекта?
Я бы не запостил, если бы не увидел на хабре сообщение от некоторого striker_vlad:
"буду рад, если найдете там что-то, что можно будет напостить на сам сайт ;)"
−132
#!/bin/sh
# ...
# translate args from unix path to windows, if possible (eterbug #4933)
args_to_winpath()
{
for i in "$@" ; do
local TP="$i"
local TR=${i/\~/$HOME}
if [ -r "$TR" ] ; then
WP=$(winepath -w "$TR" 2>/dev/null)
[ -z "$WP" ] || TP="$WP"
fi
echo "$TP"
done
}
# ...
run_wine $(args_to_winpath "$@")
Это WINE@Etersoft. Люди пытались преобразовать системные пути в командной строке во внутренние вайновские. В результате из C:\Program Files больше ничего не запускается.
+169
//reversed for sorting
inline bool operator< (const Weight & other) const {
return (GetValue() > other.GetValue());
};
+162
bool GenerateException(int Code)
{
assert(false);
return false; //WTF??? Нужно перерефакторить.
};
Ещё одно проектное решение...
+131
object FirstElement = null;
foreach(var item in SomeCollection)
{
FirstElement = item;
break;
}
Ось так от береться перший елемент з колекції :)
+24.7
session_start();
if ($_SESSION['ok'] !== 1){
echo "Сделали , блок сесиией";
$_SESSION['ok'] = '1';
} else {
echo "Блок!";
}
Mr_Smile: сматрите ) в первый раз на странице должна быть надпись "Сделали блок сессией"
Mr_Smile: при последующих обновлениях надпись должн абыть "Блок"
Mr_Smile: а сколько ни обновляй все кажет "Сделали блок сессией"
Mr_Smile: я ахутнГ?
http://www.govnokod.com/171
0
public class Solution
{
public string RemoveStars(string s)
{
char[] str = new char[s.Length];
int l = 0;
for(int i = 0; i < s.Length; ++i)
if(s[i] == '*')
--l;
else
str[l++] = s[i];
return new string(str, 0, l);
}
}
решил выйти из выгорания изучением новой технологии. литкод оказался прикольной штукой..