Куча — Говнокод.ру

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

+142

1

Россия победила в XXII зимних Олимпийских играх.

_Dark_, 23 Февраля 2014

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

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

+101

1
2
3

Запилил расширение выкашивающее "коней", "царей" и прочую нечисть.

http://gvforum.ru/viewtopic.php?pid=1911#p1911

Vasiliy, 20 Февраля 2014

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

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

+129

1

data Int = -33554432 | -33554431 | ... |-2 | -1 | 0 | 1 | 2 | 3 | ... | 33554431 | 33554432

LispGovno, 19 Февраля 2014

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

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

+127

1
2
3
4
5
6
7
8
9

Переустановил я, значит, Шиндоус 7 (лицуха), ставлю VS 2012

Все встало без проблем, предупреждений и криков о помощи.

При запуске ВНЕЗАПНО всплыло окошко

"Внимание! Данная программа имеет известные проблемы совместимости с данной версией Windows"

Visual Studio  2012 несовместим с семеркой? Ну охуеть теперь.

kegdan, 12 Февраля 2014

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

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

+126

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

-- Подключим нужные библиотеки
-- http://codepad.org/
-- import Control.Exception
import Data.Array
import Data.Ord
import Data.List
import System.Random
import Control.Arrow
import Text.Printf

--Тестовая карта. Можно менять.
testMapList2D = [        
		"        ",
		" X X    ",
		" X XX XX",
		"XX X    ",
		"   X X  ",
		"  XX    ",
		" X      ",
		"   X    "]

--Топографические знаки:
void = ' '
wall = 'X'
step = '*'

-- Не удобно без |> из F#. Няшная же функция. Чего её вдруг нет? Не выдержал, добавил.
infixl 0 $>
($>) = flip ($)

-- Получаем карту произвольного размера WxH. Генератор простейший, но впрочем не годен для генерации красивых лабиринтов.
-- Можно использовать для измерения производительности.
generateList2D wh wallFactor seed = 
	(randomRs (0, 1000) (mkStdGen seed) ::[Float]) $>
	map (\randNumber -> if randNumber/1000 > wallFactor then void else wall ) >>>
	listToList2D wh

-- Вспомогательные функции
listToList2D (w, h) = 
	take (w*h) >>>
	iterate (drop w) >>>
	take h >>>
	map (take w)
widthHeightOfList2D l = (length $ head l, length l)
makeArray2D (w, h) values = listArray ((0,0), (h-1, w-1)) values
list2DToArray2D l = makeArray2D (widthHeightOfList2D l) $ concat l
widthHeightOfArray2D a = let (mx, my) = snd $ bounds a in (mx+1, my+1)
putIntoArray2D valueForInsertion a positionsForInsertion = a // (zip positionsForInsertion $ repeat valueForInsertion)
mapPathAdd map_ path = putIntoArray2D step map_ path
generateMap wh wallFactor seed = list2DToArray2D $ generateList2D wh wallFactor seed
outputArray2D a =
	elems a $>
	listToList2D (widthHeightOfArray2D a) >>>
	mapM print -- В самом конце в последней строке функция outputArray2D стала грязной. Поплачем над её участью и идём дальше.

-- Приступим к функции поиска пути findPath.
-- UB findPath при использовании не прямоугольной карты. 
-- UB findPath для карт меньше 2x2 точек (из-за реализации getNearestPoint) (из-за лени добавить одну короткую строчку с учетом того что карт таких не бывает обычно).
-- Также использование неподходящих в карте топографичексих знаков не контролируется.
-- Тесты не писал.
{-
	Я честно пытался использовать assert в чистом коде, но возможно из-за лени он работает через раз.
	В коде выглдяит отвратительно.
	Самое не приятное что он не сообщает ничего подробнее чем то, что произошл ассерт. Не номер строки, не описание ошибки, не выражение. Видимо чисто недоделанная стандартная библиотека.
	Пытался написать свой ассерт, чтобы хоть какое-то сообщение выдавал. Ну видимо руки кривые сделали ещё ассерт хуже, тк вообще ни разу проверил. Видимо нужны всякие бенги секи и прочее для форсирования ленивых вычислений. Так что даже не стал пытаться.
-}
-- Функция findPath все ещё чиста как слеза младенца.

