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

Python / Говнокод #24464

−2

01
02
03
04
05
06
07
08
09
10

import re

brabrebrized = lambda s, repl = r"бр\1": (
    re.sub(
        "[йцкнгшщзхъфвпрлджчсмтьб]+([аеёиоуыэюя])",
        repl,
        s,
        flags = re.IGNORECASE
    )
)

Я ебрабрубря и брабрибрал брабрибраброр бребров. брибрер:
брибрит брёбра бра брабробре,
бробрит ябра в абребробре.
брибрия! брибрия!
бря брабрубра брибряя!

666_N33D135, 09 Июля 2018

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

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

−2

1

Хотели бы вы, чтобы прелестница-кудесница засунула вам в попу свою волшебную палочку?

Я прелестница-кудесница, и у меня есть волшебная палочка.

Сим-салапим!
Ахалай-махалай!
Зад подставляй!
Вжжжух!

666_N33D135, 09 Июля 2018

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

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

0

1
2
3
4
5

body {background: url("http://forumfiles.ru/files/0008/ea/f4/23438.jpg") repeat-y scroll center top transparent;}
#logotop {background-image: url("http://forumfiles.ru/files/0008/ea/f4/46264.png"); margin-left: -33px;}
#pun {background-image: url("http://forumfiles.ru/files/0008/ea/f4/21620.jpg");}
.punbb .section .container, .punbb .post-body, .punbb .post-links, .punbb td.tc2, .punbb td.tc3, .punbb .formal fieldset .post-box, #viewprofile li strong, #viewprofile li div, #setmods dd, .punbb .info-box, .punbb #pun-main .info-box .legend {color: #777;}
.punbb .post h3 span, .punbb th, #viewprofile li, #setmods dl {color: #777;}

Северянин

joneshookrogers, 08 Июля 2018

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

Haskell / Говнокод #24452

−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
37
38
39
40
41
42

