sakae

2021/10/20

2021/10/13

2021/10/12

2021/10/09

2021/10/01

2021/09/28

2020/01/07

2020/01/06

2020/01/01

2019/12/09

2012/07/02

2012/07/01

2002/08/17

2003/06/01

2003/05/25

2003/05/17

2003/04/27

(define x '(1 2 3 4 5))
(define y '(10 20 30 40 50))
(define z '(100 200 300 400 500))

(map + x y z)
(map list x y z)
同じ事をrubyやperlでは、どう書くのだろう? なんて言う疑問は置いておいて、
mapに限らず、引数の数には制限は無いのだろうか?
数個までは効率よく扱ってくれるけど、それ以上は効率が落ちるとか。

2003/04/19

2003/04/13

  (set-car! '(a b) 'c)
gosh> (define (foo x)
        (let ((clist '(a b)))
          (set-car! clist x)
          clist))
foo
gosh> (define n (foo 3))
n
gosh> n
(3 b)
gosh> (define m (foo 5))
m
gosh> m
(5 b)
gosh> n
(5 b)

Gauche:ImmutableObjectへ移ります。

2003/04/06

2003/03/08

2003/03/02

2003/02/26


どんな、.emacs 使ってますか?

 (setq scheme-program-name "gosh")
 (defun match-paren (arg)
        "Go to the other matching parenthesis."
        (interactive "p")
        (cond ((looking-at "\\s\(") (forward-list 1)(backward-char 1))
              ((looking-at "\\s\)") (forward-char 1)(backward-list 1))))
 (global-set-key "\M-p" 'match-paren)
 
 (if (fboundp 'global-font-lock-mode) (global-font-lock-mode t))
 (if (fboundp 'show-paren-mode) (show-paren-mode 1))
 (setq show-paren-style 'mixed)
 
 まだ、viの癖が抜けなくて、時々 M-x vi-mode しちゃったり、vi で、:set list
 して使ったりしてます。()に慣れるのはいつだろう? (2002/07/31 07:40:49 PDT)
 (defun set-buffer-process-coding-system-to-eucjp ()                              
   (set-buffer-process-coding-system 'euc-jp 'euc-jp))                            
 (add-hook 'inferior-scheme-mode-hook 'set-buffer-process-coding-system-to-eucjp) 
 (put 'receive 'scheme-indent-function 2)

祝 GaucheがFreeBSDのportsになったぞ !

    /usr/ports/lang/gauche と /usr/ports/database/gauche-gdbm
    lang が defaultで utf-8 と言うのは時代の流れ? (2002/09/10 03:26:51 PDT)

ヒアドキュメントが欲しいなぁ

 (use gauche.process)
 (define plot-command "
 set terminal png color
 set grid
 set ylabel \"Output \" 
 set yrange [0:20]
 set xlabel \"Date\"
 set xdata time
 set timefmt \"%Y%m%d%H%M%S\"
 plot \"data.txt\" usi 2:1 ti \"output\"  with impulses
 ")
 (display plot-command 
   (open-output-process-port "gnuplot > out.png" ))
 こんな事をやろうとすると、本格的(?)なヒアドキュメントが欲しくなります。(2002/09/11 04:04:36 PDT)

NetBSD 1.6-RELEASE でも、Gauche !

  pthreads を除き make test がOKとなりました。wilikiも動作します。http://www.ksky.ne.jp/~sakae/sicp/wiliki.html (2002/09/21 05:18:23 PDT)

OpenBSD-3.1/sparc版で、コンパイル失敗

  とほほな事だけど... http://www.ksky.ne.jp/~sakae/sicp/ob31.html

NetBSD-1.6/sparc版でも、コンパイル失敗

  またもやとほほな事だけど ... http://www.ksky.ne.jp/~sakae/sicp/nb16.html

FreeBSD/sparc版でも、コンパイル失敗

  笑ってやってくさい。 ... http://www.ksky.ne.jp/~sakae/sicp/fb5.html

Vine 2.1.5/sparc版で Gauche 0.6.4 が完動しました。

  やっと動いたぞって感じです。http://www.ksky.ne.jp/~sakae/sicp/Vine.html

Shiro さん、おめでとうございます。

  これから、忙しくなりますね。 http://www.ipa.go.jp/NBP/14nendo/14mito/gaiyou/6-1.html
  近山PMさんは、ひょっとして、和田先生と Utilispをやられた方? 先生に聞いてみれば良かったか。

Shiro: ども。開発期間も折り返し点を過ぎ、ぼちぼち追い込みにかかっています。 (2002/11/10 23:03:33 PST)

FreeBSD-current/i386

More ...