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

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

+1

1

Вы такого еще не видали

https://paste.ubuntu.com/p/gpsMVPnd6T/
Отформатировано: https://paste.ubuntu.com/p/vF8hCGN6Z3/

20 уровней индентации, адовый копипаст.

syoma, 26 Марта 2019

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

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

0

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

integers =: adverb def 'i.u'
   5 integers
0 1 2 3 4
   
   plus =: adverb def '(}:u) + {:u'
   2 3 plus
5
   1 2 3  1 plus
2 3 4
   
   inc =: adverb def '(u , 1) plus'
   5 inc
6
   5 integers inc
1 2 3 4 5
   
   factorial =: integers inc product
   0 factorial
1
   7 factorial
5040

Так то лучше, а то надоело справа налево писать.

COTOHuHCKuu_nemyx, 25 Марта 2019

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

Куча / Говнокод #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)

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