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

Всего: 58

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

+124

1
2

quicksort [] = []
quicksort (h:t) = (quicksort(filter (=h) t))

quicksort на хаскель. лаба. масло. 2014

kegdan, 16 Августа 2014

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

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

+128

1
2

isParallel :: Integer -> Integer -> Integer -> Integer -> Integer -> Integer -> Integer -> Integer -> Bool
isParallel x1 y1 x2 y2 x3 y3 x4 y4 = if (((x1-x2)*(y3-y4)-(y1-y2)*(x3-x4)) == 0) then True else False

лаба по хаски
параллельны ли 2 прямые?

kegdan, 16 Августа 2014

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

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

−79

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

map_of_enemy :: [[Int]] -> [[Int]]
map_of_enemy [] = []
map_of_enemy list = (iniciar (0) (0) (list))

iniciar :: Int -> Int -> [[Int]] -> [[Int]]
iniciar a b list = if(a == (length list)-1) then [rango a 0 list]
               else [rango a 0 list]++[(iniciar (a+1) 0 list)]

rango :: Int -> Int -> [[Int]] -> [Int]
rango a b list = if (b==(length list)-1 && (((list!!a!!0)==(list!!b!!0)) &&     ((list!!a!!1)==(list!!b!!1)) && ((list!!a!!2)==(list!!b!!2))))
             then [0]
             else if (b==(length list)-1 && (((list!!a!!0)/=(list!!b!!0)) || ((list!!a!!1)/=(list!!b!!1)) || ((list!!a!!2)/=(list!!b!!2))))
             then (rango2 a (list!!b) list)
             else if (((list!!a!!0)==(list!!b!!0)) && ((list!!a!!1)==(list!!b!!1)) && ((list!!a!!2)==(list!!b!!2)))
             then [0]++(rango a (b+1) list)
             else (rango2 a (list!!b) list)++(rango a (b+1) list)

rango2 :: Int -> [Int] -> [[Int]] -> [Int]
rango2 a b list = if ((verif [(list!!a!!0)+(list!!a!!2),(list!!a!!1)+(list!!a!!2)] [(list!!a!!0)-(list!!a!!2),(list!!a!!1)-(list!!a!!2)] (b))) then [1]
              else [0]

verif a b c = if (((c!!0) < (a!!0)) && ((c!!0) > (b!!0)) && ((c!!1) < (a!!1)) && ((c!!1) > (b!!1))) then True
          else if (((c!!0) < (a!!0)) && ((c!!0) == (b!!0)) && ((c!!1) < (a!!1)) && ((c!!1) == (b!!1))) then True
          else if (((c!!0) == (a!!0)) && ((c!!0) > (b!!0)) && ((c!!1) == (a!!1)) && ((c!!1) > (b!!1))) then True
          else False

Haskell
OMG mode on

kegdan, 22 Июля 2014

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

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

+138

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

Викиучебник по хаскелю такой викиучебник

Задание - написать frequency — функция, возвращающая список пар (символ, частота). Каждая пара определяет атом из заданного списка и частоту его вхождения в этот список.

Решение 

frequency :: [a] -> [(a : Integer)]
frequency l = f [] l

f :: [a] -> [a] -> [(a : Integer)]
f l []    = l
f l (h:t) = f (corrector h l) t

corrector :: a -> [a] -> [(a : Integer)]
corrector a []      = [(a : 1)]
corrector a (a:n):t = (a : (n + 1)) : t
corrector a h:t     = h : (corrector a t)

Логика-то верна, но код тупо не скомпилится. И как тут быть нубцу? 



Задание - Описать следующие классы типов. При необходимости воспользоваться механизмом наследования классов.
Show — класс, объекты экземпляров которого могут быть выведены на экран.

Думаю что-то мегасложное, сделать самому руками show

Решение 
 
class Show a where
  show :: a -> String

/-*)

Викиучебник по хаскелю такой викиучебник

kegdan, 11 Июля 2014

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

C# / Говнокод #16247

+143

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

using System;
using System.Text;
public class Test
{
	public static void Main()
	{
		object obj = "Suck my balls";
		string str1 = "Suck my balls";
		string str2 = new StringBuilder().Append("Suck my ").Append("balls").ToString();
		Console.WriteLine(obj==str1);//True
		Console.WriteLine(str2==str1);//True
		Console.WriteLine(obj==str2);//False
	}
}

Нетранзитивный дотнет или головоломка на ночь

kegdan, 27 Июня 2014

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

C# / Говнокод #14447

+123

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

private void textBox1_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e)
        {
            if (!Char.IsDigit(e.KeyChar) && !(Char.IsControl(e.KeyChar)))
            {
                if (!((e.KeyChar.ToString() == ",") && (textBox1.Text.IndexOf(",") == -1)))
                    e.Handled = true;
            }

        }

        private void textBox2_KeyPress(object sender, System.Windows.Forms.KeyPressEventArgs e)
        {
            if (!Char.IsDigit(e.KeyChar) && !(Char.IsControl(e.KeyChar)))
            {
                if (!((e.KeyChar.ToString() == ",") && (textBox2.Text.IndexOf(",") == -1)))
                    e.Handled = true;
            }
        }

Увидел у соседа по комнате книжку на полке '"C# в задачах и примерах"

открываю, а там это

первая надпись в книге - Процесс создания программы состоит из 2 шагов - создание формы и создания функций обработки.

ООАиП, иди ты нахуй!

kegdan, 30 Января 2014

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

Pascal / Говнокод #14394

+141

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

//у стены - нахождение клеток "у стены"
procedure useny(var vsten:bulArr);
var i,i2:integer;
  function sh(x,y,n:integer):boolean; // n-номер сдвига n=[2..5]
  begin
  if vsten[x+sdx[n],y+sdy[n]] then sh:=true
                              else
    if sten[x+sdx[n],y+sdy[n]] then sh:=false
                               else
      if sten[i2+sdx[n-1],i+sdy[n-1]]or sten[i2+sdx[n+1],i+sdy[n+1]]
        then sh:=sh(x+sdx[n],y+sdy[n],n)
        else sh:=false;
  if result then vsten[x,y]:=true;
  end;
begin
  for i:=0 to ny do
    for i2:=0 to nx do
      if not(sten[i2,i]) then
        if (sten[i2+1,i] or sten[i2-1,i])and(sten[i2,i+1] or sten[i2,i-1]) then
          begin
          vsten[i2,i]:=true;
          sh(i2,i,2);sh(i2,i,3);sh(i2,i,4);sh(i2,i,5);
          end;
end;

Попытка написать решатель Сокобана (Какая-то неведомая функция)

Примечания или то, что я узнал у владельца
1 useny - судя по всему УСтЕНЫ
2 vsten - массив клеток Возле СТЕН
3 sten - сами стены
4 sh - скорее всего Шаг, но автор не уверен.
5 sdx и sdy - СДвиг по Х и СДвиг по Y

kegdan, 22 Января 2014

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

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