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

Всего: 338

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

+131

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

#include <stdio.h>
#include <stdint.h>

#define ARR_L 11
#define INS_P (arr[0])
#define MOD_L(a) ((a) % ARR_L)
#define INS_P_M (MOD_L(INS_P))
#define ARR_ACS(a) (arr[MOD_L(a)]) //access to arr


void foo (uint8_t *arr)
{
  if (ARR_ACS(0) == 0)
  {
    printf("%u ", ARR_ACS(1));
    ARR_ACS(1) += ARR_ACS(2);
    ARR_ACS(0) = 1;
  }
  else
  {
    printf("%u ", ARR_ACS(2));
    ARR_ACS(2) += ARR_ACS(1);
    ARR_ACS(0) = 0;
  }

}

int main(void) {
  uint8_t arr[ARR_L] = {1,1,1,0,0,0,0,0,0,0,0};
  for (size_t a = 0; a < 13; a++)
  {
    foo(arr);
  }
  return 0;
}

Считалка чисел Фибоначчи на основе фигни, придуманной в http://govnokod.ru/15967
Надо сделать метаязык для удобного составления набора инструкций для этой штуки. И еще надо осилить длинную арифметику, ну это вообще круто будет

j123123, 14 Мая 2014

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

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

+129

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

#include <stdio.h>
#include <stdint.h>

#define ARR_L 11
#define INS_P (arr[0])
#define MOD_L(a) ((a) % ARR_L)
#define INS_P_M (MOD_L(INS_P))
#define ARR_ACS(a) (arr[MOD_L(a)]) //access to arr


void foo (uint8_t *arr)
{
  ARR_ACS(3) = INS_P * ARR_ACS(INS_P);
  ARR_ACS( MOD_L( INS_P_M + 1 ) ) = ((INS_P * INS_P) * 2);
  if (INS_P != 0) {ARR_ACS(INS_P_M)++;};
  INS_P = INS_P_M + 1;

  // tut voobche lubaya fignya, kotoraya chtoby izmenyala
  // figny v massive v zavisimosti ot sostoyania massiva
}

int main(void) {
  uint8_t arr[ARR_L] = {0,2,6,3,2,62,7,113,0,26,13};
  for (size_t a = 0; a < 10000; a++)
  {
    foo(arr);
    printf 
    (
      "%.3u %.3u %.3u %.3u %.3u "
      "%.3u %.3u %.3u %.3u %.3u %.3u\n",
      INS_P,arr[1],arr[2],arr[3],arr[4],
      arr[5],arr[6],arr[7],arr[8],arr[9],arr[10]);
  }
  return 0;
}

Машина Тьюринга с лентой конечной длины - конечный автомат. Состояние обязательно зациклится, какие бы правила преобразования над конечным алфавитом мы не вводили и каким бы ни было начальное состояние ленты.

В сишке есть возможности вменяемо сделать вывод чисел из массива подряд для N-ного количества аргументов?
Цикл не предлагать

j123123, 12 Мая 2014

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

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

+133

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

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>

void my_char_plus(const void *a, const void *b, void *c)
{
  char tmp =  (*(char*)a + *(char*)b);
  memcpy(c,(void*)(&tmp),sizeof(char));
}

void my_char_minus(const void *a, const void *b, void *c)
{
  char tmp =  (*(char*)a - *(char*)b);
  memcpy(c,(void*)(&tmp),sizeof(char));
}



void operation(const void *funct(const void*,const void*,void*),
                      const void *a, const void *b, void *c )
{
  funct(a,b,c);
}

char ret_last_arg(const void *funct(const void*,const void*,void*),
                      const void *a, const void *b)
{
  char c;
  funct(a,b,(void*)&c);
  return c;
}



int main(void)
{

  char a, b;
  a = 5; b = 7;
  
  
  void *plus = &my_char_plus; char c;
  operation(plus, (const void*)&a, (const void*)&b, (void*)&c);
  printf("5 + 7 = %i\n", c);
  
  
  void *minus = &my_char_minus;
  char d = ret_last_arg(minus, (const void*)&a, (const void*)&b);
  printf("5 - 7 = %i\n", d);
  
  
// LISP LISP LISP
#define LISP(ar,aa,bb) ret_last_arg(ar, (const void*)&(char){aa}, (const void*)&(char){bb} )

  char e = LISP(plus,2,LISP(plus,2,2));
  printf("(+ 2 (+ 2 2 ) ) = %i\n", e);
  
  return 0;
}

Лиспопрограммирование на сишке через макрос (префиксная запись)
Только оно кривовато тут, т.е. получаем трехадресный код (не как в лиспе)
http://masters.donntu.edu.ua/2006/fvti/svyezhentsev/library/article2.htm
Можно делать интерпретаторы фигни всякой, шитый код. Я упорот короче

