2009년 2월 27일 금요일

haskell 동영상 강의

Video Lectures: Lectures (in English) by Jürgen Giesl. About 30 hours in total, and great for learning Haskell. The lectures are 2005-SS-FP.V01 through 2005-SS-FP.V26. Videos 2005-SS-FP.U01 through 2005-SS-FP.U11 are exercise answer sessions, so you probably don't want those.

우왕국. http://www.haskell.org/haskellwiki/Tutorials 에서 찾은 링크인데 잠깐 들어보니 좋네. 딴나라 말이라 좀 난감하긴 한데 독일사람이 영어하는거라 좀 들을만 하다...(발음이야 좀 이상하지만 느리게 말해주는 편. 뭐 강의 뒤쪽가면 말이 빨라지거나 하진 않겠지....)

2009년 2월 26일 목요일

http://labs.mozilla.com/projects/bespin/

당장은 이딴거 관심 밖이지만 기억은 해두자.
협업 에디팅을 지원하는 에디터들 중에는 그나마 쓸만 할것 같은데
어쩌다 가끔 필요하긴 하니까..

추가.
가입하고 잠깐 써봤는데 절라 느리네.
한글입력이 안되는거 같기도 하고
되는지 안되는지 확인이 어려울 정도로 느린걸 보니 뭔가 좀 비정상인거 같은데

emacs 기반 개발환경을 제공하는 common lisp 로그라이크 엔진

RLX: a cross-platform graphical roguelike engine

emacs 를 저렇게도 활용하네.
스샷에 보이는 cell 모드가 이 http://www.emacswiki.org/emacs/CellMode 셀모드인가 아님 따로 만든건가.. 어쨌건 셀모드 사이트는 링크가 지금 죽은 상태.

그외 걸린 링크들도 그럴싸해보이길래 적어둔다.

소스는 아직 안받아보고 스샷만 구경한 상태..
그런데 플레이어 입장으로 보면 별로 재미있어 보이는 스샷은 아니네. 낄낄

2009년 2월 24일 화요일

haskell 로 간단한 소켓 서버와 클라이언트 제작 두번째

이전글 에서는 코드가 전체적으로 Socket 기반으로 돌아가는데 뭐랄까.. 이게 그다지 좋은 방법이 아닌가보다. haskell 의 경우 입출력이 Handle 을 통해서 이루어지게 디자인 되어있어서 Socket 을 바로 입출력에 쓰기엔 제공되는 api 들이 좀 난감한 면이 있다.

그래서 이전 코드에서 세션핸들러 함수들이 Socket 을 받던것을 Handle 을 받도록 수정해봤다. 그리고 핸들(소켓) 을 닫는 책임을 세션핸들러 쪽으로 옮겨버렸다... 세션함수 작성시 클로즈를 잊지말고 해야 하는 부담이 있긴 하지만 이게 좀더 유연할거 같다.

이건 서버쪽 소스


      펼쳐두기..
  -- haskell 에서 입출력을 하려면 소켓보다는 핸들이 좀더 나은것 같아서
-- 소켓 기반이었던 것을 핸들 기반으로 바꿨다. 소켓인 경우 소켓만으로
-- peer 를 알수 있지만 핸들은 좀더 추상화 된 놈이라.. 핸들을 다루는
-- 놈한테 peer 정보까지 인자로 넘기도록 했다.
import Prelude hiding (log)
import Network.Socket
import Control.Monad(liftM,forever)
import Control.Exception(finally)    
import Control.Concurrent(forkIO)
import System.IO    

serveTcp port f = do
  s <- socket AF_INET Stream defaultProtocol
  bindSocket s (SockAddrInet port iNADDR_ANY)
  listen s maxListenQueue
  forever $ do
    (child,from) <- accept s
    h <- socketToHandle child ReadWriteMode
    hSetBuffering h (BlockBuffering Nothing)
    forkIO $ f h from

-- 사용하지는 않지만 핸들 외에 SockAddr 도 받았다. 어쨌거나 peer 정보를
-- 알수 있다는거.
log :: Handle -> SockAddr -> IO ()
log h from = (forever $ hGetLine h >>= print) `finally` hClose h

main = withSocketsDo $ serveTcp 1818 log

이건 클라이언트쪽 소스


      펼쳐두기..
  import Network.Socket
import Control.Monad(liftM,forever)
import Control.Exception(finally)
import Control.Concurrent(threadDelay)
import System.IO

withTcp :: (String,PortNumber) -> (Handle->IO a) -> IO a
withTcp (ip,port) f = do
  a <- liftM (SockAddrInet port) (inet_addr ip)
  s <- socket AF_INET Stream defaultProtocol
  connect s a
  h <- socketToHandle s ReadWriteMode -- 소켓을 직접 다루는건 좀 빡시네. 핸들로 바꿔서 움직이는게 좀더 나은 방법인갑다
  hSetBuffering h (BlockBuffering Nothing) -- 버퍼링 모드.. 일단 블럭모드로
  f h                                      -- 핸들(소켓) 을 닫는것을 f 의 책임으로 넘겼다.

