Practical SchemeShiro Kawai 7/3/2000åˆå‡ºã€3/29/2002æ›´æ–° ã¾ã‚ã¨ã‚Šã‚ãˆãšã‚«ãƒƒã‚³ã¯æˆ‘æ…¢ã—よã†ã€‚ラムダã¨ã‚„らもã€é–¢æ•°ãƒã‚¤ãƒ³ã‚¿ï¼‹ç’°å¢ƒãƒ‡ãƒ¼ã‚¿ ã¨ã„ã†ã“ã¨ã§ç´å¾—ã—よã†ã€‚ã—ã‹ã—ã€Schemeã®ãƒ«ãƒ¼ãƒ—構文(do)ã¯è¨±ã›ãªã„ãªã‚。 ã”ã¡ã‚ƒã”ã¡ã‚ƒã—ã¦ã‚‹ã—ã€é€”ä¸ã§è„±å‡ºã§ããªã„ã—。 Cã‚„Perlã®forã‚„whileã®æ–¹ãŒãšã£ã¨ä½¿ã„ã‚„ã™ã„ã。 ãˆ? doãªã‚“ã¦ä½¿ã‚ãªã„? ã˜ã‚ƒã‚ã©ã†ã‚„ã£ã¦ãƒ«ãƒ¼ãƒ—を書ãã‚“ã ? 消ãˆã‚‹ãƒ«ãƒ¼ãƒ— ç°¡å˜ã ã‘ã©ã€ã‚ˆãã‚ã‚Šãã†ãªä¾‹ã¨ã—ã¦ã€ã“ã‚“ãªã®ã‚’考ãˆã¦ã¿ã‚ˆã†ã€‚ 入力テã‚ストã®è¡Œæ•°ã‚’æ•°ãˆã‚‹é–¢æ•°count_linesを書ããŸã„。 Cã§æ›¸ãã¨ã™ã‚Œã°ã€ã“ã‚“ãªæ„Ÿã˜ã 。 /* 例1 */ int count_lines(void) { int count = 0, c; for (c=getchar(); c!=EOF; c=getchar()) { if (c == '\n') count+
{{#tags}}- {{label}}
{{/tags}}