LISP Scheme Part2

聞くだけなのもなんなので一桁変換なら
(defun number_change (x)
(cond
　　　　　　　((eql x '０) (setf x '0))
((eql x '１) (setf x '1))
((eql x '２) (setf x '2))
((eql x '３) (setf x '3))
((eql x '４) (setf x '4))
((eql x '５) (setf x '5))
((eql x '６) (setf x '6))
((eql x '７) (setf x '7))
((eql x '８) (setf x '8))
((eql x '９) (setf x '9))
)
)

まぁこの程度の知識しかないです(;´Д｀)

>>936
なんか頭悪い気がするんだけど、気のせいでしょうか。

といいつつｼﾞﾌﾞﾝもあんま変わらないかも
(define (number_change x)
(cdr(assq x '((０ . 0)(１ . 1)
(２ . 2)(３ . 3)
(４ . 4)(５ . 5)
(６ . 6)(７ . 7)
(８ . 8)(９ . 9)))))

テーブルがfixedなassoc系関数は、コンパイラがもっと速い
手段にすげ替えてくれるとうれしいんだけど。

ﾘｽﾄ遊ﾋﾞﾏﾝｾｰ

(defun 線路は続くよどこまでも ()
　　(線路は続くよどこまでも))

>>937
事実です(藁

二桁以上はどうするかってはなしで…
めんどいからその部分だけC言語使おうかな

>>941
lispはシンボルを使って何かするのは得意だけど、
そのシンボルを分解したりするって処理は向いてないんじゃないかな。
lispでやる利点なさそうだし。
その辺のトークンの問題はreaderの時点で解決してるべき。

>>941
GCL でどーかはわからんが。
(defun hoge (str)
(map 'string
#'(lambda (c)
(if (char<= #\０ c #\９)
(code-char
(+ (char-code #\0)
(- (char-code c)
(char-code #\０))))
c))
str))
(hoge "１２３４５あいう")
"12345あいう"

>>943
おお、VeryThx!
明日にでもGCLで試してみます!

カールってもう食べた人いる？

「型なし言語逝ってよし」というスレを読んでて
思ったんだけど, lisp ってビジネス用途に
多人数で共同開発する場合はどうなんでしょうか.
自分で作る分には楽しいんだけど,
保守とかデバッグはどうなんだろう.

>>935 とも関係ある話だけど.

>>946
いまや大企業でも多人数は珍しいですよ。せいぜい10人じゃないですか？
3,4名の開発がほとんどでは？
AgileAllianceにみられるように、変化につよい、小回りの利く
開発手法はお客さんも求めてるなぁと日々実感してますよ。

Perl,SmallTalk,Python,Ruby,Lisp,Java,C++,Cを
適所適材っつーかんじで
組織やチームの文化も考えて使い分けるのがいいのじゃないの
でしょうか。

前置きながくなったけど、ペアプログラミング可能な言語だと思うので
メンタリングといゆか教えるのが好きで皆から信頼されてる
プログラマがチームに1人いるならLispはOKでしょう。
保守、デバッグについては、Unitテストを活用すべし。でしょう。

>>944
別解
(defun hoge (str)
　(map 'string
　　　 #'(lambda (c)
　 (let ((pos (position c "０１２３４５６７８９")))
　　 (if pos (char "0123456789" pos) c))
　　　 str))

（しかし、EUCの2バイト文字を1文字と扱えるのか？ダメだと思うが…）

>>942
つーか、シンボルは分解するようなものじゃないだろ？

>928-929
わざわざcygwin版探してるのは挙動が素直そうだからです
SCMはDOSアプリだしMIT版は謎の独自コンソールだし
他のは不安定なGUI版だしで処理系探しに疲れました...

>>950
Guileは？
あと、SCMをcygwinでコンパイルするとか。

>943
xyzzyだと動作確認できたけどGCLだと無理みたいです
エラー内容
>Error: "０" is an illegal character name.
>Fast links are on: do (si::use-fast-links nil) for debugging
>Error signalled by LOAD.
>Broken at LOAD. Type :H for Help.

やっぱ2バイト文字は認識されないのか

結局makeは諦めてPetite Chez Scheme(http://www.scheme.com/)に落ち着きました。
# それにしてもこんなドメイン使っていいのか？
入力用のプロンプト"> "を標準出力に吐くのが気になりますが
Windowsのアプリとしては一番挙動がまともっぽいです。

CygwinでもDOSアプリって動かせない？

>954
Cygwin(というかbash)から16ビットDOSアプリの起動・実行は問題なく出来ます。
ただ、一般的に16bitの処理系にはいろいろ制約があることが多いのでなんとなく避けたかったんです。

今日は次スレ日和ですな

>952
こんなのはどうですか？
(defun agi (str)
(labels ((agi% (new-old-alist list)
(if (endp new-old-alist) list
(let* ((new (caar new-old-alist))
(old (cdar new-old-alist))
(pos (search (map 'list #'identity old) list)))
(if pos
(agi% new-old-alist
(concatenate 'list
(subseq list 0 pos)
new
(subseq list (+ pos (length old)))))
(agi% (cdr new-old-alist) list))))))
(map 'string #'identity
(agi% '(("1" . "１")
("2" . "２")
("3" . "３")
("4" . "４")
("5" . "５")
("6" . "６")
("7" . "７")
("8" . "８")
("9" . "９")
("0" . "０"))
(map 'list #'identity str)))))


(setq yen "１２３１２３４５６７８９０円")
(agi yen)

ケント・ディヴィグのプログラミング言語Scheme読んでるけど、
これって難しいよね？
Schemeのことについてあらかじめ知ってないと、あの説明では
理解出来ないと思う。
でも、Schemeを知ってる人が知識を確認したり、知識を磨くの
には素晴らしいのは確かだと思う。
C++におけるプログラミング言語C++と同じような立場の本だね。

>>957
いまGCLで動作確認しました。本当にありがとうございますm(__)m

ところで、ここにいるLISP使ってる人達ってLISP歴どのくらいなんだろう(汗
私は半年ですけど・・・

>>958
あの本は Lisp 系 の基本を知らないと難しいが,
知っている人なら当り前のことで簡単過ぎるような気がする.
基本的な概念への入門的な説明が少ないような気がする.
continuation の概念なんか, 本文の説明よりも付録の R5 を
読んだ方がわかりやすかった. 一度理解してから本文を読むと
なにを言っているのかわかるんだけど.

という訳で, 個人的には中途半端な本のような気がする.
ただリファレンスとしては便利だと思う.

あの本は、うまいコードが載ってる気がするけど、
コードの解説はあまりしてないから読むのに苦労する。
作者のオナニーにしか見えん。

標準的な本でしょう。
よくある｢プログラミング言語○○｣の一種。
SchemeはこれとSICPと入門本でとりあえずＯＫ。

Schemeの入門は「Scheme手習い」直感で学ぶLisp　が良かったです。
Lispの概念は「初めての人のためのLISP」（竹内郁雄＝著）が奥深いと思います。
いずれも絶版なのが残念です。

>>963
初めての人のためのLISPはいいですね。
対話形式で話が進むので最初しまったと思いましたが。

「Schemeの手習い」はLittle Schemerの訳本ですね。
原著でも、むずかしい英語じゃないし
（っていうか、それ以前に文章量が少ないし）
原著で読めばいいんじゃないですか？
ちなみに僕はLittle Schemerを読んで
Scheme好きになりました。

誰か次スレ立てて下さい

>>966
じゃあ、立てます。

>>921
アメリカのComputer Scienceの人にも評価は高いよ。
streamの導入のあたりはなんど読んでもぞくぞくする。
でも今は教育用の言語としてはJava一人勝ちだからね。

http://pc.2ch.net/test/read.cgi/tech/1008220265/
立てました。

ありがとう>967

誰かSIRをXLisp-statで走らせた方います？？？

まもなくここは　乂1000取り合戦場乂　となります。

　 　 　 ＼∧＿ﾍ　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　,,､,､,,,　/ ＼〇ノゝ∩ ＜　1000取り合戦、いくぞｺﾞﾙｧ！！　　　　　　　,,､,､,,,
　　　　/三√ ﾟДﾟ)　/　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿　　,,､,､,,,
　　 　　/三/| ﾟＵﾟ|＼　　　　　　,,､,､,,,　　　　　　　　　　　　　　　　　　　　　　　,,､,､,,,
　,,､,､,,,　Ｕ （:::::::::::）　　,,､,､,,,　　　　　　　　　＼オーーーーーーーッ！！／
　　 　 　//三/|三|＼　　　　　∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　∪　 ∪　　　　　　 （　　　　）　　　 （　　　　 ）　　　（　　　　）　　　 ）
　,,､,､,,,　　　　　　　,,､,､,,,　　∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　,,､,､,,,　　　　　　 （　　　　）　　　 （　　　　）　　　 （　　　　）　　　 （　　　　）

LISP Scheme Part3
http://pc.2ch.net/test/read.cgi/tech/1008220265/1-4

記念カキコ。

今まで、C/C++, perl, java, elisp とかじってきたけどこれから scheme 信
者になります。scheme ｶｺ(･∀･)ｲｲ!! 立派な schemer になれますように。

>>761
cmlisp は、CM-2 で実装されました。しかし、data paralle な計算の
Nest が高速に扱えず速度が出ないため、Thinking Machines から商品と
して売られることはありませんでした。その後、CMU の Guy Blelloch
によってこの問題の解決手法が提案され NESL という言語があります。
NESL はフリーで手に入ります。MPI にも対応しているようなので
PC Cluster で NESL を動かせるかもしれません。

>>975
> cmlisp は、CM-2 で実装されました。

それは、*Lispじゃない?

Connection Machine Lispは、SIMDじゃ実装しにくいからね。
αapplyとかね。

現スレッド。一応貼っとくね。
LISP Scheme Part4
http://pc.2ch.net/test/read.cgi/tech/1016211619/l50

test

u

u　

u　　

u　　　

u　　　　　

u　　　　　　

u