[B! kazu-yamamoto] IMAKADOã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

IMAKADO id:IMAKADO

kazu-yamamotoã«é–¢ã™ã‚‹IMAKADOã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (8)

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

${{author_name}}$
{{author_name}}{{created}}
{{ #comment }}{{ comment }}{{ /comment }}
- {{ label }}

${{author_name}}$

{{{comment_expanded}}}

{{label}}

{{#is_bookmark}}ãƒªã‚¹ãƒˆ{{/is_bookmark}}{{^is_bookmark}}ãƒªãƒ³ã‚¯{{/is_bookmark}}

æ£è¦è¡¨ç¾ã‚’è¶…ãˆã‚‹ - ã‚ã©ã‘ãªã„è©±
ã¾ãšã¯ã€Audrey ã•ã‚“ãŒè¨€ã£ãŸ Haskell ã®æ®ºã—æ–‡å¥ã‚’æ€ã„å‡ºã—ã¦é ‚ããŸã„ã€‚ æ£è¦è¡¨ç¾ãƒ™ãƒ¼ã‚¹ã®ãƒ‘ãƒ¼ã‚µã¯ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹ã—ã«ãã„ã®ã«æ°—ã¥ã„ãŸï¼Ÿ Parsec ã‚’ä½¿ã£ã¦ 15åˆ†ã§ Perl6 ã®å®Œå…¨ãªãƒ‘ãƒ¼ã‚µã‚’æ›¸ãæ–¹æ³•ã‚’å‹‰å¼·ã—ã¾ã—ã‚‡ã†ã€‚ 15åˆ†ã¨ã„ã†ã®ã¯èª‡å¼µãŒå…¥ã£ã¦ã„ã‚‹ã¨æ€ã†ãŒã€æ£è¦è¡¨ç¾ãŒä¿å®ˆã—ã«ããã€Haskell ã® Parsec ã¯å¼·åŠ›ã§ä¿å®ˆã—æ˜“ã„ã®ã¯äº‹å®Ÿã ã€‚ãã®ç†ç”±ã‚’ Perl ã¨ Haskell ã®ã‚³ãƒ¼ãƒ‰ã‚’ç¤ºã—ãªãŒã‚‰èª¬æ˜Žã—ã¦ã¿ãŸã„ã¨æ€ã†ã€‚ Perl ã‚’æ„›ã™ã‚‹æ–¹ã«ï¼šã“ã®è¨˜äº‹ã¯ Perl ã‚’æ”»æ’ƒã™ã‚‹ãŸã‚ã«æ›¸ã„ãŸã®ã§ã¯ãªã„ã€‚Perl ã‚’é¸ã‚“ã ã®ã¯ã€æ£è¦è¡¨ç¾ã‚’åºƒã‚ãŸè¨€èªžã§ã‚ã‚Šã€åƒ•ãŒãã‚Œãªã‚Šã« Perl ã®ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã‘ã‚‹ãŸã‚ã§ã‚ã‚‹ã€‚ã“ã®è¨˜äº‹ã®ç›®çš„ã¯ã€æ£è¦è¡¨ç¾ã‚ˆã‚Šã‚‚é–¢æ•°åž‹ãƒ‘ãƒ¼ã‚µãƒ¼(Parsec)ã®æ–¹ãŒå„ªã‚Œã¦ã„ã‚‹ã¨ç¤ºã™ã“ã¨ã ã€‚ ä¾‹é¡Œ ã“ã®è¨˜äº‹ã§ã¯ä¾‹é¡Œã¨ã—ã¦ã€IPv4 ã‚¢ãƒ‰ãƒ¬ã‚¹ã‚’è§£æžã™ã‚‹é–¢æ•°ã‚’æ›¸ã
IMAKADO 2009/03/11
haskell

parsec

kazu-yamamoto
ãƒªãƒ³ã‚¯
æœ€é«˜ã®Haskellå…¥é–€æ›¸ - ã‚ã©ã‘ãªã„è©±
è¼ªè¬›ã§ã€ŒProgramming in Haskellã€ã‚’ã‚ˆã†ã‚„ãèªã¿çµ‚ãˆã¾ã—ãŸã€‚ã“ã®æœ¬ã¯ã€æœ€é«˜ã®Haskellå…¥é–€æ›¸ã¨ã„ã£ã¦é–“é•ã„ãªã„ã§ã—ã‚‡ã†ã€‚ Programming in Haskell ä½œè€…: Professor Graham Huttonå‡ºç‰ˆç¤¾/ãƒ¡ãƒ¼ã‚«ãƒ¼: Cambridge University Pressç™ºå£²æ—¥: 2007/01/18ãƒ¡ãƒ‡ã‚£ã‚¢: ãƒšãƒ¼ãƒ‘ãƒ¼ãƒãƒƒã‚¯è³¼å…¥: 2äºº ã‚¯ãƒªãƒƒã‚¯: 67å›žã“ã®å•†å“ã‚’å«ã‚€ãƒ–ãƒã‚° (22ä»¶) ã‚’è¦‹ã‚‹ ä¸€ç·’ã« Haskell ã®æœ¬ã‚’ä½•ã‹èªã‚‚ã†ã¨ã„ã†è©±ãŒã€å‹é”ã¨ã®é–“ã§å‡ºãŸã¨ãã€æœ€åˆã¯ã€ŒThe Craft of Functional Programmingã€ã«ã—ã‚ˆã†ã‹ã¨æ€ã£ã¦ã„ã¾ã—ãŸã€‚ãŸã ã€å‡ºç‰ˆç¤¾ã®äººã‹ã‚‰ã€ŒProgramming in Haskellã€ã‚’å‹§ã‚ã‚‰ã‚ŒãŸã“ã¨ãŒã‚ã£ãŸã®ã§ã€äºŒå†Šã‚’å‹é”ã«æç¤ºã—ãŸã¨ã“ã‚ã€ç›´æ„Ÿã§ã€ŒProgramming in Has
IMAKADO 2008/12/25
haskell

book

kazu-yamamoto
ãƒªãƒ³ã‚¯
å®Ÿè·µçš„ãª Haskell ã®æœ¬ - ã‚ã©ã‘ãªã„è©±
Perl6 ã¯ä½•å¹´çµŒã£ã¦ã‚‚æ£å¼ã«ãƒªãƒªãƒ¼ã‚¹ã•ã‚Œã¾ã›ã‚“ã€‚ãã‚“ãª Perl6 ã‚’ Audrey Tang ã•ã‚“ã¯ã€ãŸã£ãŸã®æ•°ãƒ¶æœˆã§ä½œã‚Šã¾ã—ãŸã€‚ãã®å®Ÿè£…ã¯ Pugs ã¨å‘¼ã°ã‚Œã¦ã„ã¾ã™ã€‚çŸæœŸé–“ã®é–‹ç™ºã‚’å¯èƒ½ã«ã—ãŸç§˜å¯†å…µå™¨ã¯ Haskell ã§ã™ã€‚ ãã® Audrey ã•ã‚“ãŒã€2006å¹´ã«æ—¥æœ¬ã§ Haskell ã«ã¤ã„ã¦èª¬æ˜Žã—ã¦ãã‚Œã¾ã—ãŸ(è³‡æ–™)ã€‚æ®‹å¿µãªãŒã‚‰ã€ãã®ã“ã‚ã®åƒ•ã¯ Haskell ã«èˆˆå‘³ãŒãªã‹ã£ãŸã®ã§ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ«ã¯å—ã‘ã¦ã„ã¾ã›ã‚“ãŒã€ãã®æ¦‚è¦ã«ã¯ã“ã†æ›¸ã‹ã‚Œã¦ã„ã¾ã™ã€‚ ã‚³ãƒ¼ãƒŠãƒ¼ã‚±ãƒ¼ã‚¹ã‚’æŽ¢ã™ã®ã«ãƒ¦ãƒ‹ãƒƒãƒˆãƒ†ã‚¹ãƒˆã‚’æ›¸ãã®ã«ç–²ã‚ŒãŸï¼Ÿ QuickCheck ã‚’ä½¿ã£ã¦ã‚³ãƒ³ãƒ”ãƒ¥ãƒ¼ã‚¿ã«æ›¸ã‹ã›ã¡ã‚ƒã„ã¾ã—ã‚‡ã†ã€‚æ£è¦è¡¨ç¾ãƒ™ãƒ¼ã‚¹ã®ãƒ‘ãƒ¼ã‚µã¯ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹ã—ã«ãã„ã®ã«æ°—ã¥ã„ãŸï¼Ÿ Parsec ã‚’ä½¿ã£ã¦ 15åˆ†ã§ Perl6 ã®å®Œå…¨ãªãƒ‘ãƒ¼ã‚µã‚’æ›¸ãæ–¹æ³•ã‚’å‹‰å¼·ã—ã¾ã—ã‚‡ã†ã€‚ãƒ‡ãƒƒãƒ‰ãƒãƒƒã‚¯ã‚„ãƒ¬ãƒ¼ã‚¹ã‚³ãƒ³ãƒ‡ã‚£ã‚·ãƒ§ãƒ³ã¯ã‚‚ã†ã†ã‚“ã–ã‚Šï¼Ÿ STM
IMAKADO 2008/12/25
haskell

book

kazu-yamamoto
ãƒªãƒ³ã‚¯
https://kazu-yamamoto.hatenablog.jp/entry/20080401/1207032525
IMAKADO 2008/04/04
performance

c

algorithm

kazu-yamamoto
ãƒªãƒ³ã‚¯
Emacs Lisp ã¨ç·ç§°é–¢æ•° - ã‚ã©ã‘ãªã„è©±
åƒ•ã¯ Lisper ã§ã™ãŒã€ã€ŒLisp ã§ã¯ã€ãƒžã‚¯ãƒã‚’æ›¸ã‘ã°ãªã‚“ã§ã‚‚ã§ãã‚‹ã€ã¨ã„ã†ä¸»å¼µã«ã¯ã€ã‹ãªã‚Šç–‘å•ã‚’æŒã£ã¦ã„ã¾ã—ãŸã€‚ ãŸã¨ãˆã°ã€ã€ŒEmacs Lisp ã§ç·ç§°é–¢æ•°ã‚’å°Žå…¥ã™ã‚‹ã“ã¨ãªã‚“ã¦ã§ããªã„ã€ã¨æ€ã£ã¦ã„ãŸã®ã§ã™ã€‚ã—ã‹ã—ã€ä»Šæ—¥ã²ã‚‰ã‚ã„ã¦ã€è©¦ã—ã«ã“ã‚“ãªã‚³ãƒ¼ãƒ‰ã‚’æ›¸ãã¾ã—ãŸã€‚ (defmacro defmethod (func <type> args &rest body) `(let ((type (intern-soft (concat (substring (symbol-name ',<type>) 1 -1) "p")))) (unless (fboundp ',func) (fset ',func (lambda (data &rest params) (catch 'loop (dolist (predicate-lambda (get ',func 'method)) (if
IMAKADO 2008/02/09
åž‹

kazu-yamamoto

elisp

macro
ãƒªãƒ³ã‚¯
my-defstruct - ã‚ã©ã‘ãªã„è©±
Emacs ã§ (require 'cl) ã¨ã™ã‚‹ã¨ defstruct ãŒä½¿ãˆã‚‹ã‚ˆã†ã«ãªã‚Šã¾ã™ã€‚ã¡ã‚‡ã£ã¨èª¿ã¹ã¦ã¿ã¾ã—ãŸã€‚ å¤§ããªãƒžã‚¯ãƒã§ç†è§£ã™ã‚‹ã®ã¯å›°é›£ Common Lisp ã® defstruct ãªã®ã§ã€getter ã¯ã‚ã‚‹ãŒã€setter ãŒãªã„ ã¨ã„ã†è¨³ã§ã€è‡ªåˆ†ã§å®Ÿè£…ã—ã¦ã¿ã¾ã—ãŸã€‚ (defun my-keyword-number-pair (spec) (let ((len (length spec)) key ret) (dotimes (i len (nreverse ret)) (setq key (intern (concat ":" (symbol-name (car spec))))) (setq ret (cons (cons key i) ret)) (setq spec (cdr spec))))) (defmacro my-defstruct (type
IMAKADO 2008/02/09
defstruct

kazu-yamamoto

elisp
ãƒªãƒ³ã‚¯
Emacs Lisp ã®ãƒ‘ã‚¿ãƒ¼ãƒ³ - ã‚ã©ã‘ãªã„è©±
ãƒ‡ã‚¶ã‚¤ãƒ³(è¨è¨ˆ)ãƒ‘ã‚¿ãƒ¼ãƒ³ã¨ã„ã†ç¨‹ã®ã“ã¨ã¯ãªã„ã€Emacs Lisp ã®ãƒ‘ã‚¿ãƒ¼ãƒ³ã‚’æ€ã„ã¤ãã¾ã¾ã«æ›¸ãã¾ã™ã€‚å¿ƒã¯ã€ é«˜éšŽé–¢æ•°ã‚’æ›¸ã“ã† ãƒžã‚¯ãƒã‚’æ›¸ã“ã† ã§ã™ã€‚ mapcar mapcar ã¯ã€å¼•æ•°ã«é–¢æ•°ã‚’ã¨ã‚‹é«˜éšŽé–¢æ•°ã®ã‚ˆã„ä¾‹ã§ã™ã€‚ãƒªã‚¹ãƒˆã‚’å–ã‚Šã€ãã‚Œãžã‚Œã®å€¤ã‚’åŠ å·¥ã—ã¦ã€æ–°ã—ã„ãƒªã‚¹ãƒˆã‚’è¿”ã™ãƒ‘ã‚¿ãƒ¼ãƒ³ã®ã¨ãã¯ã€mapcar ã‚’ä½¿ã„ã¾ã—ã‚‡ã†ã€‚ (mapcar '1+ '(1 2 3 4)) ;; => (2 3 4 5) mapcar ã«ã¯ã€è‡ªåˆ†ã®ã•ã›ãŸã„ä»•äº‹ã‚’å®Ÿè£…ã—ãŸé–¢æ•°ã‚’æ¸¡ã—ã¾ã—ã‚‡ã†ã€‚ (defun f(x) (1+ (* x 2))) (mapcar 'f '(1 2 3 4)) ;; => (3 5 7 9) mapcar ã‚’é€£çµã—ã¾ã—ã‚‡ã†ã€‚(ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆæŒ‡å‘ã§ã®ãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ã®é€£çµã«ä¼¼ã¦ã„ã¾ã™ãã€‚) (mapcar '1+ (mapcar (lambda(x) (* x 2)) '(1 2 3 4)
IMAKADO 2008/02/09
kazu-yamamoto

elisp

patern
ãƒªãƒ³ã‚¯
Emacs Lisp ã®ãƒ€ãƒ¡ãªã¨ã“ã‚ - ã‚ã©ã‘ãªã„è©±
Emacs Lisp ã‚’ã“ã‚ˆãªãæ„›ã™ã‚‹åƒ•ã®ç›®ã‹ã‚‰ã€Emacs Lisp ãŒãƒ€ãƒ¡ã ã¨æ€ã†ã¨ã“ã‚ã‚’ã¾ã¨ã‚ã¦ãŠãã¾ã™ã€‚ æ–‡åŒ–çš„ãªå•é¡Œ Emacs Lisper ã®å¤šãã¯ã€Lisp ãŒå¥½ãã§ä½¿ã£ã¦ã„ã‚‹ã®ã§ã¯ãªãã€Emacs ãŒå¥½ãã ã‹ã‚‰ã—ã‹ãŸãªãä½¿ã£ã¦ã„ã‚‹ã®ã§ã—ã‚‡ã†ã€‚æœ¬å½“ã¯ C ã§æ›¸ããŸã„ã®ã«ã€ç„¡ç†ã—ã¦ Lisp ã‚’åˆ©ç”¨ã—ã¦ã„ã‚‹æ„Ÿã˜ã§ã™ã€‚ ãã®ãŸã‚ã€Emacs ã«ä»˜ã„ã¦ãã‚‹ Emacs Lisp ã®ã‚³ãƒ¼ãƒ‰ã¯ã€Lisp ã‚‰ã—ããªã„ã‚‚ã®ãŒã»ã¨ã‚“ã©ã§ã™ã€‚å˜ã« C ã§ã®ç™ºæƒ³ã‚’ Lisp ã§è¡¨ç¾ã—ã¦ã„ã¾ã™ã€‚ ã“ã‚Œã‚‰ã®ã‚³ãƒ¼ãƒ‰ã¯ã€èªã¿ã“ãªã›ãªã„ãã‚‰ã„é–¢æ•°ãŒå¤§ããã€å‰¯ä½œç”¨ã®ã‚ã‚‹éƒ¨åˆ†ã¨ãªã„éƒ¨åˆ†ãŒåˆ†é›¢ã•ã‚Œã¦ã„ã¾ã›ã‚“ã€‚ã¾ãŸé«˜éšŽé–¢æ•°ã‚’ç”¨ã„ã¦ã€ãƒ‡ãƒ¼ã‚¿æ§‹é€ ã‚’èµ°æŸ»ã™ã‚‹ã‚³ãƒ¼ãƒ‰ã¨å®Ÿéš›ã«ä»•äº‹ã‚’ã™ã‚‹ã‚³ãƒ¼ãƒ‰ã‚’åˆ†é›¢ã™ã‚‹ã¨ã„ã†æ„è˜ã‚‚ä½Žã„ã‚ˆã†ã§ã™ã€‚ Google ã® MapReduceã¨ã„ã†è«–æ–‡ã®ãŠé™°ã§ã€Lisp ã®å†™åƒé–¢æ•°(map)ã¨ç•³è¾¼ã¿
IMAKADO 2008/02/09
kazu-yamamoto

elisp

emacs

yomimono

bad
ãƒªãƒ³ã‚¯
1