Тварини-компютерники

[Grandhaker]

Мій кіт справжній хакер :
Сидить в моєму кріслі
Користується клавіатурою та мишею
Ну і іноді на віндузятнику коли я практикуюсь в візуал бацік(Я ЗА ПІНГВІНІВ!!!!,бацік мені для інформатики потрібен)намагається щось своє написати.
Але зараз,не користується компютером(нарешті зрозумів що це не його)
І тепер гризе RJ-45 кабель (в мене інтернет по типу "Ethernet",місцевого провайдера),особливо коли я забагато в інтернеті засиджуюсь.(заздрить)
А саме цікаве те,що він здогадався як я підєднаний до інтернету!
Всі в кого тварини теж мають високий хакерський IQ пишіть сюди.

[piktor]

Ну, кіт вважає, що програмувати на візуал васіку то є недобре. Ви спробуйте Haskell, побачите, як він зрадіє.

[Grandhaker]

Можливо,але я краще б на C++,або на якісь іншій мові(яка мала б зрозумілий синтаксис,була б кросплатформенною,та легко вчилась)Напевне спробую пітон.
Я десь чув про Haskell,але ніколи не бачив який там синиаксис.

[piktor]

Ясне діло, що синтаксис не зрозумілий, якщо мови не знати.
Ось вам приклад програми на хаскелі - конфіг мого xmonad:

Код: [Вибрати]

import XMonad

import XMonad.Util.EZConfig
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook

myWorkspaces = ["1-web","2-im","3-files","4-term","5-other","6-office","7-media"] ++ map show [8..9]

myPP = xmobarPP {
 ppTitle = xmobarColor "green"  "" . shorten 60,
 ppUrgent = xmobarColor "red"  "" . wrap "!" "!"
}

myLogHook = dynamicLogWithPP myPP

myManageHook = composeAll
    [ className =? "Emacs" --> doF (W.shift "5-other")
    , appName =? "xmessage" --> doFloat
    , className =? "Firefox" --> doF (W.shift "1-web")
    , appName =? "xterm" --> doF (W.shift "4-term")
    , appName =? "pidgin" --> doF (W.shift "2-im")
    , className =? "OpenOffice.org 3.0" --> doF (W.shift "6-office")
    , appName =? "gentoo" --> doF (W.shift "3-files")
    , appName =? "stardict" --> doFloat
    , className =? "Icedove-bin" --> doF (W.shift "1-web")
    , title =? "Інформація про користувача" --> doFloat
    , appName =? "pdmenu" --> doFloat
    , appName =? "aqualung" --> doF (W.shift "7-media")
    , appName =? "thunar" --> doF (W.shift "3-files")
    , title =? "Qalculate!" --> doIgnore
    , className =? "Gimp" --> doFloat
    , appName =? "Download" --> doFloat
    , className =? "Lazarus" --> doIgnore
    , className =? "Filezilla" --> doF (W.shift "3-files")
    , appName =? "bluefish" --> doF (W.shift "5-other")
    , appName =? "gmpc" --> doF (W.shift "7-media")
    ]

myLayouts = Full ||| Mirror tiled
  where
    tiled = Tall nmaster delta ratio
    nmaster = 1
    ratio = 1/2
    delta = 3/100

defaults = defaultConfig {
    terminal = "xterm",
    modMask = mod4Mask,
    workspaces = myWorkspaces,
    manageHook = myManageHook <+> manageDocks,
    logHook = myLogHook,
    layoutHook = avoidStruts myLayouts,
    normalBorderColor="white",
    focusedBorderColor="green"
}

main = xmonad $ withUrgencyHook NoUrgencyHook $
                    defaults `additionalKeysP`
                    [ ("M1-<F4>", kill)
                    , ("M-m", spawn "firefox")
                    , ("M-i", spawn "icedove")
                    , ("M-w", spawn "openoffice -writer -nologo")
                    , ("M-p", spawn "pidgin")
                    , ("M-d", spawn "wvdial")
                    , ("M-s", spawn "stardict")
                    , ("M-b", sendMessage ToggleStruts)
                    , ("M-S-s", spawn "import -window root /tmp/scr.png; a=`md5sum /tmp/scr.png | cut -c1-32`.png; mv /tmp/scr.png $a")
                    , ("M-a", spawn "aqualung")
                    , ("M-t", spawn "thunar")
                    , ("M-k", spawn "qalculate")
                    , ("M1-z", spawn "mpc prev")
                    , ("M1-x", spawn "mpc play")
                    , ("M1-c", spawn "mpc pause")
                    , ("M1-v", spawn "mpc stop")
                    , ("M1-b", spawn "mpc next")
                    , ("M1-s", spawn "mpc shuffle")
                    , ("M1-r", spawn "mpc repeat")
                    , ("M1-<Up>", spawn "mpc volume +5")
                    , ("M1-<Down>", spawn "mpc volume -5")
                    , ("C-m", spawn "ncmpc -c")
                    , ("M-z", spawn "filezilla")
                    , ("M-f", spawn "bluefish")
                    , ("M1-i", spawn "inkscape")
                    , ("M-g", spawn "gmpc")
                    ]
Покуривши трошки доки можна все зрозуміти.

[Grandhaker]

а як задаються змінні?

[piktor]

Ви не лякайтеся - я не програмую на Хаскелі, просто використовую Haskell configurable window manager - xmonad. А взагалі - www.haskell.org там все є.

[Grandhaker]

Я б краще мамі та коту компютер купив,та навчив би їх на Batch скрипти писати.
Вже дуже вони командувати любять.(обоє по гороскопу Леви)  

[Grandhaker]

Народ,що ні вкого не має розумних тварин?
В кого є пишіть,цікаво.

[Анонім]

У мене кіт любить телевізора дивитись, а ще за монітором, але ж тоді намагається й клавіатурую користуватись - то я його гоню.
Хочіа одного разу відкрив мені одну цікаву комбінацію клавіш у грі - яку я праавда не встиг підгледіти, але гра почала регулярно самозберігатись!

[Сергій Лисовенко]

Ото просунутий кіт
Блін, дурно я видалив халфу з компа: преба було завести кота і навчити шпілити - тоді можна було б і іграшку не зносити, і ділом займатись

[Ptashechka]

Ото просунутий кіт
Блін, дурно я видалив халфу з компа: преба було завести кота і навчити шпілити - тоді можна було б і іграшку не зносити, і ділом займатись

АаА!!!   а в мене кс1.6, а от кота нема((( Подаруйте хтось кошення  

[piktor]

АаА!!!   а в мене кс1.6, а от кота нема((( Подаруйте хтось кошення  

Так, воно виросте і з’їсть вас. Коти - тварини хижі, он мій ловив на льоту горобців.

[Сергій Лисовенко]

АаА!!!   а в мене кс1.6, а от кота нема((( Подаруйте хтось кошення  

Спізнилась з запитом...
Можете замовити кошеня на перед: наша кішка - любителька їх дарувати

[Анонім]

АаА!!!   а в мене кс1.6, а от кота нема((( Подаруйте хтось кошення  

Спізнилась з запитом...
Можете замовити кошеня на перед: наша кішка - любителька їх дарувати

У мене уже четверо правда всі проживаютьв західній Україні (Рівне)

[Сергій Лисовенко]

Амої до Києва дорогу знають
І взагалі, /me хоче познайомитись з дівчиною через кошеня