[B! scheme] kzfmã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯

kzfm id:kzfm

schemeã«é–¢ã™ã‚‹kzfmã®ãƒ–ãƒƒã‚¯ãƒžãƒ¼ã‚¯ (13)

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

/dev/randomã‹ã‚‰èªã¿è¾¼ã‚€ãƒ—ãƒã‚°ãƒ©ãƒ - ã¿ãšã´ãƒ¼æ—¥è¨˜
30åˆ†ãƒ—ãƒã‚°ãƒ©ãƒ ã€ãã®688ã€‚/dev/randomã‹ã‚‰èªã¿è¾¼ã‚€ãƒ—ãƒã‚°ãƒ©ãƒ ã€‚ èžãã¨ã“ã‚ã«ã‚ˆã‚‹ã¨/dev/randomã¯ç„¡é™ã«ä¹±æ•°ãŒæ›¸ã„ã¦ã‚ã‚‹(ã‚ˆã†ã«è¦‹ãˆã‚‹)ãƒ•ã‚¡ã‚¤ãƒ«ã‚‰ã—ã„ã§ã™ã€‚ èžã„ãŸã“ã¨ã¯ã‚ã£ã¦ã‚‚è©¦ã—ãŸã“ã¨ãŒãªã„ã®ã§ã€èªã¿è¾¼ã‚€ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’ä½œã£ã¦ã¿ã¾ã—ãŸã€‚æ•°å—ã‚’å»¶ã€…ã¨è¡¨ç¤ºã•ã‚Œã¦ã‚‚å›°ã‚‹ã®ã§é©å½“ãªå›žæ•°ã§æ‰“ã¡åˆ‡ã£ã¦ã€ãã‚Œãžã‚Œã®å€¤ãŒä½•å›žå‡ºç¾ã—ãŸã‹ã‚’ã‚«ã‚¦ãƒ³ãƒˆã—ã¦ã¿ã¾ã—ãŸã€‚ ä½¿ã„æ–¹ $ gosh random.scm 1 31 2 28 3 35 ... 253 32 254 33 255 41 ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ #! /opt/local/bin/gosh ;; -*- mode:scheme; coding:utf-8 -*- ;; ;; random.scm - ;; ;; Copyright(C) 2009 by mzp ;; Author: MIZUNO Hiroki / mzpppp at
kzfm 2009/11/04
scheme
ãƒªãƒ³ã‚¯
è³‡æ–™ - cranebirdã®æ—¥è¨˜
http://wiki.monaos.org/pukiwiki.php?Scheme MonaOS id:higepon ã•ã‚“ã® MonaOS/Scheme ã‚·ã‚§ãƒ«ã®å¤§è¨ˆç”»ã€‚ http://practical-scheme.net/wiliki/wiliki.cgi?Rui Gauche ã®ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®èªã¿æ–¹ã€‚Gauche ãƒãƒƒã‚«ãƒ¼ã€‚ http://sbcl-internals.cliki.net/Compiler SBCL (http://lispuser.net/memo/lisp/2006-12-07-04-54.html çµŒç”±) http://ja.gcc.wikia.com/ GCC ã‚’èªã‚€ã€‚ç®¡ç†äººã®ã‚ã‚ã¯ã•ã‚“ã¯ http://alohakun.blog7.fc2.com/ã‚‚ã€‚é›£ã—ã„ç ”ç©¶ã‚’ã•ã‚Œã¦ã„ã‚‹ç ”ç©¶è€…ã€‚ http://fabrice.bellard.free.fr/tcc/
kzfm 2008/12/30
scheme
ãƒªãƒ³ã‚¯
Scheme Compiler ã®å‹‰å¼·(36) - closure conversion - cranebirdã®æ—¥è¨˜
ã€Œã²ã¨ã“ã¨è¨€ã£ã¦ãŠãã‚ˆã€‚ã‚°ãƒ©ãƒ•ã‚’æã‹ãªã„ã®ãŒã€ãã¿ã®å¼±ç‚¹ã ã€‚å¼ã‚’ã„ã˜ã‚‹ã“ã¨ã ã‘ãŒã‚³ãƒ³ãƒ‘ã‚¤ãƒ©ã˜ã‚ƒãªã„ã€ ã€Žã‚³ãƒ³ãƒ‘ã‚¤ãƒ©ãƒ»ã‚¬ãƒ¼ãƒ«ã€ã‚ˆã‚Šâ€» ã•ã‚ã‚¯ãƒãƒ¼ã‚¸ãƒ£å¤‰æ›ã ã€‚çµå±€ã€lambda å¼ã£ã¦ã®ã¯ä¸€åº¦ã«ã„ã‚ã‚“ãªã“ã¨ã‚’è¡Œã£ã¦ã„ã¦æ‰±ã„é›£ã„ã‹ã‚‰ãƒãƒ©ãã†ã€ã¨ã„ã†è€ƒãˆã€‚ã“ã®è«–æ–‡ã§ã¯ (closure lvar var ...) ã¨ã„ã†å½¢å¼ã‚’å°Žå…¥ã—ã¦ã€è‡ªç”±å¤‰æ•°ã‚’è˜åˆ¥ã§ãã‚‹å½¢å¼ã«ã™ã‚‹ã€‚Schem ã§æ›¸ã S-å¼å´ã®å‡¦ç†ã§ã€ã¡ã‚‡ã£ã¨ã‚ãã‚ãã™ã‚‹ã€‚åå‰ã ã‘ã¯ä½•åº¦ã‹èžã„ã¦ã„ã‚‹ã®ã§ã€‚ ã¨ã“ã‚ã§ã€Scheme ã«ã€Œã“ã®ç¯„å›²ã«ã¯çµ¶å¯¾ã«è‡ªç”±å¤‰æ•°ã¯ãªã„ã‚ˆã€ã‚‚ã—ã‚ã£ãŸã‚‰ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ã‚¨ãƒ©ãƒ¼ã«ã—ã¦ã€ã¨ã„ã†æ§‹æ–‡ãŒã‚ã‚‹ã¨å¬‰ã—ã„æ°—ãŒã™ã‚‹ã®ã ã‘ã©ã€‚ä»–ã®ãƒã‚¹ãƒˆã—ãŸé–¢æ•°ã‚’å®šç¾©ã§ãã‚‹è¨€èªžã§ã‚‚åŒã˜ã ã‘ã©ã€ã€Œæ„å›³ã›ãšã€ï¼ˆã‚¿ã‚¤ãƒ—ãƒŸã‚¹ã¨ã‹ï¼‰è‡ªç”±å¤‰æ•°ã‚’ä½œã£ã¦ã—ã¾ã£ã¦ã‚‚å½“ç„¶ã‚¨ãƒ©ãƒ¼ã«ã‚‚è¦å‘Šã«ã‚‚ãªã‚‰ãªã„ï¼ˆãã†ã„ã†æ§‹æ–‡ãŒã‚ã‚‹ã¨ã‚³ãƒ³ãƒ‘ã‚¤ãƒ©ã‚’ä½œã‚‹ã®ãŒæ¥½ã ï¼‰ã€‚ tests-2
kzfm 2008/12/21
ã‚³ãƒ³ãƒ‘ã‚¤ãƒ©ã‚¬ãƒ¼ãƒ«èªã‚“ã§ã¿ãŸã„

