Gauche

README.mkdn

Gauche

Install

1. Ubuntu 10.04 LTS

   $ sudo aptitude install gauche gauche-dev gauche-doc
   

2. Mac OS X Snow Leopard

   $ sudo port install gauche gauche-readline
   

Reference

• Gauche - A Scheme Interpreter
• Gauche ユーザリファレンス: Top
• Practical Scheme
• Gaucheプログラミング(立読み版) - karetta.jp
• Enjoy Gauche | Kahua HEAD
• Gauche (紫藤のWiki)
• GaucheOnRails
• Gaucheでプログラミング！ | Think IT

Gauche Blog

• vallog: scheme
• Gaucheクックブック

Gauche GitHub

• shirok's Profile - GitHub
• motemen's nijiura-irc-gateway at master - GitHub
• yhara's gauche_on_rails at master - GitHub

hello.scm

;;;
;;; First Gauche Program
;;;
;;; $ gosh hello.scm hello
;;; (hello.scm hello)
;;; (hello)
;;; hello.scm
;;; Hello, World!
;;;

(define (main args)
  (print args)
  (print *argv*) ;; *argv* is command line args list
  (print *program-name*) ;; *program-name* is script file name

  (print "Hello, World!")
  0)

reverse.scm

;;;
;;; list reverse
;;;   ループを使わないでリストを逆順にするコード
;;;

;; recursive reverse
(define (reverse lis)
  (define (reverse-iter lis rev)
    (if (null? lis)
      rev      
      (reverse-iter (cdr lis) (cons (car lis) rev))))
  (reverse-iter lis '())) 

;; main
(define (main args)
  (print "Recursive reverse => " (reverse '(0 1 2 3 4 5)))
  0)