j123123, 08 Мая 2014

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

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

+132

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

#include <stdio.h>

unsigned int mid (unsigned int a, unsigned int b)
{
	if (a > b) {unsigned int c = a; a = b; b = c;}
	for(; a < b; a--, b++) {;};
	return a;
}

int main(void) {
	printf("%u %u %u %u", mid(2,2), mid(3,2), mid(2,3), mid(3,3));
	return 0;
}

Это я хочу найти середину. Где-то я туплю

j123123, 04 Мая 2014

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

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

+73

1

http://bnw.im/p/JCBN9N

https://bnw.im/u/j123123

j123123, 04 Мая 2014

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

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

+133

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

#ifndef ORDER32_H
#define ORDER32_H

#include <limits.h>
#include <stdint.h>

#if CHAR_BIT != 8
#error "unsupported char size"
#endif

enum
{
    O32_LITTLE_ENDIAN = 0x03020100ul,
    O32_BIG_ENDIAN = 0x00010203ul,
    O32_PDP_ENDIAN = 0x01000302ul
};

static const union { unsigned char bytes[4]; uint32_t value; } o32_host_order =
    { { 0, 1, 2, 3 } };

#define O32_HOST_ORDER (o32_host_order.value)

#endif

Говнокод из http://stackoverflow.com/questions/2100331/c-macro-definition-to-determine-big-endian-or-little-endian-machine
Мало того, что писать в один тип из юниона и потом читать из другого это UB, так еще компилятор (в случае GCC) из

int main(void)

{return O32_HOST_ORDER == O32_LITTLE_ENDIAN;}

нагенерирует код

main:

	xor	eax, eax

	cmp	DWORD PTR o32_host_order[rip], 50462976

	sete	al

	ret

o32_host_order:

	.byte	0

	.byte	1

	.byte	2

	.byte	3

т.е. всякий раз, когда надо узнать endianess, мы лезем в константную статическую переменную и сравниваем ее с константой

j123123, 08 Апреля 2014

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

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

+134

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


/* A C statement or statements which output an assembler instruction
   opcode to the stdio stream STREAM.  The macro-operand PTR is a
   variable of type `char *' which points to the opcode name in its
   "internal" form--the form that is written in the machine description.

   GAS version 1.38.1 doesn't understand the `repz' opcode mnemonic.
   So use `repe' instead.  */

#undef ASM_OUTPUT_OPCODE
#define ASM_OUTPUT_OPCODE(STREAM, PTR)	\
{									\
  if ((PTR)[0] == 'r'							\
      && (PTR)[1] == 'e'						\
      && (PTR)[2] == 'p')						\
    {									\
      if ((PTR)[3] == 'z')						\
	{								\
	  fputs ("repe", (STREAM));					\
	  (PTR) += 4;							\
	}								\
      else if ((PTR)[3] == 'n' && (PTR)[4] == 'z')			\
	{								\
	  fputs ("repne", (STREAM));					\
	  (PTR) += 5;							\
	}								\
    }									\
  else									\
    ASM_OUTPUT_AVX_PREFIX ((STREAM), (PTR));				\
}

Костыль из GCC. Ассемблер GAS версии 1.38.1 не переваривает мнемоники repz и repnz. Эта макрохрень перекодирует их в repe и repne соответственно
https://github.com/mirrors/gcc/blob/master/gcc/config/i386/gas.h#L81

j123123, 02 Апреля 2014

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

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

+136

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

#include <stdio.h>
#include <inttypes.h>

inline uint8_t mid_ch (uint8_t a, uint8_t b, uint8_t res)
{
  if (b == 0){ if (a >= 2) return mid_ch (a-2, b  , res+1); else return res;}
  if (a == 0){ if (b >= 2) return mid_ch (a  , b-2, res+1); else return res;}
  return mid_ch (a-1, b-1, res+1);
}

uint64_t mid_0_ch (uint64_t a, uint64_t b)
{
  return mid_ch(a, b, 0);
}


int main(void)
{
  printf("%u %u", mid_0_ch (253, 123), (253+123)/2);
  return 0;
}