scheme
ãƒªãƒ³ã‚¯
å®Ÿé¨“æ•°å¦2a
ç›®æ¬¡ ã¯ã˜ã‚ã« Schemeå…¥é–€ å®Ÿç¿’ã®è§£èª¬ã¨ä¾‹ãƒ»èª²é¡Œ - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ãŠã¾ã‘ãƒ—ãƒã‚°ãƒ©ãƒ å‡¦ç†ç³» å‚è€ƒæ–‡çŒ® å‚è€ƒURL ã¯ã˜ã‚ã« å®Ÿé¨“æ•°å¦2aã¨ã„ã†è¬›ç¾©ç§‘ç›®ï¼ˆ2002å¹´åº¦ãƒ»å¤§é˜ªå¤§ãƒ»ç†å¦éƒ¨æ•°å¦ç§‘ï¼’å¹´æ¬¡å‰æœŸé…å½“ãƒ»é¸æŠžç§‘ç›®ï¼‰ã«ã¤ã„ã¦ã®éžå…¬å¼ãƒšãƒ¼ã‚¸ã§ã™ã€‚Lispè¨€èªžã®ä¸€ç¨®ã§ã‚ã‚‹Schemeã‚’ä½¿ã£ã¦ã€ç·šå½¢ä»£æ•°ï¼ˆå‰åŠï¼‰ã‚„æœ‰é™ç¾¤è«–ï¼ˆå¾ŒåŠï¼‰ã‚’ä¸»ãªé¡Œæã¨ã—ã¦å¦ã³ã¾ã™ã€‚ ã‚µãƒ³ãƒ—ãƒ«é¡žã¯æ‹¡å¼µå .ss ã®ã‚½ãƒ¼ã‚¹ãƒ•ã‚¡ã‚¤ãƒ«ã‚‚ç½®ã„ã¦ãŠãã¾ã™ã€‚DrSchemeã§ã¯æ—¥æœ¬èªžãŒåŒ–ã‘ã‚‹ã®ã§ã€ã‚½ãƒ¼ã‚¹ã®ä¸ã®ã‚³ãƒ¡ãƒ³ãƒˆã¯è‹±èªžã§æ›¸ã„ã¦ã¾ã™ã€‚ ã€Œãƒ—ãƒã‚°ãƒ©ãƒ ãŒå‹•ã‹ãªã„ã€ã€Œã“ã“æ¼¢å—é–“é•ã£ã¦ã‚‹ã‚ˆã€ã€Œæ›´æ–°å¿˜ã‚Œã¦ãªã„ã‹ã£ã€ã€Œã‚‚ã£ã¨ã„ã„ã‚¢ãƒ«ã‚´ãƒªã‚ºãƒ ãŒã‚ã‚‹ã‚ˆãƒ¼ã€ãªã©ã€å»ºè¨çš„ãªæ„è¦‹ã¯æµ…æ¡ã¾ã§ã€‚ Schemeå…¥é–€ ã¾ãˆãŒã ã€œä½•ã¯ã¨ã‚‚ã‚ã‚ŒSchemeã€œ (2002/04/10) åŸºç¤Žã®åŸºç¤Žã€å››å‰‡æ¼”ç®—ãƒ»æ•°å€¤
kzfm 2008/11/02
scheme

