Gaucheã§ã‚‚集åˆé–¢ä¿‚ã®é–¢æ•°ã‚’書ã„ã¦ã¿ãŸ - yasuhisa's blogã“ã“ã§Rを使ã£ã¦æ›¸ã„ãŸã‚„ã¤ã‚’Gaucheを使ã£ã¦æ›¸ã„ã¦ã¿ã¾ã—ãŸã€‚ã“ã£ã¡ã®ã»ã†ãŒç´ ç›´ã ãªã€‚å†å¸°ä½¿ã£ã¦ãƒªã‚¹ãƒˆæ“作ã¨ã‹ã¯ã¾ã‚ã„ã„ã‚“ã ã‘ã©ã€æ–‡å—列ã§å‡ºåŠ›ã™ã‚‹ãŸã‚ã®éƒ¨åˆ†ãŒæ³¥ã ã‘ã©ã€ã¾ã‚ã„ã„ã‹ã€‚ã¦ã‹ã€çµ„ã¿è¾¼ã¿é–¢æ•°ã«å†ªé›†åˆã‚’生æˆã™ã‚‹é–¢æ•°ãŒã‚ã‚‹ã¨ã‹ã™ã”ã™ãŽã‚‹ã‚“ã ã‘ã©ã€‚ ;;;集åˆæ—ã¨ã‹ã‚’書ã出ã™é–¢æ•° (define (write-set set) (if (list? set) (if (any (lambda (x) (list? x)) set) (string-append "{" (string-join (map (lambda (x) (write-set x)) set)",")"}") (string-append "{" ((lambda (x sep) (string-join (map x->string x) sep)) set ",") "}")) (string-append
{{#tags}}- {{label}}
{{/tags}}