Список говнокодов пользователя JloJle4Ka

Всего: 34

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

−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

(define A (list 1 2 3 4 5 6))

(define (filter number first-number)
  (cond ((= (modulo first-number 2) 0)
         (cond ((= (modulo number 2) 0) (list number))
               (else '())))
        (else (cond ((not (= (modulo number 2) 0)) (list number))
               (else '())))))

(define (same-parity-impl L n)
  (let ((C (cdr L)))
    (cond ((null? C)
           (filter (car L) n))
          (else
           (append
            (filter (car L) n)
            (same-parity-impl C n))))))


(define result (same-parity-impl A (car A)))

(newline)
(display result)
(newline)

Смотрите, что я сделал!

JloJle4Ka, 15 Февраля 2023

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

Java / Говнокод #28600

−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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

import java.lang.Math;
import java.util.Random;

public class MyVector {

    public static MyVector[] generateVectors(int N) {
        MyVector[] generated_vectors = new MyVector[N];
        for (int i = 0; i < N; i++) {
            MyVector vec = new MyVector();
            generated_vectors[i] = vec;
        }
        return generated_vectors;
    }

    public MyVector(double x, double y, double z) {
        this.x = x;
        this.y = y;
        this.z = z;
    }

    public MyVector() {
        final Random random = new Random();
        this.x = random.nextInt();
        this.y = random.nextInt();
        this.z = random.nextInt();
    }

    public double getX() { return this.x; }
    public void setX(double newX) { this.x = newX; }

    public double getY() { return this.y; }
    public void setY(double newY) { this.y = newY; }

    public double getZ() { return this.z; }
    public void setZ(double newZ) { this.z = newZ; }

    public double getLength() {
        return Math.sqrt(Math.pow(this.x, 2) +
                         Math.pow(this.y, 2) +
                         Math.pow(this.z, 2));
    }

    public String toString() {
        StringBuilder representation = new StringBuilder();
        representation.
            append(" { ").
            append(this.x).
            append(" ; ").
            append(this.y).
            append(" ; ").
            append(this.z).
            append(" } ");
        return representation.toString();
    }

    public double scalarProduct(MyVector vec) {
        return (this.getX() * vec.getX() +
                this.getY() * vec.getY() +
                this.getZ() * vec.getZ());
    }

    public MyVector vectorProduct(MyVector vec) {
        MyVector result = new MyVector();
        result.setX(this.getY() * vec.getZ() -
                    this.getZ() * vec.getY());
        result.setY(this.getZ() * vec.getX() -
                    this.getX() * vec.getZ());
        result.setZ(this.getX() * vec.getY() -
                    this.getY() * vec.getX());
        return result;
    }

    public MyVector substract(MyVector vec) {
        MyVector result = new MyVector();
        result.setX(this.getX() - vec.getX());
        result.setY(this.getY() - vec.getY());
        result.setZ(this.getZ() - vec.getZ());
        return result;
    }

    public MyVector add(MyVector vec) {
        MyVector result = new MyVector();
        result.setX(this.getX() + vec.getX());
        result.setY(this.getY() + vec.getY());
        result.setZ(this.getZ() + vec.getZ());
        return result;
    }

    private double x;
    private double y;
    private double z;
}

Что здесь не так?

JloJle4Ka, 13 Февраля 2023

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

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

−1

01
02
03
04
05
06
07
08
09
10
11

(define A (list 1 2 3 4 5))

(define (reverse L)
  (let ((C (cdr L)))
    (if (not (null? C))
        (cons (reverse C) (car L))
        (car L))))

(newline)
(display (reverse A))
(newline)

Почему у меня получается х****й лист после реверсинга? :-(

JloJle4Ka, 10 Февраля 2023

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

bash / Говнокод #28587

0

1

curl -fsSL https://deno.land/x/install/install.sh | sh

Хи-хи-хи

JloJle4Ka, 05 Февраля 2023

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

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

0

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

#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
int main ()
{
   char address[128], fname[128], command[128];
   FILE *tempfile;

   strcpy(fname , tmpnam(NULL));
   tempfile = fopen (fname, "w");     /* create temporary file */
   if (tempfile == NULL)              /* error - didn't create file */
   {
      printf("Internal failure #1 please report %d\n", errno);
      exit (1);
   }
   fprintf(tempfile, "Thank you very much for caring about our cause\n");
   fprintf(tempfile, "this letter is just to tell you how much we\n");
   fprintf(tempfile, "really think you are wonderful for caring.\n\n");
   fprintf(tempfile, "Sincerely,\n\n");
   fprintf(tempfile, "Jane Doe, Executive Thanker\n");
fclose (tempfile);
   gets(address);                            /* read in email address */

   sprintf(command, "mail -s \"thanks for caring\" %s < %s\n",
           address, fname);                /* create the command */
   system (command);                       /* execute command */
   remove (fname);                         /* clean up */
   exit (0);
}

Игра: найди вулна.

JloJle4Ka, 03 Февраля 2023

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

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

0

1

https://career.habr.com/vacancies?s[]=2&s[]=3&s[]=82&s[]=4&s[]=5&s[]=72&s[]=1&s[]=75&s[]=6&s[]=77&s[]=7&s[]=83&s[]=84&s[]=8&s[]=85&s[]=73&s[]=9&s[]=86&s[]=106&type=all

Что бы это могло значить...

JloJle4Ka, 31 Января 2023

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

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

0

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

#!/usr/bin/guile -s
!#

(define (pt n s)
  (cond ((< n 1) 0)
        ((= n 1) 1)
        ((= s 0) 0)
        ((= s 1) 1)
        ((= s n) 1)
        ((> s n) 0)
        (else (+ (pt (- n 1) s) (pt (- n 1) (- s 1))))))

(display (pt 1 1)) ;; 1
(newline)

(display (pt 3 2)) ;; 2
(newline)

(display (pt 5 3)) ;; 6
(newline)

Лисп-загадка: угадайте, что делает этот (вышеприведённый) код.

JloJle4Ka, 05 Января 2023

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

Perl / Говнокод #28535

0

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

#!/usr/bin/guile -s
!#

(define (square x)
  (* x x))

(define (square_sum x y)
  (+ (square x) (square y)))

(define (tmax x y z)
  (cond ((and (>= x y) (>= x z)) x)
        ((and (>= y x) (>= y z)) y)
        (else z)))

(define (tms x y z)
  ((cond ((= (tmax x y z) x)
          (if (> y z)
              (square_sum x y)
              (square_sum x z)))
         ((= (tmax x y z) y)
          (if (> x z)
              (square_sum x y)
              (square_sum y z)))
         ((= (tmax x y z) z)
          (if (> x y)
              (square_sum x z)
              (square_sum y z)))
         (else 0))))

(display "Ans: ")
(display (tms 6 5 4))
(newline)

Почему не работает?

JloJle4Ka, 02 Января 2023

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

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

0

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

;; Sound.
(xbindkey '(Alt F7) "amixer set Master 1%-")
(xbindkey '(Alt F8) "amixer set Master 1%+")

(define muted 0)
(run-command "amixer set Master 3%")

(xbindkey-function '(Alt F6)
                   (lambda()
                     (cond ((equal? muted 0)
                            (run-command "amixer set Master 0%")
                            (set! muted 1)
                            )
                           (else (begin
                                   (run-command "amixer set Master 3%")
                                   (set! muted 0)
                                   ))
;; какой багор
                           )))

Линукс-загадка!

JloJle4Ka, 30 Декабря 2022

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

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

+1

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

ListNode* mergeTwoLists(ListNode* list1, ListNode* list2) {
        bool f;
        ListNode* t;
        return (ListNode*)
            ( 
                (!list1 * (unsigned long long)list2) + 
                (!list2 * (unsigned long long)list1) +
                ((!!list1 && !!list2 && 
                    (
                        ((f = (list1 -> val <= list2 -> val)) && (t = list1, list1->next = mergeTwoLists(list1 -> next, list2)))||
                        ((!f) && (t = list2, list2->next = mergeTwoLists(list1, list2->next)))
                    )
                ) * (unsigned long long)t)
            ); 
    }

2022. Хабр. Итоги.

JloJle4Ka, 30 Декабря 2022

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

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