- 1
- 2
substractOneFromArgument = (-)1
main = print $ substractOneFromArgument 4
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+122
substractOneFromArgument = (-)1
main = print $ substractOneFromArgument 4
ПИШУ ФУНКЦИЮ ВЫЧИТАЮЩУЮ ЕДИНИЦУ ИЗ СВОЕГО АРГУМЕНТА
@
ПОЛУЧАЮ УПОРОТЫЙ РЕЗУЛЬТАТ
http://ideone.com/I34iLA
+133
access denied for the user "King1986" with password "weakCocc".
Часть строки из лога. Логи пока общедоступны.
+124
@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
+130
DECLARE (A, B INIT ((5)0,(5)1)) DIM (0:9) FLOAT;
+127
unfoldr (\b -> fmap (const . (second $ drop 1) . break (==' ') $ b) . listToMaybe $ b)
+126
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
+127
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.
+134
http://www.freepascal.ru/forum/viewtopic.php?t=9463&p=77107
ебаный пиздец.
ебаный пиздец.
+124
http://www.youtube.com/watch?v=swAEcc9JX4Q
(автор пишет троян на дельфях, и комментирует)
убила фраза:
"...реестр[...]. Так как в линуксе все по-другому, Вы должны быть уверены, что ваша программа запускается на Windows"
убила фраза:
"...реестр[...]. Так как в линуксе все по-другому, Вы должны быть уверены, что ваша программа запускается на Windows"
+86
load 'regex'
f=: 13 : '((+./-.(1 2 3 4{y))+.(0{y))*.(5{y)'
a =: #:i.2^6
b =: f"(1) a
cc =: ":|:(|:a),(|:b)
cc1 =: (32+i.32){cc
cc2 =: (i.32){cc
ccc=:|:(|:cc2),(1 32$'*'),(|:cc1)
ccc=:('\*';'&&') rxrplc"1 (ccc)
(,&'\\ \hline')"1 (' ';' & ')rxrplc"1 (ccc)
Вот он, первый говнокод на J