findPath map_ (sx, sy) (dx, dy) = getPath $ waveField (-1) initialFieldAndYetNotFindedDestinationPoint (dx, dy)
	where
		wh = widthHeightOfArray2D map_
		(w, h) = wh
		fieldMax = w*h+1
		initialField = makeArray2D wh $ repeat fieldMax
		initialFieldAndYetNotFindedDestinationPoint = (initialField, False)
		posibleSteps (cx, cy) = [(cx+1, cy), (cx-1, cy), (cx, cy+1), (cx, cy-1)]
		isInMapRange (cx, cy) = cx>=0 && cy>=0 && cx<w && cy<h
		getNearestPoint field = (minimumBy (comparing (field!))) . (filter isInMapRange) . posibleSteps
		getPath (field, True) = (takeWhile (/=(dx,dy)) $ iterate (getNearestPoint field) (sx,sy)) ++ [(dx, dy)]
		getPath (field, False) = []
		waveField waveDistance waveFieldWithFindResult (cx, cy)
			| not $ isInMapRange (cx, cy)                                = waveFieldWithFindResult
			| map_!(cx, cy) == wall                                      = waveFieldWithFindResult
			| ((fst waveFieldWithFindResult) ! (cx, cy)) <= waveDistance = waveFieldWithFindResult
			| (cx, cy)==(sx, sy)                                         = ((fst waveFieldWithFindResult) // [((cx, cy), waveDistance+1)], True)
			| otherwise                                                  =
				let waveFieldWithFindResult1 = ((fst waveFieldWithFindResult) // [((cx, cy), waveDistance+1)], snd waveFieldWithFindResult) in
				foldl (waveField (waveDistance+1)) waveFieldWithFindResult1 $ posibleSteps (cx, cy)

-- Копипасте-бой
pathView map_ mapName sourcePoint destinationPoint = do
	let mapInfo = mapName ++ " with size " ++ (show $ widthHeightOfArray2D map_) ++ ":"
	print mapInfo
	let sd = (sourcePoint, destinationPoint)
	printf "Path for %s: " (show sd)
	let path = findPath map_ (fst sd) (snd sd)  
	print path
	let mapWithPath = mapPathAdd map_ path
	print "Map with path: "
	outputArray2D mapWithPath

putStr "\n"



-- Точка входа

main = do

	let map1 = list2DToArray2D testMapList2D

	pathView map1 "MapFromCode" (0,0) (5,5)

	let mapGenerated1 = generateMap (4,4) 0.2 90

	pathView mapGenerated1 "MapGenerated1" (0,2) (3,3)

	let mapGenerated3 = generateMap (5,5) 0.1 15

	pathView mapGenerated3 "MapGenerated3" (0,0) (2,2)

laMer007, 11 Февраля 2014

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

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

+127

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

import std.stdio;

struct Vector
{
    private static bool checkOpDispatch(in string str)
    {
        if(str.length != 4) return false;
        foreach(c; str)
        {
            if(c != 'x' && c != 'y' && c != 'z' && c != 'w') return false;
        }
        return true;
    }
    float x,y,z,w;

    @property auto opDispatch(string s)() const if(checkOpDispatch(s))
    {
        return Vector(mixin(s[0..1]),
                      mixin(s[1..2]),
                      mixin(s[2..3]),
                      mixin(s[3..4]));
    }
    
    void print() const
    {
        writefln("Vector: %f, %f, %f, %f", x, y, z, w);
    }
}

void main() 
{
	//vector swizzling
    Vector v = {1,2,3,4};
    v.print();
    auto v1 = v.wzyx;
    v1.print();
    auto v2 = v.xyxy;
    v2.print();
}

http://ideone.com/bfA9gI

LispGovno, 10 Февраля 2014

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

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

+128

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

mixin template GenerateAutoDispose()
{
    void dispose()
    {
        foreach_reverse(i,t;this.tupleof)
        {
            static if(staticIndexOf!(auto_dispose,__traits(getAttributes, this.tupleof[i])) != -1)
            {
                static if(isArray!(typeof(t)))
                {
                    foreach(t1;t)
                    {
                        if(t1 !is null)
                        {
                            t1.dispose();
                        }
                    }
                }
                else
                {
                    if(t !is null)
                    {
                        t.dispose();
                    }
                }
            }
        }
    }
}

http://pastebin.com/2x2k7ngR

LispGovno, 08 Февраля 2014

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

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

+129

1
2
3

http://lifenews.ru/news/125806
Последний абзац:
«Подозрение о том, что к созданию вредоносной программы могут быть причастны программисты российской школы, было высказано после того, как специалисты обнаружили, что часть кода вируса написана по-русски.»

Это на 1С что ли? :D

TBoolean, 07 Февраля 2014

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

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

+123

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

@echo off

set PROGPATH="%ProgramFiles%\MyProg"

rem И тут мы захотели проверить, существует ли наша папочка

if not exists "%PROGPATH%" (
    mkdir "%PROGPATH%"
)

rem виндовый шелл как бы нам говорит "братюнь, погоди, не спеши"
rem ""C:\Program was unexpected at this time.

Патч:

-set PROGPATH="%ProgramFiles%\MyProg"

+set "PROGPATH=%ProgramFiles%\MyProg"

http://stackoverflow.com/questions/535975/dealing-with-quotes-in-windows-batch-scripts

Elvenfighter, 06 Февраля 2014

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

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

+127

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

Привет! 
Сообщество, посмотри C++11 код, а не ошибочно ли выбраны символы для обжатия шаблонных параметров. 
<сказка> 

Итак, жили-были две функции: 

void func0(bool=false); //ok
void func1(bool=8>=8);  //ok

И на лексемы разбирались они успешно и без конфликтов.

И был у них друг помошник: 

#define F(TYPE,NAME,VALUE)TYPE NAME=VALUE;
F(int,value,0);
#undef F

Лексер и его на лексемы разбирал.

Но пришли злые шаблоногородители и по нагородили шаблонов...

Нагородили шаблонные структуры типа таких: 

template<bool>struct a{constexpr a(bool){}};

и переменные типа таких: 

a<0> var=0;
map<int,int> m;

А лексер всё стоял и терпел. Он всё успешно на лексемы разбирал.

Но радилась как-то в коде функция типа такой: 

void func2(a<0>=8>=8); // fail

И не выдержал лексер: 

prog.cpp:4:18: warning: comparisons like ‘X<=Y<=Z’ do not have their mathematical meaning [-Wparentheses]
 void func2(a<0>=8>=8); // fail
                  ^
prog.cpp:4:12: error: parse error in template argument list
 void func2(a<0>=8>=8); // fail
            ^ 

Не понял он что хотят от него. 

void func2(a<0> = 8>=8 ); // это?
void func2(a< 0>=8 > =8); // или это?

... да как же вам объяснить? 
А давайте я заменю "<" на "{", а ">" на "}".

И не понял лексер, что хотят от него. 

void func2(a{0}=8>=8); // это?
void func2(a{0>=8}=8); // или это?

А потом уродилось в коде ещё и это: 

#define F(TYPE,NAME,VALUE)TYPE NAME=VALUE;
F(a<0>,var,0); //ok
#undef F

Но лексер терпел.

Терпел, да не выдержал. 

#define F(TYPE,NAME)TYPE NAME;
F(map<int,int>,m); //fail
#undef F

Решил он забить на дело гиблое: 

prog.cpp:7:17: error: macro "F" passed 3 arguments, but takes just 2
 F(map<int,int>,m); //fail
                 ^
И ужёл он к другим стандартописателям. 
</сказка> 
tags: черновик, сказка, С++11, шаблоны, макросы, лексер

Символы для обжатия параметров шаблонов выбраны ошибочно?

LispGovno, 02 Февраля 2014

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

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

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

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

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

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

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

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

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

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

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

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