Говнокод – Страница 12

Хламидомонада / Говнокод #29167

0

1
2
3
4
5
6
7
8
9
10
11

(defun foo (baz s a)
  (let ((ref #'foo))
    (defun foo (baz s a)
      (let ((ref #'foo))
        (if (zerop a)
          s
          (funcall baz ref s a))))
    
    (if (functionp baz)
      (funcall baz ref (1+ s) (1- a))
      (funcall #'foo ref (1+ s) (1- a)))))

Я объявляю конкурс, кто напишет самую запутанную и избыточную функцию сложения двух чисел которая только могла быть тот и победил. Я начну (см. код выше)

lisp-worst-code, 08.08.2025 (Updated 08.08.2025)

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

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

0

1

IT Оффтоп #219

nepeKamHblu_nemyx, 07.08.2025 (Updated 07.08.2025)

Комментарии (478, +478)

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

0

1

Пиздец-оффтоп #114

nepeKamHblu_nemyx, 28.07.2025 (Updated 28.07.2025)

Комментарии (468, +468)

Змея / Говнокод #29164

0

1
2
3
4
5
6
7
8
9
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

n = int(input())
d = n
i = 0
a = 0
c = 0
has1 = False
has2 = False
has3 = False 
has4 = False
has5 = False
has6 = False
has7 = False
has8 = False
last_dig = 0
while n > 0:
    last_dig = n % 10
    if last_dig > i :
        i = last_dig
        if last_dig == 1:
            c = 1
    elif last_dig == 1:
        has1 = True
    elif last_dig == 2:
        has2 = True
    elif last_dig == 3:
        has3 = True
    elif last_dig == 4:
        has4 = True
    elif last_dig == 5:
        has5 = True
    elif last_dig == 6:
        has6 = True
    elif last_dig == 7:
        has7 = True
    elif last_dig == 8:
        has8 = True
    n = n // 10
c = d % 10
if has1 == True and c >= 1:
    a = 1
elif has2 == True and c >= 2:
    a = 2
elif has3 == True and c >= 3:
    a = 3
elif has4 == True and c >= 4:
    a = 4
elif has5 == True and c >= 5:
    a = 5
elif has6 == True and c >= 6:
    a = 6
elif has7 == True and c >= 7:
    a = 7
elif has8 == True and c >= 8:
    a = 8
else:
    a = c
print('Максимальная цифра равна', i)
print('Минимальная цифра равна', a)

Дано натуральное число n. Напишите программу, которая определяет его максимальную и минимальную цифры

Permanent_Record, 28.07.2025 (Updated 28.07.2025)

Комментарии (1, +1)

Змея / Говнокод #29163

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14

n = int(input())
a = n
i = 0
last_digit = 0
total = 0
while n != 0:
    i += 1
    n = n // 10
while a != 0:
    last_digit = (a % 10) * 10 ** i 
    total += last_digit
    i = i - 1
    a = a // 10
print(total // 10)

Дано натуральное число. Напишите программу, которая меняет порядок цифр числа на обратный. В той Вселенной, откуда пришел этот код, end просто не существует...

Permanent_Record, 28.07.2025 (Updated 28.07.2025)

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

Змея / Говнокод #29162

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

n = input().strip('#')
n = int(n)
for _ in range(n):
    s = input()
    if '#' not in s:
        s = s.rstrip()
        print(s)
    else:
        i = 0
        count = 0
        while s[i].isspace():
            count += 1
            i += 1
        s = s.strip()
        l = s.split(' ')
        while True:
            item = l.pop(-1)
            if '#' in item:
                break
        if count != 0:
            l.insert(0, ' '*(count - 1))
        count = 0
        m = ' '.join(l)
        print(m.rstrip())

На вход программе подаётся натуральное число в формате #n, а затем n строк с кодом, в котором нужно удалить все комментарии и сохранить всё остальное как есть. Зачем вся эта хрень со списками, когда можно решить в несколько строк методами строк, простите за каламбур!

Permanent_Record, 27.07.2025 (Updated 27.07.2025)

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

"PHP" / Говнокод #29161

0

1
2
3
4
5
6
7
8
9
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

<?php
function real_parse_headers($data) {
    $result = [];
    foreach($data as $line) {
        $parts = explode(':', $line, 2);
        if(!isset($parts[1])) continue;
        $key = trim($parts[0]);
        $key = implode('-', array_map(function($value) {return ucfirst($value);}, explode('-', $key)));
        $result[$key] = trim($parts[1]);
    }
    return $result;
}

function real_length($from, $original_context = null) {
    $context = stream_context_create(isset($original_context) ? stream_context_get_options($original_context) : null);
    stream_context_set_option($context, 'http', 'method', 'HEAD');
    @file_get_contents($from, false, $context);
    return intval(real_parse_headers($http_response_header)['Content-Length']);
}

function real_copy($from, string $to, $context = null) {
    define('BLOCK', 8192);
    $total = real_length($from, $context);

    if(!isset($context)) {
        $context = stream_context_create();
    }
    $headers = stream_context_get_options($context)['http']['header'] ?? [];
    stream_context_set_option($context, 'http', 'timeout', '1.0');
    stream_context_set_option($context, 'http', 'ignore_errors', true);

    for($start = 0; $start < $total; $start += $length) {
        $end = $start + BLOCK;
        stream_context_set_option($context, 'http', 'header', array_merge($headers, ["Range: bytes=$start-$end"]));
        $part = @file_get_contents($from, false, $context);
        if($part === false) break;
        $length = strlen($part);
        file_put_contents($to, $part, FILE_APPEND);
    }
}

/* The real example */
$context = stream_context_create([
    'http' => ['method' => 'GET'],
    'ssl'  => ['verify_peer' => false, 'verify_peer_name' => false, 'allow_self_signed' => true, 'SNI_enabled' => true]
]);        

real_copy('https://govnokod.ru/files/images/pony.jpg', 'pony.jpg', $context);

Дрочилка для скачивания файлов с сайтов, расположенных за «Cloudflare». Теперь банановая и на «PHP»!

nemyx, 25.07.2025 (Updated 25.07.2025)

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

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

0

1

Пиздец-оффтоп #113

nepeKamHblu_nemyx, 20.07.2025 (Updated 20.07.2025)

Комментарии (570, +570)

Хламидомонада / Говнокод #29159

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

(tagbody

  start
    (defun innovative-sort (lst)
      (assert (not (null lst)))

      (when (equal (car lst) "VIRGIN") (innovative-sort (reverse (cdr lst))))

      (if (> (length lst) 1)
         (let ((foo (logxor
                     (logand
                       (if (> (car lst) (cadr lst))
                          1
                          0)
                     1)
                    (logand
                    (if
                         (not (> (car lst) (cadr lst)))
                   1
                    0)
                    0))))

       (if (if (= foo 1) t nil)
            (progn
              (rotatef (car lst) (cadr lst))
            (cons (car lst) (innovative-sort (cdr lst))))
            (cons (car lst) (innovative-sort (cdr lst)))))

        (car lst)))

(go start))

(innovative-sort '(5 9 2 4))

инновационный алгоритм сортировки

lisp-worst-code, 19.07.2025 (Updated 19.07.2025)

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

Beri bash i ebash / Говнокод #29158

0

1
2
3
4
5
6

#!/bin/sh

while :; do
wget -c -T 1 --no-check-certificate $1
[ $? == 0 ] && break
done

Дрочилка для скачивания файлов с сайтов, расположенных за «Cloudflare».

nemyx, 18.07.2025 (Updated 18.07.2025)

Комментарии (32, +32)