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

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)

JavaScript / Говнокод #25464

+2

01
02
03
04
05
06
07
08
09
10
11
12
13

<script>
      qqq = 0;
        setInterval(function(){
            qqq++; 
            if ( qqq == 1 ) $('.qqq').text('.');  
            else if ( qqq == 2 ) $('.qqq').text('..');  
            else if ( qqq == 3 ) $('.qqq').text('...'); 
            else {
                $('.qqq').empty(); 
                qqq = 0;
            }
        },900);
   </script>

Многоточия...
Встретил случайно в одном из сайтов)

fuckall, 21 Марта 2019

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

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

+1

1
2
3
4
5
6

foreach ($result->getDataCollection() as $data) {
    if (!$data->getStatus() === Status::PAID)
        continue;

    // ACTIONS
}

Зачем использовать !== если есть ===

P/s
Смотрим на if (

genkaok, 21 Марта 2019

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

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

+1

1
2
3

Страйкер приде — почту почине!

Грустно без уведомлений из любимой соцсети.

gost, 21 Марта 2019

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

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