withServer = withTcp ("127.0.0.1",1818)

shootPackets :: Handle -> IO ()
shootPackets h = forever (shoot >> sleep) `finally` finalize
    where shoot    = hPutStrLn h "Hello" >> hFlush h
          sleep    = threadDelay 1000000
          finalize = hClose h
                      
main = withSocketsDo $ withServer shootPackets

haskell 로 간단한 소켓 서버와 클라이언트 제작

이건 서버 소스. serveTcp 가 핵심. 이 함수에 포트번호와 소켓핸들러 함수를 넘기면 된다.


      펼쳐두기..
  import Prelude hiding (log)
import Network.Socket
import Control.Monad(liftM,forever)
import Control.Exception(finally)    
import Control.Concurrent(forkIO)    

-- withTcp 의 서버쪽 버전. 에러처리가 없으니 좀 허한데 테스트엔 문제
-- 없다.
serveTcp port f = do
  s <- socket AF_INET Stream defaultProtocol
  bindSocket s (SockAddrInet port iNADDR_ANY)
  listen s maxListenQueue
  forever $ do
    (child,from) <- accept s
    forkIO $ f child `finally` sClose child

-- 걍 화면에 출력만 하자.
log :: Socket -> IO ()
log sock = forever $ do
             buf <- recv sock 1024
             print (sock,buf)

main = withSocketsDo $ serveTcp 1818 log
       


-- 한가지 적어두자면, 원래 serveTcp 안에 forkIO 를 두지 않고
-- serveTcpMulti 란 함수를 만들어서 (forkIO . f) 를 serveTcp 로
-- 넘겨주는 식으로 만들었었다. 이런식으로 짜게 되면 serveTcp 가
-- 쓰레드방식에 대해서 독립적으로 돌아가니까.. 그런데 마지막에 child
-- 소켓을 닫아주는 처리가 좀 애매해지더라. forkIO 를 띄운 직후에
-- sClose 해버리면 자식쓰레드쪽에선 소켓이 닫혀버리니까..
--
-- 이걸 어떻게 이쁘게 해보려고 좀 고민해봤는데 좋은 방법이 안떠오르네.
-- 그런데 써둔걸 보니 나중에 읽어보면 뭔소린지 모르겠군..

이건 클라이언트 소스


      펼쳐두기..
  import Network.Socket
import Control.Monad(liftM,forever)
import Control.Exception(finally)
import Control.Concurrent(threadDelay)

-- tcp 연결해서 f 에 넘기고 그 결과를 리턴. 흔한 with 류 함수
withTcp :: (String,PortNumber) -> (Socket->IO a) -> IO a
withTcp (ip,port) f = do
  a <- liftM (SockAddrInet port) (inet_addr ip)
  s <- socket AF_INET Stream defaultProtocol
  connect s a
  f s `finally` sClose s

-- 테스트서버는 위치가 고정이니 적당히 박았다.
withServer :: (Socket -> IO a) -> IO a
withServer = withTcp ("127.0.0.1",1818)

-- 패킷 쏘고 쉬고...
shootPackets :: Socket -> IO ()
shootPackets sock =
    forever $ do
      send sock "Hello"
      threadDelay 1000000
                      
main = withSocketsDo $ withServer shootPackets

으음... 이건 패킷이 너무 단순해서 별 의미는 없지만 위에 withTcp 나 serveTcp 는 자주 쓰일 함수들이라 적어둔다. 다음에는 현재 Socket 기반인것을 Handle 기반으로바꾸고.. 바이너리패킷을 쏘는걸 한번 만들어보고.. 그담엔 서로 주고받는걸 만들어보자...

2009년 2월 20일 금요일

MozRepl 자바스크립트 REPL 환경

웹개발은 전혀 모르고 자바스크립트도 마찬가지지만 자바스크립트가 REPL 스타일 개발이 된다길래 적어둔다. 언젠가 공부해야 할 상황이 오면 필요하겠지.

자바스크립트는 http://www.slash7.com/articles/2006/07/26/javascript-boot-camp-tutorial 보면 대강 어떤지 이해가 가겠더라. DOM 쪽 들어가면 좀 난감해지긴 하지만 ECMA script 자체는 존나 좋군.

2009년 2월 19일 목요일

netcat

으음.
netcat.. 존재를 알고는 있지만 막상 필요할때는 항상 까먹어서 걍 스크립트질하기 때문에 지금껏 써본적이 없는 놈. socat 은 처음알았네.

기억해두고 다음엔 좀 써먹어보자.

2009년 2월 17일 화요일