instance Arbitrary ProjectConfig where
    arbitrary =
      ProjectConfig
        <$> (map getPackageLocationString <$> arbitrary)
        <*> (map getPackageLocationString <$> arbitrary)
        <*> shortListOf 3 arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> arbitrary
        <*> (MapMappend . fmap getNonMEmpty . Map.fromList
               <$> shortListOf 3 arbitrary)
        -- package entries with no content are equivalent to
        -- the entry not existing at all, so exclude empty

    shrink ProjectConfig { projectPackages = x0
                         , projectPackagesOptional = x1
                         , projectPackagesRepo = x2
                         , projectPackagesNamed = x3
                         , projectConfigBuildOnly = x4
                         , projectConfigShared = x5
                         , projectConfigProvenance = x6
                         , projectConfigLocalPackages = x7
                         , projectConfigSpecificPackage = x8
                         , projectConfigAllPackages = x9 } =
      [ ProjectConfig { projectPackages = x0'
                      , projectPackagesOptional = x1'
                      , projectPackagesRepo = x2'
                      , projectPackagesNamed = x3'
                      , projectConfigBuildOnly = x4'
                      , projectConfigShared = x5'
                      , projectConfigProvenance = x6'
                      , projectConfigLocalPackages = x7'
                      , projectConfigSpecificPackage = (MapMappend
                                                         (fmap getNonMEmpty x8'))
                      , projectConfigAllPackages = x9' }
      | ((x0', x1', x2', x3'), (x4', x5', x6', x7', x8', x9'))
          <- shrink ((x0, x1, x2, x3),
                      (x4, x5, x6, x7, fmap NonMEmpty (getMapMappend x8), x9))
      ]

В хачкеле мало бойлерплейта, говорили они. Это ещё далеко не самый длинный список, см. x43 ниже.

https://github.com/haskell/cabal/blob/4e0c701a2feb520d369ef506a18288c47f64b06a/cabal-install/tests/UnitTests/Distribution/Client/ProjectConfig.hs

roman-kashitsyn, 06 Июля 2018

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

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

−1

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

if (isset($_GET['org'])) {
$org=htmlspecialchars($_GET["org"]);
}
else $org=1;
if ($num_resultsdop) {
$sql = "SELECT * FROM `baza`, `sankomerc`, `sandop` WHERE baza.id='$org' and sankomerc.id='$org' and sandop.id='$org'";
}
else {
    $sql = "SELECT * FROM `baza`, `sankomerc` WHERE baza.id='$org' and sankomerc.id='$org'";
}
$row = mysql_fetch_array($result);
    $chotz=$row['chotz'];
    $nazvanie=$row['nazvanie'];
    $nazvaniech=$row['nazvanie'];

    //типографим название
    $typograph->set_text($nazvanie);
    $nazvanie = $typograph->apply();
    $nazvanienotags = strip_tags($nazvanie);

SEO: #nazvanienotags

SemaReal, помнишь, я тебе говорил, что летом скорее всего перейду на другую работу или восстановлюсь в универе?
Тогда моя претензия была в том, что используют устаревающий Yii2, что нет CI, нет тестов…
После импровизированного отпуска я пришёл, и получил проект, пример реального кода из которого ты видишь.

vistefan, 06 Июля 2018

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

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

+1

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

public static function PhpToJSObject($arData, $bWS = false, $bSkipTilda = false, $bExtType = false)
	{
		static $use_bx_encode = null;
		if (!isset($use_bx_encode))
			$use_bx_encode = function_exists('bx_js_encode');
		if ($use_bx_encode)
			return bx_js_encode($arData, $bWS, $bSkipTilda, $bExtType);

		switch(gettype($arData))
		{
		case "string":
			if(preg_match("#['\"\\n\\r<\\\\\x80]#", $arData))
				return "'".CUtil::JSEscape($arData)."'";
			else
				return "'".$arData."'";
		case "array":
			$i = -1;
			$j = -1;
			foreach($arData as $j => $temp)
			{
				$i++;
				if ($j !== $i)
					break;
			}

			if($j === $i)
			{
				$res = '[';
				$first = true;
				foreach($arData as $key => $value)
				{
					if($first)
						$first = false;
					else
						$res .= ',';

					switch(gettype($value))
					{
					case "string":
						if(preg_match("#['\"\\n\\r<\\\\\x80]#", $value))
							$res .= "'".CUtil::JSEscape($value)."'";
						else
							$res .= "'".$value."'";
						break;
					case "array":
						$res .= CUtil::PhpToJSObject($value, $bWS, $bSkipTilda, $bExtType);
						break;
					case "boolean":
						if($value === true)
							$res .= 'true';
						else
							$res .= 'false';
						break;
					case "integer":
					case "double":
						if ($bExtType)
							$res .= $value;
						else
							$res .= "'".$value."'";
						break;
					default:
						if(preg_match("#['\"\\n\\r<\\\\\x80]#", $value))
							$res .= "'".CUtil::JSEscape($value)."'";
						else
							$res .= "'".$value."'";
						break;
					}
				}
				$res .= ']';
				return $res;
			}

			$sWS = ','.($bWS ? "\n" : '');
			$res = ($bWS ? "\n" : '').'{';
			$first = true;
			foreach($arData as $key => $value)
			{
				if ($bSkipTilda && substr($key, 0, 1) == '~')
					continue;

				if($first)
					$first = false;
				else
					$res .= $sWS;

				if(preg_match("#['\"\\n\\r<\\\\\x80]#", $key))
					$res .= "'".CUtil::JSEscape($key)."':";
				else
					$res .= "'".$key."':";

				switch(gettype($value))
				{
				case "string":
					if(preg_match("#['\"\\n\\r<\\\\\x80]#", $value))
						$res .= "'".CUtil::JSEscape($value)."'";
					else
						$res .= "'".$value."'";
					break;
				case "array":
					$res .= CUtil::PhpToJSObject($value, $bWS, $bSkipTilda, $bExtType);

В ядре битрикса в файле bitrix/modules/main/tools.php на 4613 строке, длинной в 141 строку (жаль здесь ограничение на 100 строк), есть замечательный метод который по сути почти повторяет json_encode().

Почти - это потому, что это говно генерит невалидный json (использует одинарные ковычки), да еще не учитывает типы (true превратится в строку 'true').

Битриксоиды этим подосрали даже не веб-студиям, они просто нагенерировали себе много дополнительной работы на долгое время вперед.

Желаю им держать эту планку, и никогда не расти.

gitkv, 05 Июля 2018

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

Си / Говнокод #24447

0

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

void check_manifest_line (int p) {
  static char c[MAX_LINE_LEN + 1];
  int l = p - START_MANIFEST_POSITION;
  if (l <= MAX_LINE_LEN && l > 4) {
    get_binlog_data (c, START_MANIFEST_POSITION, l);
    c[l] = 0;
    char *pp = c;
    int op = -1;
    if (l >= 6 && !memcmp (c, "start", 5)) {
      op = 1; 
      pp += 5;
    } else if (l >= 5 && !memcmp (c, "stop", 4)) {
      op = 2;
      pp += 4;
    } else if (l >= 8 && !memcmp (c, "version", 7)) {
      op = 3;
      pp += 7;
    }
    if (is_whitespace (*pp) && op > 0) {      
      pp ++;
      pp = eat_whitespace (pp);
      if (!*pp) {
        START_MANIFEST_POSITION = p + 1;
        return;
      }
      if (op == 1 || op == 2) {
        char *rr = pp;
        pp = eat_not_whitespace (pp);
        char *zz = pp;
        pp = eat_whitespace (pp);
        *zz = 0;
        if (pp == c + l && zz - rr > 0) {
          struct cluster *C = CC;
          int x = BINLOG_NAME_LEN - 1;
          while (x >= 0 && BINLOG_NAME[x] != '/') {
            x--;
          }
          add_cluster (BINLOG_NAME, x + 1, rr, (MAIN_REPLICA ? 2 : 0) + (op == 2 ? 4 : 0) + (1 << 30));
          CC = C;
        }
      } else {
        assert (op == 3);
        char *rr = pp;
        pp = eat_not_whitespace (pp);
        char *rr_end = pp;
        pp = eat_whitespace (pp);
        *rr_end = 0;
        if (!*pp) {
          START_MANIFEST_POSITION = p + 1;
          return;
        }
        int version = atoi (pp);
        pp = eat_not_whitespace (pp);
        pp = eat_whitespace (pp);
        if (!*pp) {
          START_MANIFEST_POSITION = p + 1;
          return;
        }
        long long size = atoll (pp);
        pp = eat_not_whitespace (pp);
        pp = eat_whitespace (pp);
        if (pp == c + l && rr_end > rr && version > 0 && size >= 0) {
          struct cluster *C = CC;
          int x = BINLOG_NAME_LEN - 1;
          while (x >= 0 && BINLOG_NAME[x] != '/') {
            x --;
          }
          int rrlen = rr_end - rr;
          int i;
          for (i = 0; i < max_cluster; i++) if (Clusters[i]) {
            //fprintf (stderr, "i = %d, binlog_name = %s, rr = %s, rrlen = %d\n", i, Clusters[i]->binlog_name, rr, rrlen);
            const char *s = Clusters[i]->binlog_name;
            int l = strlen (Clusters[i]->binlog_name) - 1;
            while (l >= 0 && s[l] != '/') { l --; }
            s = s + l + 1;
            if (!memcmp (s, rr, rrlen) && s[rrlen] == '.') {
              int old = atoi (s + rrlen + 1);
              if (old >= version) {
                vkprintf (0, "New version %d, old %d. Skipping\n", version, old);
                START_MANIFEST_POSITION = p + 1;
                return;
              }
              if (unlink (Clusters[i]->binlog_name) < 0) {
                fprintf (stderr, "Can not delete old file %s: %m\n", Clusters[i]->binlog_name);
              }
              delete_cluster (i);
            }
          }
          static char name[1024];
          memcpy (name, rr, rrlen);
          name[rrlen] = '.';
          sprintf (name + rrlen + 1, "%06d", version);
          add_cluster (BINLOG_NAME, x + 1, name, (MAIN_REPLICA ? 2 : 0) + (1 << 30));
          LAST_SIZE = size;
          CC = C;
        }
      }
    }
  }
  START_MANIFEST_POSITION = p + 1;

https://github.com/vk-com/kphp-kdb/blob/ce6dead5b3345f4b38487cc9e45d55ced3dd7139/copyfast/copyfast-engine.c#L1081-L1181

Очередная порция вконтактового говнокода.

j123123, 05 Июля 2018

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

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