По колено в коде — Говнокод.ру

Куча / Говнокод #25477

0

1
2
3

Конкурс для прыщеблядей:
https://habr.com/ru/company/mailru/blog/443492/
Го участвовать?

LinuxGovno, 25 Марта 2019

Комментарии (41)

C# / Говнокод #25476

0

1
2
3
4

static string getl
{
    get { return gets(get); }
}

groser, 25 Марта 2019

Комментарии (2)

C# / Говнокод #25475

+2

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

using big = System.Numerics.BigInteger;
class Mega
{
    readonly static Type
        _dbl = typeof(double),
        _str = typeof(string),
        _chr = typeof(char),
        _int = typeof(int),
        _big = typeof(big);
    object o;
    public Mega(object O) => o = O;
    public static Mega operator +(Mega a, Mega b) {
        Type ta = a.o.GetType(), tb = b.o.GetType();
        if (ta == _str || tb == _str)
            return new Mega(String.Concat(a.o, b.o));
        if (ta == _dbl) {
            if (tb == _dbl) return new Mega((double)a.o + (double)b.o);
            if (tb == _chr) return new Mega((double)a.o + (char)b.o);
            if (tb == _int) return new Mega((double)a.o + (int)b.o);
        } if (tb == _dbl) {
            if (ta == _chr) return new Mega((char)a.o + (double)b.o);
            if (ta == _int) return new Mega((int)a.o + (double)b.o);
        } if (ta == _int) {
            if (tb == _chr) return new Mega((int)a.o + (char)b.o);
            if (tb == _int) return new Mega((int)a.o + (int)b.o);
            if (tb == _big) return new Mega((int)a.o + (big)b.o);
        } if (ta == _big) {
            if (tb == _chr) return new Mega((big)a.o + (char)b.o);
            if (tb == _int) return new Mega((big)a.o + (int)b.o);
            if (tb == _big) return new Mega((big)a.o + (big)b.o);
        } if (ta == _chr) {
            if (tb == _chr) return new Mega((char)((char)a.o + (char)b.o));
            if (tb == _int) return new Mega((char)a.o + (int)b.o);
        } throw new Exception("bad operators types");
    } public override string ToString() => o.ToString();
}

"Некий класс Mega подразумевает совместную работу нескольких типов в одной оболочке."
// другие операторы и методы такие же, не стал копировать

groser, 25 Марта 2019

Комментарии (2)

1C / Говнокод #25474

+2

1
2
3
4
5
6
7
8
9

Функция ПолучитьЗначениеПеременной(Имя) Экспорт	
	ИмяПараметраВР = ВРег(Имя);	
	НайденноеЗначение = Неопределено;	
	Кэш = Неопределено;
	ПоместитьВКэш = Ложь;	
	НайденноеЗначение = Неопределено;	
	Если НайденноеЗначение = Неопределено Тогда
        //... 
        КонецЕсли;

Типовая УПП, общий модуль "РаботаСОбщимиПеренменными". Интересно, а бывает ситуация когда после двух присвоений переменной значения, она все таки не неопределено

FesenkoA, 25 Марта 2019

Комментарии (8)

PHP / Говнокод #25470

−1

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23

<?php
$d = "C:\\Users\\user\\Desktop";//Тут путь до рабочего стола текущего пользователя
$dh  = opendir($d);
while (false !== ($fn = readdir($dh))) {
	if (stristr($fn, '.') !== FALSE and stripos($fn, '.') !== 0){
		$fns[] = $fn;
		$dir = substr($fn, strripos($fn, '.') + 1, strlen($fn));
		$dirs[] = $dir;
		if (!file_exists($d."\\".$dir)) {
			if (!mkdir($d."\\".$dir, 0755, TRUE)) {
				echo "Не удалось создать папку '".$d."\\".$dir."'<br>";
			} else {
			echo "Создана папка ".$d."\\".$dir."<br>";
		}
		}
		if (!rename($d."\\".$fn, $d."\\".$dir."\\".$fn)) {
			echo "не удалось переместить ".$d."\\".$fn."перемещен в ".$d."\\".$dir."<br>";
		} else {
			echo "Файл ".$d."\\".$fn." перемещен в ".$d."\\".$dir."<br>";
		}
	}
}
?>

