[B! gauche] somemoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

somemo id:somemo

gaucheã«é–¢ã™ã‚‹somemoã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (5)

${{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}}

Gauche(Scheme) ã§ãƒ‡ãƒãƒƒã‚°ã‚’ã™ã‚‹4ã¤ã®æ–¹æ³• - higepon blog
Gauche ã§ã‚³ãƒ¼ãƒ‰ã‚’æ›¸ã„ã¦ã„ã‚‹ã¨ãã«ã‚³ãƒ¼ãƒ‰ãŒæ„å›³ã©ãŠã‚Šã«å‹•ã‹ãªã„ã“ã¨ãŒã‚ã‚Šã¾ã™ã€‚ãã®ã‚ˆã†ãªå ´åˆã«ãƒ‡ãƒãƒƒã‚°ã™ã‚‹æ–¹æ³•ã‚’4ã¤ç´¹ä»‹ã—ã¾ã™ã€‚ å‰æ ã¾ãš Gauche ã¯ãƒªãƒªãƒ¼ã‚¹ã•ã‚Œã¦ã„ã‚‹æœ€æ–°ç‰ˆã‚’ä½¿ã£ãŸæ–¹ãŒè‰¯ã„ã§ã—ã‚‡ã†ã€‚Linuxã®ãƒ‡ã‚£ã‚¹ãƒˆãƒªãƒ“ãƒ¥ãƒ¼ã‚·ãƒ§ãƒ³ã«ã‚ˆã£ã¦ã¯ãƒ‘ãƒƒã‚±ãƒ¼ã‚¸ãŒå¤ã„å ´åˆã‚ã‚Šã¾ã™ã€‚ ã¾ãŸScheme ã¯é–¢æ•°åž‹è¨€èªžãªã®ã§ã€ãƒ‡ãƒãƒƒã‚°ã®å˜ä½ã¯é–¢æ•°ï¼ˆæ‰‹ç¶šãï¼‰ã”ã¨ã«è¡Œã†ã“ã¨ãŒå¤šã„ã§ã™ã€‚ä¸€ã¤ä¸€ã¤ã®æ‰‹ç¶šããŒæ„å›³ã©ãŠã‚Šå‹•ã„ã¦ã„ã‚‹ã®ã‹ï¼Ÿã‚’èª¿ã¹ãªãŒã‚‰é€²ã‚ã‚‹ã®ãŒåŸºæœ¬ã«ãªã‚Šã¾ã™ã€‚ æ–¹æ³•1 print ãƒ‡ãƒãƒƒã‚° Gauche ã«ã¯ä»Šã®ã¨ã“ã‚ãƒ‡ãƒãƒƒã‚¬ãŒã‚ã‚Šã¾ã›ã‚“ã‹ã‚‰åŸºæœ¬çš„ã«ã¯ print ãƒ‡ãƒãƒƒã‚°ãŒãƒ¡ã‚¤ãƒ³ã¨ãªã‚Šã¾ã™ã€‚å˜ç´”ãª print ãƒ‡ãƒãƒƒã‚°ã‹ã‚‰è¦‹ã¦ã„ãã¾ã—ã‚‡ã†ã€‚ ä»¥ä¸‹ã®ã‚ˆã†ãª sum ã¨ã„ã†æ‰‹ç¶šãã§ print ãƒ‡ãƒãƒƒã‚°ã—ã¦ã¿ã¾ã—ã‚‡ã†ã€‚ (define (sum n) (if (= n 1) 1 (+ n
somemo 2013/06/10
gauche

scheme
ãƒªãƒ³ã‚¯
GaUnit::Tutorial.ja
Tutorial.ja $Id: Tutorial.ja 450 2008-06-02 08:29:25Z kou $ åŸºæœ¬ GaUnitã‚’ä½¿ã£ãŸå˜ä½“ãƒ†ã‚¹ãƒˆã§ã¯ãƒ†ã‚¹ãƒˆã‚’test.unit.test-caseã‚’ç¶™ æ‰¿ã—ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«å†…ã«æ›¸ãã¾ã™ã€‚ (define-module test-your-module (extend test.unit.test-case) (use your-module)) (select-module test-your-module) ... (provide "test-your-module") ä¸‹æº–å‚™ ã“ã“ã§ã¯ï¼Œ run-test.el ã‚’ä½¿ã£ã¦ãƒ†ã‚¹ãƒˆã‚’èµ·å‹•ã™ã‚‹ã‚ˆã†ã«ã—ã¾ã™ï¼Žrun-test.elã®è¨å®šã¯ README.jaã«æ›¸ã„ã¦ã„ã‚‹ã®ã§ãã¡ã‚‰ã‚’å‚è€ƒã«ã—ã¦ãã ã•ã„ï¼Ž run-test.elã‚’ä½¿ã‚ãªã„å ´åˆã¯ä»¥ä¸‹ã®symdiffãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã§ä»¥ä¸‹ã® ã‚ˆã†ã«
somemo 2013/05/26
scheme

gauche

test
ãƒªãƒ³ã‚¯
Gaucheã§ãƒ¦ãƒ‹ãƒƒãƒˆãƒ†ã‚¹ãƒˆã€‚ - rokujyouhitoma's blog
TDDã‚’æ±‚ã‚ã‚‹ã‚¨ãƒ³ã‚¸ãƒ‹ã‚¢ãŒå¤šã„ã®ã§ã€gaucheã§ã®ãƒ¦ãƒ‹ãƒƒãƒˆãƒ†ã‚¹ãƒˆä¾‹ã€‚ ;;ãƒ†ã‚¹ãƒˆå¯¾è±¡ (define (proc1 a b c) (if (and (<= a b)(<= a c)) (+ (proc2 b)(proc2 c)) (proc1 b c a))) (define (proc2 x) (* x x)) #| ä»¥ä¸‹ãƒ¦ãƒ‹ãƒƒãƒˆãƒ†ã‚¹ãƒˆä¾‹ã€‚ |# ;;ãƒ†ã‚¹ãƒˆãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’èªã¿è¾¼ã‚€ (use gauche.test) ;;ãƒ†ã‚¹ãƒˆã‚’ã‚¹ã‚¿ãƒ¼ãƒˆ (test-start "proc1 test") ;;ãƒ†ã‚¹ãƒˆç¾¤ã®åå‰ä»˜ã‘ã€‚ (test-section "test group 1") ;;ãƒ†ã‚¹ãƒˆé …ç›® (test* "proc1 13" 13 (proc1 1 2 3)) (test* "proc1 25" 25 (proc1 2 4 3)) (test* "proc1 41" 41 (proc1 5
somemo 2013/05/26
gauche

tdd
ãƒªãƒ³ã‚¯
scheme - traceã¨slib : 404 Blog Not Found
2006å¹´04æœˆ16æ—¥01:22 ã‚«ãƒ†ã‚´ãƒªLightweight LanguagesTips scheme - traceã¨slib ã²ã’ã½ã‚“ã«åŠ©ã‘èˆŸã‚’å‡ºãã†ã¨ã—ã¦éé›£ã—ã‹ã‘ãŸã®ã§å‚™å¿˜éŒ²ã€‚ ã²ã’ã½ã‚“ OSã¨ã‹ä½œã£ã¡ã‚ƒã†ã‹Mona- - SICPã‚’èªã‚‚ã† - (3) 1ç« - æ‰‹ç¶šãã«ã‚ˆã‚‹æŠ½è±¡ã®æ§‹ç¯‰(1-30ãƒšãƒ¼ã‚¸) å†å¸°çš„ãªã®ã¯ã™ãè§£ã‘ã‚‹ã€‚ ;(ç•¥) åå¾©ãŒåˆ†ã‹ã‚‰ãªã„ã€‚ traceã™ã‚Œã°ã„ã„ã˜ã‚ƒã‚“ã€ã¨æ€ã£ã¦ã€å®Ÿä¾‹ã‚’ã“ã•ãˆã‚ˆã†ã¨ã—ã¦ã€æ‰‹å…ƒã«scheme implementationãŒãªã„ã“ã¨ã«æ°—ãŒã¤ãã€ã•ãã£ã¨gaucheã‚’ã‚¤ãƒ³ã‚¹ãƒˆãƒ¼ãƒ«ã—ã¦....ã‚ã‚Œ?traceãŒãªã„!? ãã†ã€‚å®Ÿã¯ç§ãŒschemeã‚’ã¡ã‚ƒã‚“ã¨ä½¿ã£ã¦ãŸã®ã¯ã‚‚ã†20å¹´å‰ã€‚ãã®é ƒã¯ã™ã§ã«äººæ§˜ãŒç”¨æ„ã—ã¦ã„ãŸç’°å¢ƒã§ä½œæ¥(ã¨ã„ã†ã‹æŽˆæ¥)ã—ã¦ã„ãŸã®ã§ã€traceãŒæ¨™æº–ã§ãªã„ã“ã¨ãªã©ã™ã§ã«GCã®å½¼æ–¹ã«ã™ã£ã¨ã‚“ã§ã„ãŸã®ã§ã‚ã£ãŸã€‚ ã–ãã£ã¨æ¤œ
somemo 2013/05/25
gauche

scheme

slib

trace
ãƒªãƒ³ã‚¯
trace/untrace for Gauche
skimuã•ã‚“ãŒGGCãƒ©ã‚¤ãƒ–ãƒ©ãƒªã¨ã—ã¦å…¬é–‹ã•ã‚Œã¦ã„ã‚‹ã‚‚ã®ã®ä¸ã«ã‚ã‚‹trace/untraceã‚’ é•·å¹´ã€ä½¿ã„æ…£ã‚ŒãŸChez Scheme é¢¨ã«æ”¹é€ ã—ã¾ã—ãŸã€‚ ã‚³ãƒ¼ãƒ‰ã‚’å…¬é–‹ã•ã‚Œã¦ã„ã‚‹skimuã•ã‚“ã«æ„Ÿè¬ç”³ã—ä¸Šã’ã¾ã™ã€‚ ä½¿ã„æ–¹ï¼š(Gauche/Winã®å ´åˆï¼‰ å…±æœ‰ãƒ•ã‚©ãƒ«ãƒ€ãƒ¼ã€€gauche\share\gauche\0.9\lib\gaucheã€€ã«trace.scmã‚’ä¿å˜ã—ã¦ãã ã•ã„ã€‚ (use gauche.trace) ã§å‘¼ã³å‡ºã—ã¾ã™ã€‚ (trace)ç¾åœ¨ã€ãƒˆãƒ¬ãƒ¼ã‚¹ä¸ã®é–¢æ•°ã‚’ãƒªã‚¹ãƒˆã§è¡¨ç¤ºã—ã¾ã™ã€‚ (trace f) fã‚’ãƒˆãƒ¬ãƒ¼ã‚¹ãƒªã‚¹ãƒˆã«åŠ ãˆã¾ã™ã€‚ (trace f1 f2 ...fn) f1...fnã‚’ãƒˆãƒ¬ãƒ¼ã‚¹ãƒªã‚¹ãƒˆã«åŠ ãˆã¾ã™ã€‚ (untrace) ãƒˆãƒ¬ãƒ¼ã‚¹ä¸ã®é–¢æ•°ã‚’ã™ã¹ã¦è§£é™¤ã—ã¾ã™ã€‚ (untrace f) fã‚’ãƒˆãƒ¬ãƒ¼ã‚¹ãƒªã‚¹ãƒˆã‹ã‚‰é™¤å¤–ã—ã¾ã™ã€‚ (untrace f1 f2
somemo 2013/05/22
gauche
ãƒªãƒ³ã‚¯
1