- 1
http://habrahabr.ru/post/172129/
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+113
http://habrahabr.ru/post/172129/
«Мне нужен был online-сервис для генерации GUID»
Пожалуйста, подключитесь к интернету, чтобы сгенерировать гуид. Что дальше? Конкатенация строк через RESTful сервер в облаке амазона?
+96
procedure TForm1.FormCreate(Sender: TObject);
var formattedDateTime : string; S: TSearchRec; sf : Int64;
begin
Application.OnException := MyHandler;
if IsRunningEXEName(ExtractFileName(Application.ExeName)) = true then
begin
Application.Terminate;
Exit;
end;
Попытка запретить запуск копии программы. Неудачная.
+139
long __stdcall wndproc(HWND wnd, unsigned int message, WPARAM wparam, LPARAM lparam)
{
switch(message)
{
case WM_USER + 100:
{
char data[128];
fill_data(data);
PostMessage(wnd, WM_USER + 666, 0, (LPARAM)data);
return 0;
}
case WM_USER + 666:
{
char * data = (char *)lparam;
use_data(data);
return 0;
}
//etc
Wandering of the pointer или как выжить вне стека.
+57
// Просто удаляет элемент из массива
function delElement($arr, $index)
{
$result = Array();
for($i=0;$i<count($arr);$i++)
if($index != $i) $result[] = $arr[$i];
return $result;
}
- Ваше мнение, коллега?
- Кал молодой особи пыхаписта, коллега. Очень ярко выражены типичные признаки.
−100
size = 3
lines = ["___", "bcd", "___"]
board = [[None]*size]*size
for x in range(0, size):
for y in range(0, size):
if lines[x][y] != '_':
board[x][y] = lines[x][y]
print(board)
я бы, очевидно, хотел видеть результат:
[[None, None, None], ['b', 'c', 'd'], [None, None, None]]
но питоша выводит:
[['b', 'c', 'd'], ['b', 'c', 'd'], ['b', 'c', 'd']]
+120
clearScreen = putStr $ take 50 (repeat '\n')
Написано нормально, но вот задумка...
+124
main =do
let b = 56
let b = b+1
print b
Зачем есть возможность задавать переменные с однаковыми именами, если их использовать ниже всё равно нельзя?
http://ideone.com/b1DGYF
+161
eval( array.join('+') );
Конечно, я понимаю что всякие Haskel там, то, сё...
+138
public void Delete(CommonType type)
{
label1:
Console.Write("Enter the title of the book: ");
string title = Console.ReadLine();
if (title == type.Title)
{
cmainlibrary.Remove(type);
Console.Write("Success");
Console.Read();
goto label1;
}
else
{
goto label1;
}
}
+118
yoba = (flip (>>=) .) . ((filter .) . (flip . (((==) .) . flip mod)))
main = print $ yoba 3 0 [КО КО КО]
http://ideone.com/UGoYJ
result: Internal error time: 0s memory: 0 kB signal: 0