Нахождение среднего арифметического двух чисел через рекурсию. Сначала сделал для uint64_t чтобы это имело смысл, ведь сложение двух 64-битных чисел с записью результата в третье может привести к целочисленному переполнению (для 64-битных чисел, сложение которых может привести к переполнению, этот код работал чрезвычайно медленно, поэтому я ограничился 8-битными). При таком наркоманско-рекурсивном алгоритме этого переполнения не будет. 128-битные типы есть только как нестандартное расширение, но тогда еще возникает вопрос, как найди среднее арифметическое двух таких 128-битных чисел? А если есть 256-битные, то как тогда их них находить среднеарифметическое... ну и так далее.
Можно эту проблему еще решать через битовые маски т.е. убрать из обеих чисел самые старшие биты (предварительно сохранив их), сложить эти два числа, поделить на два, потом уже эти сохраненные биты вида 10000... или 0000... оба поделить на 2(сдвинуть на один разряд) и прибавить. Наркоманство какое-то.
Почему бы не сделать в С некий особый целочисленный тип, в котором любая фигня влезет, но который бы использовался только временно для промежуточных вычислений, чтобы не делать бэкапы битиков всяких?

j123123, 31 Марта 2014

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

Assembler / Говнокод #15415

+145

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

global _start

section .text

_start:

	mov	eax, 0b10010100101100110111110110111110
	;  эти битики будут выведены на печать
	
	mov	ecx, 0b00011000000110000001100000011000
	; Четыре недозаполненных ascii кодов символов '0' или '1', в который из флага переноса заталкивается битик 0 или 1

	%rep 8
	mov	ebx, ecx
	%rep    3
		shr	eax, 1 ; Захавываем битик в флаг переноса
		rcl	ebx, 1 ; Запихиваем из флага переноса в недозаполненные ascii коды
		rol	ebx, 7 ; Проматываем на следующий кусок
	%endrep
	shr	eax, 1
	rcl	ebx, 1 ; На последней стадии все то же самое, только проматывать уже не надо

	push ebx ; Теперь все битики всунуты, пихнем содержимое регистра в стек
	%endrep


    
	mov	eax, 04h ; write()
	mov	ebx, 01h ; stdout
	mov	ecx, esp ; распечатаем из стека
	mov	edx, 32  ; 32 символа
	int	80h
	
	mov	eax, 01h ; exit()
	xor	ebx, ebx ; errno
	int	80h

NASM Linux x86
Суть - вывести содержимое регистра в двоичной системе счисления
Можно было вместо этой мути использовать CMOVC ( Move if carry (CF=1) ) или еще что-нибудь такое придумать, есть же еще BT, BTS, глаза разбегаются
...вообще хрен его знает, какой-то упоротый этот x86 ассемблер, надо бы AVR осваивать, там регистров побольше

j123123, 10 Марта 2014

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

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

+142

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

static char months [] = "JanFebMarAprMayJunJulAugSepOctNovDecGlk";
static char dows [] = "SunMonTueWedThuFriSatEar";


int dd [] =
{31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};

void gen_http_date (char date_buffer[29], int time) {
  int day, mon, year, hour, min, sec, xd, i, dow;
  if (time < 0) time = 0;
  sec = time % 60;
  time /= 60;
  min = time % 60;
  time /= 60;
  hour = time % 24;
  time /= 24;
  dow = (time + 4) % 7;
  xd = time % (365 * 3 + 366);
  time /= (365 * 3 + 366);
  year = time * 4 + 1970;
  if (xd >= 365) {
    year++;
    xd -= 365;
    if (xd >= 365) {
      year++;
      xd -= 365;
      if (xd >= 366) {
        year++;
        xd -= 366;
      }
    }
  }
  if (year & 3) {
    dd[1] = 28;
  } else {
    dd[1] = 29;
  }

  for (i = 0; i < 12; i++) {
    if (xd < dd[i]) {
      break;
    }
    xd -= dd[i];
  }

  day = xd + 1;
  mon = i;
  assert (day >= 1 && day <= 31 && mon >=0 && mon <= 11 &&
      year >= 1970 && year <= 2039);

  sprintf (date_buffer, "%.3s, %.2d %.3s %d %.2d:%.2d:%.2d GM",
      dows + dow * 3, day, months + mon * 3, year,
      hour, min, sec);
  date_buffer[28] = 'T';
}

Делать имена месяцев и дни недели одной сишной строкой, чтобы потом выводить оттуда по три символа через sprintf, считая оффсет умножением на 3 т.к. имена месяцев и дней недели влазят в три символа
https://github.com/vk-com/kphp-kdb/blob/ce1ac4fbde2d3b546936ad07d6a748958f6d2198/net/net-http-server.c#L664

http://roem.ru/2013/07/20/kphp76561/
>ВКонтактовские "олимпиадники"-чемпионы ACM разработали крайне интересную высоконагруженным сайтам технологию.

Хреновые какие-то олимпиадники попались, раз неосилили http://ideone.com/IfvBgi

j123123, 09 Марта 2014

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

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