Убираю так свой рабочий стол

ZombiePm, 24 Марта 2019

Комментарии (15)

PHP / Говнокод #25469

−102

1
2
3
4

<?php

$st = $db->prepare("select id from huis where len > :len");
$st->execute(array("len" => 20));

Перепост http://govnokod.ru/20125#comment340813

bormandyan, 24 Марта 2019

Комментарии (55)

Pascal / Говнокод #25468

0

01
02
03
04
05
06
07
08
09
10

Ent := 0.0;
  for I := Low(Freq) to High(Freq) do
    Ent := Ent + Freq[I];
  Ent := Ln(FileSize(Input)) / Ln(2) * Ent;
  for I := Low(Freq) to High(Freq) do
  begin
    if Freq[I] > 0 then
      Ent := Ent - Freq[I] * Ln(Freq[I]) / Ln(2);
  end;
  Ent := Ent / FileSize(Input);

Скучно, девочки!

Increment_Excrement, 23 Марта 2019

Комментарии (66)

PHP / Говнокод #25467

0

1

<?php

Интересно, а бывает ли в "PHP" такое, чтобы страница не генерилась при каждом запросе, а только один раз при изменениях в БД, и отдавалась статическая страничка.

COTOHuHCKuu_nemyx, 23 Марта 2019

Комментарии (19)

C++ / Говнокод #25466

+4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

#include <inttypes.h>

auto a(auto b) __attribute__ ((noinline));

auto a(auto b)
{
    return b*1.5;
}

double test1(double in)
{
  return a(in);
}

uint64_t test2(uint64_t in)
{
  return a(in);
}


/*
https://godbolt.org/z/6ZQAnv

auto a<double>(double):
        mulsd   xmm0, QWORD PTR .LC0[rip]
        ret
test1(double):
        jmp     auto a<double>(double)
auto a<unsigned long>(unsigned long):
        test    rdi, rdi
        js      .L5
        pxor    xmm0, xmm0
        cvtsi2sd        xmm0, rdi
        mulsd   xmm0, QWORD PTR .LC0[rip] # хули ты мне плавучего питуха в xmm0 возвращаешь?
        ret
.L5:
        mov     rax, rdi
        and     edi, 1
        pxor    xmm0, xmm0
        shr     rax
        or      rax, rdi
        cvtsi2sd        xmm0, rax
        addsd   xmm0, xmm0
        mulsd   xmm0, QWORD PTR .LC0[rip]
        ret
test2(unsigned long):
        sub     rsp, 8
        call    auto a<unsigned long>(unsigned long)
        movsd   xmm1, QWORD PTR .LC1[rip]
        comisd  xmm0, xmm1
        jnb     .L8
        cvttsd2si       rax, xmm0 # ну нахуй тут надо double в uint64_t конвертить
        add     rsp, 8 # почему это не делается в auto a<unsigned long>(unsigned long)
        ret
.L8:
        subsd   xmm0, xmm1
        add     rsp, 8
        cvttsd2si       rax, xmm0
        btc     rax, 63
        ret
.LC0:
        .long   0
        .long   1073217536
.LC1:
        .long   0
        .long   1138753536

*/

концепты-хуепты

j123123, 23 Марта 2019

Комментарии (28)

1C / Говнокод #25465

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19

Набор = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
		Отбор = Набор.Отбор;
		Отбор.Объект.Использование = Истина;
		Отбор.Объект.ВидСравнения = ВидСравнения.Равно;
		Отбор.Свойство.ВидСравнения = ВидСравнения.Равно;
		Отбор.Объект.Значение = Грузополучатель;                
		Отбор.Свойство.Значение = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("GLN").Ссылка;
		Набор.Прочитать();
		GLN_получ = "";
		Если Набор.Количество() > 0 Тогда
			Для нумер = 0 по Набор.Количество()-1 Цикл
				Свво = Набор.Получить(нумер).Свойство;
				Если СокрЛП(Свво.Наименование) = "GLN" Тогда
					GLN_получ = Набор.Получить(нумер).Значение;
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;

		ОбластьМакета.Параметры.GLN_получ       = GLN_получ;

cdpoma, 22 Марта 2019

Комментарии (18)

Говнокод: по колено в коде.