Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+86
load 'regex'
f=: 13 : '((+./-.(1 2 3 4{y))+.(0{y))*.(5{y)'
a =: #:i.2^6
b =: f"(1) a
cc =: ":|:(|:a),(|:b)
cc1 =: (32+i.32){cc
cc2 =: (i.32){cc
ccc=:|:(|:cc2),(1 32$'*'),(|:cc1)
ccc=:('\*';'&&') rxrplc"1 (ccc)
(,&'\\ \hline')"1 (' ';' & ')rxrplc"1 (ccc)Вот он, первый говнокод на J
Abbath,
28 Февраля 2014
+139
public boolean mkdir()
Creates the directory named by this abstract pathname.
Returns: true if and only if the directory was created; false otherwise
P.S. В java.nio сделали адекватную функцию, еще один гвоздь в крышку гроба шестерки.
bormand,
04 Февраля 2014
+151
/**
* Magic method __get()
* @param string $name The name of the payment options properties
* @return string
*/
public function &__get($name)
{
if (isset($this->_properties[$name]) && is_scalar($this->_properties[$name]))
{
$property = $this->_properties[$name];
}
else
{
$property = &$this->_properties[$name];
}
return $property;
}
dimkich,
28 Августа 2013
+80
if ( response == null || request == null ) {
return;
}
if ( request.getHeader() != null
&& request.getHeader().getChannel() != null
&& request.getHeader().getChannel().getSubChannel() != null
&& request.getHeader().getChannel().getSubChannel().getSubChannel() != null
&& request.getHeader().getChannel().getSubChannel().getSubChannel().getName() != null
&& !request.getHeader()
.getChannel()
.getSubChannel()
.getSubChannel()
.getName()
.equalsIgnoreCase( "XXX" ) ) {
if ( response.getResponseObject() != null
&& response.getResponseObject().getReservation() != null
&& response.getResponseObject().getReservation().getRate() != null
&& response.getResponseObject().getReservation().getRate().getRoom() != null
&& response.getResponseObject()
.getReservation()
.getRate()
.getRoom()
.getBedType() != null ) {
response.getResponseObject()
.getReservation()
.getRate()
.getRoom()
.setBedType( null );
}
}Индус. Спасибо что два if'a
madhead,
03 Июля 2013
+13
class session {
public:
session(int id, boost::asio::io_service &io_service) :
id(id),
timer(io_service)
{
timer.expires_from_now(session_timeout);
timer.async_wait(boost::bind(&session::on_timeout, this, _1));
}
void on_timeout(const boost::system::error_code &error) {
if (error)
return;
std::cout << "Session timed out " << id << std::endl;
}
private:
int id;
boost::asio::deadline_timer timer;
};
std::map<boost::asio::ip::udp::endpoint, boost::shared_pointer<session> > sessions;sessions.erase(endpoint) приводит к небольшому насилию над трупом сессии... Ничего конечно не вылетает, и никогда не сломается, но совесть мучает, неприятно пользоваться UB'ом.
bormand,
18 Марта 2013
+100
procedure TDetailForm.GridPanel1Click(Sender: TObject);
var
i: Integer;
s: String;
begin
//set title and subtitle
if Pos('Item', TControl(Sender).Name) > 0 then begin
if Sender.ClassName = 'TImage' then begin
i := Length(TControl(Sender).Name) - Length('ItemImage') - 1;
s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
ItemSubtitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
end else if Pos('ItemSubTitle', TControl(Sender).Name) > 0 then begin
ItemSubtitle.Caption := TLabel(Sender).Caption;
i := Length(TControl(Sender).Name) - Length('ItemSubTitle') - 1;
s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
end else if Pos('ItemDescription', TControl(Sender).Name) > 0 then begin
i := Length(TControl(Sender).Name) - Length('ItemDescription') - 1;
s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
ItemSubtitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
end else begin
ItemTitle.Caption := TLabel(Sender).Caption;
i := Length(TControl(Sender).Name) - Length('ItemTitle') - 1;
s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
ItemSubTitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
end;
end;
end;Код из шаблона New Metropolis UI Application в новом Delphi XE3. Рефлексия так и прет.
kipar,
23 Сентября 2012
+32
typedef typename _STD tr1::conditional<
_STD tr1::is_same<key_type, value_type>::value,
const_iterator,
_Tree_iterator<_Mybase> >::type iterator;Шаблоны на шаблонах и шаблонами погоняют.
Fai,
14 Июля 2012
+138
memset(cb->chars, cb->width * cb->height, ' ');Мой однострочный эпик фейл.
bormand,
27 Апреля 2012
−134
с = 0;
Для Каждого стчТовары Из ЗаказНаряд.Товары Цикл
нстчТовары = НоваяНалоговая.Товары.Добавить();
нстчТовары.Номенклатура = ЗаказНаряд.Товары[с].Номенклатура;
нстчТовары.Количество = ЗаказНаряд.Товары[с].Количество;
нстчТовары.Цена = ЗаказНаряд.Товары[с].Цена;
...
нстчТовары.СуммаВсего = ЗаказНаряд.Товары[с].СуммаВсего;
с = с + 1;
КонецЦикла;Ни шагу без счетчика! Особенно в итераторе. =)
zfilin,
16 Января 2012
+111
for(x = 1; x; x += x)
if(!(((e*x)%m)/t))
{ x = d; break; }Недавно прислали с вопросом: "Тут что-то поломалось, надо исправить... Поможешь?"
TarTar,
30 Ноября 2011
Follow us!