Gauche 関連情報

h1. 第2回目のソースコード

リスト1：ジャンケン（Javaの場合）

<pre>

// Java

import static java.lang.Math.*;

public class Jyanken {

    public static String guu_choki_pa(double r) {

       if (r < 0.33)  {

          return "Guu";

       } else if (r < 0.66) {

          return "Choki";

       } else {

          return "Pa";

       }

    }

    public static void jyanken() {

        System.out.println(guu_choki_pa(random()));

    }

    public static void main(String args[]) {

        for (int i = 0; i < 10; i++) {

            jyanken();

        }

    }

}

</pre>

リスト2：ジャンケン（Gaucheの場合）

<pre>

(use srfi-27)

(define (guu-choki-pa r)

  (cond ((< r 0.33) "Guu")

        ((< r 0.66) "Choki")

        (else "Pa")))

(define (jyanken)

  (print (guu-choki-pa (random-real))))

(dotimes (i 10) (jyanken))

</pre>

リスト5：S式を与えると対応するHTMLを出力するプログラム

<pre>

(define (print-html e)

 (cond ((list? e)

        (print-open-tag (car e))

        (print-html-list (cdr e))

        (print-close-tag (car e)))

        (else (display e))))

(define (print-html-list s)

 (cond ((null? s) #f)

       (else

        (print-html (car s))

        (print-html-list (cdr s)))))

(define (print-open-tag tag)

 (display "<")

 (display tag)

 (display ">"))

(define (print-close-tag tag)

 (display "</")

 (display tag)

 (display ">"))

(define gauche-page

 '(html

   (head (title "Gauche Web"))

   (body (h1 "Gauche Web Page")

         (table (tr (td 1)(td "lisp"))

                (tr (td 2)(td "scheme"))))))

(print-html gauche-page)

</pre>