lisp
ãƒªãƒ³ã‚¯
File Not Found:Â Indiana University
File Not FoundSorry for the inconvenience, the page you requested could not be found.
kzfm 2008/09/22
scheme
ãƒªãƒ³ã‚¯
Perlã§ã‹ã‘ãªã„ãªã‚‰Schemeã§æ›¸ã‘ã°ã„ã„ã˜ã‚ƒãªã„(æ³£ - smismithã®ä½•ã‹
kzfm 2008/09/09
scheme

gimp
ãƒªãƒ³ã‚¯
A Scheme Tutorial for Gimp Users
A Scheme Tutorial for Gimp Users Updated for Gimp-1.2 ï¿½ Dov Grobgeld <[email protected]> Last modified: 2002-02-12 Original at: http://imagic.weizmann.ac.il/~dov/gimp/scheme-tut.html Table of contents 1. Background 2. The Gimp module 3. The GIMP PDB 4. The Net-Server 4.1. A commented script 5. Painting areas with selections 5.1. Loops 6. Creating text 6.1. Hello World - writing text in
kzfm 2008/09/09
gimp

scheme
ãƒªãƒ³ã‚¯
Script-Fu ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« -æ—¥æœ¬èªžç‰ˆ-
Original: http://pingus.seul.org/~grumbel/gimp/script-fu/script-fu-tut.html Japanese Translator: Iccii <iccii@hotmail.com> , 2001/01/23 Script-fu ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ« -æ—¥æœ¬èªžç‰ˆ- [æ—¥æœ¬èªžç‰ˆ] ã‚³ãƒ³ãƒ†ãƒ³ãƒ„ä¸€è¦§è¡¨ åºæ–‡ ç´¹ä»‹ Script-Fu ã¸ã®é“ã®æœ€åˆã®ã‚¹ãƒ†ãƒƒãƒ— Script-Fu ã‚³ãƒ³ã‚½ãƒ¼ãƒ«ã§ã‚¹ãƒ†ãƒƒãƒ—ã‚’å†ç”Ÿ Script-Fu ã«æ›¸ãä¸‹ã‚ã™ ã‚ˆãã‚ã‚‹è½ã¨ã—ç©´ è¿”ã‚Šå€¤ R5SR éµå®ˆ ãƒ‡ãƒãƒƒã‚®ãƒ³ã‚° Script-Fu ã§ã§ããªã„ã“ã¨ ãŠæ‰‹æœ¬ å‚è€ƒæ–‡çŒ® å¤‰æ›´å±¥æ´ åºæ–‡ ã“ã®ä¸‹ã®ãƒãƒ¥ãƒ¼ãƒˆãƒªã‚¢ãƒ«ã¯ The Gimp 1.1.24 ã®ãŸã‚ã«æ›¸ãã¾ã—ãŸã€‚ã“ã“ã§èª¬æ˜Žã—ãŸã„ãã¤ã‹ã®äº‹æŸ„ã¯ The Gimp 1.0.x ã§ã¯å‹•ä½œã—ãªã„
kzfm 2008/09/09
gimp

scheme
ãƒªãƒ³ã‚¯
éƒ¨åˆ†ç¶™ç¶šã¨ã‚¹ãƒˆãƒªãƒ¼ãƒ ã§ä½œã‚‹ã‚¸ã‚§ãƒãƒ¬ãƒ¼ã‚¿é–¢æ•° - (new Hatena).blog()
æœ€è¿‘ã€ã¨ã‚ã‚‹ç›®çš„ã§ Jpeg ç”»åƒã‚’èªã‚€ãƒ—ãƒã‚°ãƒ©ãƒ ã‚’æ›¸ãã¾ã—ãŸã€‚ (ã¯ã¦ãªã®ãƒã‚´ã‚’ Jpeg ã§ä¿å˜ã—ã€é’ã„éƒ¨åˆ†ã‚’ã‚ãƒ£ãƒ©ã‚¯ã‚¿ã§è¡¨ç¤ºã—ãŸã¨ã“ã‚ã§ã™) é›£ã—ã„éƒ¨åˆ†ã¯ Common Lisp ã®ã‚³ãƒ¼ãƒ‰ãªã©ã‚’å‚è€ƒã«ã—ãŸã‚“ã§ã™ãŒã€ã„ãã¤ã‹ Scheme ãªã‚‰ã§ã¯ã¨æ€ãˆã‚‹ãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã®ç™ºè¦‹ã‚‚ã‚ã‚Šã¾ã—ãŸã€‚ ä»Šå›žã¯ã€ãƒ“ãƒƒãƒˆã‚¹ãƒˆãƒªãƒ¼ãƒ ã‚„ãƒ”ã‚¯ã‚»ãƒ«æ¯Žã®è‰²ãƒ‡ãƒ¼ã‚¿ã‚’ç”Ÿæˆã™ã‚‹ã®ã«åˆ©ç”¨ã—ãŸãƒ†ã‚¯ãƒ‹ãƒƒã‚¯ã‚’ã”ç´¹ä»‹ã—ã¾ã™ã€‚ Jpeg ã®ãƒ‡ã‚³ãƒ¼ãƒ‰ã§é›£ã—ã„å·¥ç¨‹ã®ä¸€ã¤ã«ã€ãƒãƒ•ãƒžãƒ³ç¬¦å·ã®èªã¿å–ã‚Šã€ã¨ã„ã†ã®ãŒã‚ã‚Šã¾ã™ã€‚ Jpeg ãƒ•ã‚¡ã‚¤ãƒ«ã®é ã®æ–¹ã«ã¯ã€é‡ååŒ–ãƒ†ãƒ¼ãƒ–ãƒ«ã¨ã‹ãƒãƒ•ãƒžãƒ³ãƒ»ãƒ†ãƒ¼ãƒ–ãƒ«ã¨ã‹ã€è‰²ã‚“ãªã‚„ã‚„ã“ã—ã„æƒ…å ±ãŒè©°ã¾ã£ãŸãƒ˜ãƒƒãƒ€ãƒ¼ãŒã‚ã‚‹ã‚“ã§ã™ãŒã€ãã‚ŒãŒçµ‚ã‚ã‚‹ã¨ 0 ã¨ 1 ã®ä¸¦ã³ (ãƒ“ãƒƒãƒˆã‚¹ãƒˆãƒªãƒ¼ãƒ ) ãŒå§‹ã¾ã‚Šã¾ã™ã€‚ å®Ÿéš›ã®ãƒ‡ãƒ¼ã‚¿ã‚’ã€å‡ºç¾é »åº¦ã®é«˜ã„ã‚‚ã®ã¯çŸãã€ã‚ã£ãŸã«ç¾ã‚Œãªã„ã‚‚ã®ã¯é•·ã„ç¬¦å·ã«å¯¾å¿œã•ã›ã‚‹ã€ã¨ã„ã†æ–¹å¼ã§åœ§ç¸®ã—ãŸã‚‚ã®ã§ã™ã€‚ ã“ã®
kzfm 2008/02/19
Scheme
ãƒªãƒ³ã‚¯
Write Yourself a Scheme in 48 hours
Write Yourself a Scheme in 48 Hours A Haskell Tutorial By Jonathan Tang Contents Overview First Steps: Compiling and running Parsing A Simple Parser Whitespace Literal Numbers and Strings: Return Values Lists, Dotted Lists, and Quoted Data: Recursive Parsers Evaluation, Part 1 Displaying Values: Show and Typeclasses Evaluating Primitive Values: Pattern Matching Evaluating Primitive Functions: Firs
kzfm 2008/01/20
Haskell

Scheme
ãƒªãƒ³ã‚¯
R5RS (Revised^5 Report on Algorithmic Language Scheme) æ—¥æœ¬èªžè¨³
back ã“ã‚Œã¯ Suzuki Hisao ã•ã‚“ ([email protected]) ã«ã‚ˆã‚‹ã€ Scheme ã®ä»•æ§˜æ›¸ R5RS (Revised^5 Report on Algorithmic Language Scheme) ã®æ—¥æœ¬èªžè¨³ã§ã™ã€‚æ–°å±±ãŒè¨³ã—ãŸã‚ã‘ã§ã¯ã‚ã‚Šã¾ã›ã‚“ã€‚ 1999å¹´ 3æœˆã« fj.comp.lang.lisp ã«æŠ•ç¨¿ã•ã‚ŒãŸã‚‚ã®ã‚’ã€æ–°å±±ãŒ ã‚³ãƒ³ãƒ‘ã‚¤ãƒ«ã€å¤‰æ›ã—ã¾ã—ãŸã€‚ R5RS ã®æ—¥æœ¬èªžè¨³ã¨ã—ã¦ã¯ã€çŠ¬é£¼ å¤§ã•ã‚“ã«ã‚ˆã‚‹æ—¥æœ¬èªžè¨³ãŒå¤šãå‡ºå›žã£ã¦ã„ã¾ã™ãŒã€ æ–°å±±ã¯ Suzuki ã•ã‚“ã«ã‚ˆã‚‹ç‰ˆã®ã»ã†ãŒèªã¿ã‚„ã™ã„ã¨æ€ã„ã¾ã™ã€‚ [Gzipped tar, 97k] r5rs-ja.tar.gz Suzuki ã•ã‚“ã«ã‚ˆã£ã¦æœ€åˆã« fj ã«æŠ•ç¨¿ã•ã‚ŒãŸ TeX ã‚½ãƒ¼ã‚¹ã®ã‚¢ãƒ¼ã‚«ã‚¤ãƒ–ã€‚ ä»¥ä¸‹ã®ãƒ•ã‚¡ã‚¤ãƒ«ã¯ã™ã¹ã¦ã“ã“ã‹ã‚‰ç”Ÿæˆã—ã¾ã—ãŸã€‚ [PDF, 430k] r5rs-ja.pdf P
kzfm 2008/01/20
R5RS

Scheme
ãƒªãƒ³ã‚¯
SICPã‚’èªã‚€(76) äºŒé€²æœ¨ã‚’Graphvizã§è¡¨ç¤º - ãƒœã‚¯ãƒŽã‚¹
ã©ã†ã‚‚äºŒé€²æœ¨ã®ãƒªã‚¹ãƒˆè¡¨ç¤ºãŒã‚ã‹ã‚Šã«ãã„ã®ã§ã€Graphvizä½¿ã†ã“ã¨ã«ã€‚ define (graph tree) (system (format "echo 'digraph G { ~a ~a }' | dot -Tpng | display" (entry tree) ; ä¸€å€‹ã ã‘ã ã¨è¡¨ç¤ºãŒå‡ºæ¥ãªã„ã®ã§ã¨ã‚Šã‚ãˆãšæœ€åˆã®ã‚’æŒ¿å…¥ã—ã¨ã (letrec ((make-node (lambda (current next) (if (null? next) "" (format "~a->~a " (entry current) (entry next))))) (iter (lambda (tree) (if (null? tree) "" (string-append (make-node tree (left-branch tree)) (make-node tree (right-br
kzfm 2007/12/18
Scheme
ãƒªãƒ³ã‚¯
LISPMEMO
LISPUSERLISPM EMOLisp is a programmable programming language. -- John Foderaro æ™®æ®µã¯ Common Lisp ã°ã£ã‹ã‚Šã§ã™ãŒï¼Œãƒã‚¿ãŒãªã„ã®ã§ planet-scheme ã§è¦‹ã‹ ã‘ãŸãƒã‚¿ã‚ˆã‚Šï¼Žä»Š planet-scheme ã«ã¤ãªãŒã‚‰ãªã„ã®ã§ç´°éƒ¨ã¯å¾®å¦™ã«ã¡ãŒã†ã‹ã‚‚ ã—ã‚Œãªã„ã§ã™ï¼Ž (define (solve) (let* ((x (in-range 0 100)) (y (in-range 0 100)) (z (in-range 0 100))) (if (= (* x x) (+ (* 2 y) z 500)) (list x y z) (fail "no solution")))) (display (solve)) ã®ã‚ˆã†ãªæ„Ÿã˜ã§ã—ãŸï¼Žè¦ã™ã‚‹ã« if ã®æ¡ä»¶ã‚’è¦‹ãŸã™ x y z ã®çµ„ã¿åˆã‚ã›ã‚’è¿”ã™ ã¨ã„
kzfm 2007/10/30
Scheme
ãƒªãƒ³ã‚¯
1