2011-02-01ãã1ã¶æéã®è¨äºä¸è¦§
ãã¼ãã¤ã³ããã¦ç´æ¥å¼ã¶ã¨(error "pulldown-width accessing a non-pulldown") anything-call-sourceçµç±ã ã¨(wrong-type-argument arrayp nil)ã§ç´åãpulldown-width(nil) ãæä¸ã (追è¨) ä¸ç¬ï¼æ®éã«anythingããã ãã§(wrong-type-argument arrayp nâ¦
(rnrs records syntactic)ã¨srfi-17ãçµã¿åããã¦ä½¿ãããã£ããã ãã©ï¼ã©ããæåã§setterãset!ããªããã°ãªããªãããã ã£ãã®ã§ï¼ãã¯ãã®åå¼·ã¤ãã§ã«setterãset!ãã¦ããããã®ãæ¸ããï¼ æåã¯æç¶ãã§æ¸ãã¦define-record-typeã®å¾ã«ç½®ããããªâ¦
æ¥ãçµã£ã¦ããã®ã§ããè¦ãï¼ ãµã¤ãããMac OSåãã£ã½ãã®ããã¦ã³ãã¼ã å±éãã¦/Applications/ã«ã¶ã¡è¾¼ã "/Applications/Racket v5.0.2/bin"ã«PATHãéã ããã§plt-r6rsã§R6RSãåãï¼ãã ï¼ããã ã¨"/Applications/Racket v5.0.2/man"ã¨ãã¬ã³ç¡è¦â¦
Haskellã®scanlã«ç¸å½ãããã®ããªãã£ãã®ã§æ¸ããï¼ (ä¿®æ£ 9:24) (use gauche.collection) (define (scan-with-iterator+builder f seed end? next add! get) (let loop ((seed seed)) (add! seed) (if (end?) (get) (loop (f (next) seed))))) (define-meâ¦