haskell 로 프로젝트 오일러의 22번 문제를 풀어봤다

-- http://projecteuler.net/index.php?section=problems&id=22

import Data.List(sort)
import Data.Char(ord)

-- 으험.. 스플릿 함수가 안보이네. 직접 만들어봤는데 좀 추해보인다.
split :: Char -> String -> [String]
split c s = split' [] s
    where split' acc [] = acc
          split' acc s  = let (tok, remains) = break (==c) s
                          in split' (tok:acc) (safeTail remains)
          safeTail []   = []
          safeTail x    = tail x

-- 문자열들을 받아서 , 로 스플릿 하고 앞뒤에서 한글자씩 잘라냈다.
-- 따옴표 제거
names s = map (tail . init) $ split ',' s

nth x = (ord x) - (ord 'A') + 1                          -- 'A' 에서 몇번째 문자냐
scoreName = sum . map nth                                -- 이름의 점수
scoreIndexedName (name,index) = (scoreName name) * index -- 점수에 인덱스 곱

solve input =
    let splitted = names input                  -- 쪼개고
        sorted   = sort splitted                -- 정렬하고
        indexed  = zip sorted [1..]             -- 인덱스붙여서
        scores   = map scoreIndexedName indexed -- 점수내고
    in sum scores                               -- 합

main = do
  input <- readFile "/tmp/h/names.txt"
  print $ solve input

2009년 2월 13일 금요일

앵밴드 매크로 인스크립션 도움말

몇달에 한번씩 로그라이크를 하는 편인데 앵밴드는 키를 여러번 눌러야 할 일이 많아서 매크로가 필수고 이걸 자꾸 까먹길래 여기 적어둔다.

출처는 http://www.thangorodrim.net/help/inscriptions.html 이곳.

A Really Quick Guide to Magic Inscriptions..

A Really Quick Guide to Magic Inscriptions

There are a number of special things you can inscribe (with the { command) on your equipment and inventory to make playing Angband more convenient.

Definitions

n is a number from 0-9

c is a command from the underlying command set. (Almost, but not completely, like the orginial command set, which uses some keymaps so you don't need to know that ; is the walk command, and such. See the help file command.txt for these.)

Inscriptions

!c - Ask for confirmation when you select this item to use with command c.

!* - Ask for confirmation when you select this item to use with any command.

@n - When you type n at a what object? prompt for any command, use this item. (If more than one item has this inscription, it uses the first one.)

@cn - As above, but only when selecting objects for command c.

For both of these, if the first matching inscription in your inventory is an illegal choice, it will stop there, not go on to a legal one.

These two are especially useful in macros, since they allow you to make a macro to use rod 2, for instance, and not have to worry about what inventory slot it is currently in. Or, for making macros of spells, it causes the macro to fail if all your copies of the appropriate book are destroyed, moving a different book into the same slot.

^c - While this item is equipped, ask for confirmation of command c.

=g - Pick this item up when you step on it.

Examples

@q1: Use this as item 1 when quaffing a potion.
@m1!d!k!v: Use this as item 1 when casting a spell. Ask for confirmation before dropping, destroying, or throwing the item. This is probably your first spellbook.
@m1@b1@G1!d!k!v: As above, but it is also item 1 when browsing your spellbooks or gaining new spells.
@w0^;^.: Use this as item 0 when weilding. Ask for confirmation before walking (;) or running (.) with this item equipped. This is probably your shovel or pick. (The game attaches the command w0 to the 'X' key by default, so you can swap between your shovel and weapon by inscribing both with @w0.)
@z0!*: Use this as item 0 when zapping a rod. Ask for confirmation before doing anything with this item, including zapping it. This is probably your Rod of Recall.
!*!*!*!*!*: Ask for confirmation five times before doing anything with this item. I don't know what this is, but you're worried about accidents.

예를 들어 현재 플레이중인 프리스트는 위 예제처럼 첫번째 마법책을 @p1!d!k!v 이라고 해놓고 매크로에서 f12 를 누르면 p1fp1gp1aR\r 를 실행하게 해서 그지역에 쓸쑤있는 탐지마법들을 뿌리고 마나 회복까지 끝내도록 해뒀다..

매크로에 리턴을 포함시키려면 \r 쓴다는거.. 나중에 다시 하려고 하면 기억 못하겠지.

2009년 2월 11일 수요일

haskell-mode 에서 ^J 가 찍혀대는 문제 해결

http://www.nabble.com/problem-with-echo-prompting-in-ghci-(visible-in-emacs)-td20451779.html

ghc 6.10.1 로 올리고 haskell-mode 도 올리고 보니 이런 문제가 생기네.
적당히 구글링해서 해결.

혹시나 내용백업해둔다.

펼쳐두기..

헤헤헤헤헤헤헤헤헤헤헤헤헤헤헤헤헤헤헤헤