とりあえず初期化するプロシージャだけ書いてみました。
----
gosh>
(define dim-two
(lambda (x y)
(define dim
(lambda (x)
(cond
((zero? x) '())
(else (cons '() (dim (- x 1)))))))
(cond
((zero? y) '())
(else (cons (dim x) (dim-two x (- y 1)))))))
dim-two
gosh> (dim-two 3 5)
((() () ()) (() () ()) (() () ()) (() () ()) (() () ()))
----
これは、2次元配列専用です、もっと(CLISPのmake-arrayのように)汎用化され、きれいな書き方ができるはずなのですが、今のところこの辺が限界です(--;
もっと、きれいな書き方はあるでしょうか？
さらにこの後、次数を指定して、配列にリード、ライトをする関数を書きたいと思ってます。
http://
を見る限り、配列からリードするプロシージャはlist-ref等で楽に書けそうですが、writeするプロシージャは難しそうです。何かschemeで書くに当たっていい方法はないでしょうか？
宜しくお願いしますm(_ _m
----
gosh>
(define dim-two
(lambda (x y)
(define dim
(lambda (x)
(cond
((zero? x) '())
(else (cons '() (dim (- x 1)))))))
(cond
((zero? y) '())
(else (cons (dim x) (dim-two x (- y 1)))))))
dim-two
gosh> (dim-two 3 5)
((() () ()) (() () ()) (() () ()) (() () ()) (() () ()))
----
これは、2次元配列専用です、もっと(CLISPのmake-arrayのように)汎用化され、きれいな書き方ができるはずなのですが、今のところこの辺が限界です(--;
もっと、きれいな書き方はあるでしょうか？
さらにこの後、次数を指定して、配列にリード、ライトをする関数を書きたいと思ってます。
http://
を見る限り、配列からリードするプロシージャはlist-ref等で楽に書けそうですが、writeするプロシージャは難しそうです。何かschemeで書くに当たっていい方法はないでしょうか？
宜しくお願いしますm(_ _m
|
|
|
|
|
|
|
|
λの会 更新情報
-
最新のアンケート
-
まだ何もありません
-
λの会のメンバーはこんなコミュニティにも参加しています
人気コミュニティランキング
- 1位
- mixi バスケ部
- 37839人
- 2位
- 酒好き
- 170670人
- 3位
- マイミク募集はここで。
- 89536人