- 1
- 2
if (dbg)
printf("2\n");
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+133
if (dbg)
printf("2\n");
// This is debug mode
−288
sub serialize {
my ($obj) = @_;
my $result;
my $ref = ref $obj;
if ($ref eq 'HASH') {
$result = sprintf '{ %s }', join(', ', map { qq/"$_": / . serialize($obj->{$_}) } keys %$obj);
} elsif ($obj eq 'ARRAY') {
$result = sprintf '[ %s ]', join(', ', map { serialize($_) } @$obj);
} elsif (! $ref) {
if (!defined $obj) {
$result = 'null';
} elsif ($obj =~ /^ -? (?:0|[1-9]\d*) (?:\.\d+)? (?:[eE][+-]?\d+)? $/x) {
$result = $obj;
} else {
$obj =~ s/(["\\])/\\$1/g;
$obj =~ s/\r/\\r/g;
$obj =~ s/\n/\\n/g;
$obj =~ s/\t/\\t/g;
$result = qq/"$obj"/;
}
}
return $result;
}
В продолжение #17106. Самопальная Самобытная сериализация в JSON.
−162
НоваяСтрока.ТелефонныйНомер = Прав(НоваяСтрока.ТелефонныйНомер, стрДлина(НоваяСтрока.ТелефонныйНомер));
Выдрано из Рарус СофтФон. Ума не приложу, что они хотели этим сказать...
+118
Пример 1.
def rnd20
put rnd(0..20)
end
rnd20
Пример 2.
Нахождение корней квадратного уравнения.
def sqrt(num, prec)
number = num / 2.0
while(((rsq = number**2) - num > prec))
root -= (rsq - num) / (2.0*number)
end
return number
end
a = 2
b = 10
c = 12
d = b**2-(4*a*c)
put 'Дискриминант равен: ' + d.to_s + '.'
x1 = -b-sqrt(d,1)/2*a
x2 = -b+sqrt(d,1)/2*a
put 'X1 = ' + x1.to_s + ', X2 = ' + x2.to_s + '.'
Онлайн интерпретатор Lapis-а тут : http://pma.clan.su/Lapis.htm. Пишите ваши отзывы!
−102
l.add_xpath('price', '//table[3]/tr/td[2]/table[1]/tr[1]/td[3]/table/tr[3]/td/table/tr[2]/td/text()', lambda x: '.'.join(x))
+138
http://www.microsoft.com/ru-ru/smb/campaigns/get-modern/default.aspx
Таймер идёт назад.
Да они поехали!
+131
private void аффинныйШифрToolStripMenuItem_Click(object sender, EventArgs e)
{
foreach (Form childForm in MdiChildren)
{
childForm.Close();
}
foreach (Form f in this.MdiChildren)
{
return;
}
Affiniy af = new Affiniy();
af.TopLevel = false;
af.Show();
tabPage1.Controls.Add(af);
af.WindowState = System.Windows.Forms.FormWindowState.Maximized;
}
Попросили посмотреть код. 15 методов с различными простейшими шифрами, но чудо foreach -> return, присутствует в каждом. И не лень кому-то было...
+125
http://coliru.stacked-crooked.com/a/a5ba510a2075393f
Под другим ником опубликовал чуть раньше:
http://govnokod.ru/12937
+137
var romans = "I II III IV".Split(' ');
+10
int ScriptArrow;
...
// проверим а есть ли в натуре скрипт по этому указателю
try
{
RunScript = (Script*)ScriptArrow;
RunScript->Script.ArrVar.count();
}
catch (...)
{
RunScript = NULL;
}
Проверка, в натуре. Авторский комментарий сохранен :)