- 1
- 2
// Number a, Number b
return new Double(a.doubleValue() - numericTolerance).compareTo(b.doubleValue()) < 0
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+79
// Number a, Number b
return new Double(a.doubleValue() - numericTolerance).compareTo(b.doubleValue()) < 0
В продолжение #16698, после рефакторинга. Видимо, диагноз: ООП головного мозга.
+129
class Class1
{
...
public bool checkErrors(){...}
public void DrawNumber(){...}
public void PDF_Resize(){...}
...
}
http://vk.com/feed?z=photo-30666517_340773889%2Fb5a138e78eb1b23380
+57
void NestMathematica::DATABS(){
int ks1 = 0;
int ns1=0;
int ns=0;
ia=-1;
ia=ia+1;
b[ia]=-ak[0];
ia=ia+1;
b[ia]=alfa;
mud=1;
mld=1;
if(ks!=1){
ia=ia+1;
b[ia]=0.;
ks1=ks-1;
for(int i=0; i<ks1; i++){
ns1=ns;
ns=ns+1;
if(ns!=1){
ia=ia+1;
b[ia]=0.;
}
ia=ia+1;
b[ia]=ak[ns1];
ia=ia+1;
b[ia]=0.;
ia=ia+1;
b[ia]=-ak[ns];
ia=ia+1;
b[ia]=0.;
ia=ia+1;
b[ia]=h[ns1];
ia=ia+1;
b[ia]=1.;
ia=ia+1;
b[ia]=0.;
ia=ia+1;
b[ia]=-1.;
if(ns!=ks){
ia=ia+1;
b[ia]=0.;
}
}
mud=2;
mld=2;
ia=ia+1;
b[ia]=0.;
} //10
if(beta<0){
ia=ia+1;
b[ia]=h[ks-1];
ia=ia+1;
b[ia]=1.;
}else{
ia=ia+1;
b[ia]=ak[ks]+beta*h[ks];
ia=ia+1;
b[ia]=beta;
}
return;
}
Программист на фортране может программировать на любом языке... как на фортране.
+154
$_params[] = sTools::convert2cp1251(preg_replace('|\s+|', ' ', str_replace('"', '""', htmlspecialchars_decode($_param['title'])))) . ':' . sTools::convert2cp1251(preg_replace('|\s+|', ' ', str_replace('"', '""', htmlspecialchars_decode($_param['unit'])))) . '|' . implode(',', $_param['value']);
+155
...
$ (object.position).animate (data.point, { duration: data.instant ? 1 : 7 * distance,
progress: data.instant ? function () {} : function (lol, progress) {
object.position.y = data.point.y + Math.abs (Math.sin (progress * distance * 0.3));
},
always: data.instant ? function () {} : function () {
object.position.y = data.point.y;
...
как труъ, сделать if (data.instant) { ... } или и так покатит?
+133
namespace pck_pkx
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button3_Click(object sender, EventArgs e)
{
if (textBox1.Text == "" || textBox2.Text == "")
{
MessageBox.Show("Выберите файлы для слияния!");
}
else
{
FileStream fs = new FileStream(textBox2.Text, FileMode.Open, FileAccess.Read);
BinaryReader br = new BinaryReader(fs);
BinaryWriter bw = new BinaryWriter(new FileStream(textBox1.Text, FileMode.Open, FileAccess.Write));
bw.BaseStream.Seek(0, SeekOrigin.End);
bw.Write(br.ReadBytes(Convert.ToInt32(fs.Length)));
MessageBox.Show("Успешно!");
}
}
private void button1_Click(object sender, EventArgs e)
{
OpenFileDialog ofd = new OpenFileDialog();
ofd.Filter = "Angelica engine files|*.pck";
if (ofd.ShowDialog() == DialogResult.OK)
{
textBox1.Text = ofd.FileName;
}
}
private void button2_Click(object sender, EventArgs e)
{
OpenFileDialog ofd = new OpenFileDialog();
ofd.Filter = "Angelica engine files|*.pkx";
if (ofd.ShowDialog() == DialogResult.OK)
{
textBox2.Text = ofd.FileName;
}
}
}
}
Сука, до слез.
http://kn1fe-zone.ru/index.php?threads/pck-pkx.399/
−122
Select
min(convert(char(10), DatField, 102)) as DatField,
min('ConstantForMe') as type,
f1
From sometable
Where /*условия*/
Group By f1
Люблю я агрегаты,
Любовью к ним пылаю неземною.
Неявные форматы -
И что хотите делайте со мною!
Для вас это - ерунда,
Подумаешь convert!
Но вы возьмите дату,
Но текстового формата,
Десяток первых цифер,
Смешайте всё с константой,
И группируйте с ней.
Поймёте вы всем сердцем -
Какое это чудо,
Потом вам станет худо,
Но это уж потом.
+155
if($numr>1){
$i=0;
while($row=mysql_fetch_object($q)){++$i;
if($num==$i){
return $row->id;
break;
}
}
}elseif($numr==1){
$row=mysql_fetch_object($q);
return $row->id;
}else{
return 0;
}
А на случай, если return() не сработает, у нас есть break
+156
$c=count($arr1);
for($i=0;$i<$c;$i++){
$key=key($arr1);
ksort($arr1[$key]);
next($arr1);
}
foreach() чем-то не угодил
−153
eval {
my $from = $class->get_env_sender($message);
$smtp->mail($from)
|| croak("Email::Send::Gmail: error sending 'from' $from");
my @to = $class->get_env_recipients($message);
my @ok = $smtp->to( @to, { SkipBad => 1 } )
|| croak("Email::Send::Gmail: error sending 'to' @to");
if ( @to != @ok ) {
my %to;
@to{@to} = (1) x @to;
delete @to{@ok};
@bad = keys %to;
}
croak("Email::Send::Gmail: no valid recipients") if @bad == @to;
};
Думаю понятно, какой это модуль с CPAN. Убило незнание приоритетов, в результате чего "|| croak" всегда возвращало в @ok число вместо результата выполнения $smtp->to