【GNU】スクリプト言語 Guile【scheme】

**デフォルトの名無しさん** · 2009/04/18(土) 01:30:29

　　　＿＿,, ,　,　,　_ ､ ,,, ...　,,　_　..,_
　ー=､､ｰ-､`ヽ､、ヽ`!i' , ,i",r'",-'"=ミ
　　　 `ヽ`ヾ`､　! ヽ ! l! i! !_i_/_<'"``
　　　　　`,ゝ､iliｰ'"　"､,"､',　 i,　ﾘ
　　　　　 !/!,li ,;;-=o=-,ｯｨ=｡ｩｨ　　　　くにへ　かえるんだな
　　＿_　 i､`!', '; `ー　/;;!i､''; ,! 　　　　おまえにもかぞくGuileんだろう・・・
ー''`ヽ`,ｰi'`''"!､ヽ　,　`一'､ /　　　__
　　　　`il `i !　ヽ､　￣￣ / iヽ、/ ,.ヽ_
　　　　　i!　!`　　 `ｰｧ､-ｰ'　 ! ﾉ!トi,!'",ﾉ-､
　　　,..=､i! iヽ-､　rィ',;'!ヽー-､! 　`/_,i' _,.!'､
ーニｰ-､._ `ヽゞﾆ-､.;' i! ! ,　　`ﾄ_ﾉ`x-'" ノ
=ニヽ､　,　`,　/ヾ=ソﾉ　!/　　　!､`ｰ`''イ､
-ｰ-､　`i,　/ / ヽ `イ_,　 i -'"￣`!　!　　　ヽ
　　　ゝﾉ /-'"　　`　　　'　!　　　　ヽ　　　　 !

Guile (About Guile)
http://www.gnu.org/software/guile/guile.html

Guile によるスクリプティング
http://www.ibm.com/developerworks/jp/linux/library/l-guile/index.html

**デフォルトの名無しさん** · 2009/04/18(土) 02:39:30

2get

**デフォルトの名無しさん** · 2009/04/18(土) 05:17:16

3get
schemeを初めて触る人にアドバイスをください
英文でも学習しようという意欲のある人だと、emacsのinfoが便利っぽいですね

**デフォルトの名無しさん** · 2009/04/18(土) 07:28:17

>>3
Lispを学んでから使え

**デフォルトの名無しさん** · 2009/04/18(土) 07:54:00

SchemeはLispじゃなかったのか

**デフォルトの名無しさん** · 2009/04/18(土) 08:46:10

>>5
シンボルが無い
()と#fを使いわけなくちゃいけない
名前空間が無い
マクロが無い
ハッシュテーブルが無い
仕様に未定義 undefined だらけ
仕様にREPL(read-eval-print-loop)が無い

ワルいけどSchemeはLispとしてあまりにも不完全すぎる

**デフォルトの名無しさん** · 2009/04/18(土) 08:57:15

>>6
> シンボルが無い
うそつくな
> マクロが無い
うそつくな
> ハッシュテーブルが無い
R6RSかSRFI69にありますが

CL厨ってこんな奴ばっか？

**デフォルトの名無しさん** · 2009/04/18(土) 09:15:56

>>6を満たした言語ってなんだろ？
C言語(特有のマクロ)っていつ頃ついたのかな？

>()と#fを使いわけなくちゃいけない
がLisp/Schemeっぽいんだよな

**デフォルトの名無しさん** · 2009/04/18(土) 09:25:23

>>7
CLやっている人は、さすがにSchemeもちゃんと触っているでしょ

**デフォルトの名無しさん** · 2009/04/18(土) 09:31:34

Common LispをLispと呼ぶのは初心者だってじっちゃがいってた。

**デフォルトの名無しさん** · 2009/04/18(土) 09:32:06

Schemeの"シンボル"はCLのシンボルとは違うだろ

**デフォルトの名無しさん** · 2009/04/18(土) 09:36:40

> SchemeはCommon Lispとしてあまりにも不完全すぎる
それはあまりにもごもっともでございます。

**デフォルトの名無しさん** · 2009/04/18(土) 09:55:23

C言語はCommon Lispとしてあまりにも不完全すぎる
JavaはCommon Lispとしてあまりにも不完全すぎる
PerlはCommon Lispとしてあまりにも不完全すぎる
cobolはCommon Lispとしてあまりにも不完全すぎる

Schemeで表せ

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2009/04/18(土) 10:01:29

>Schemeで表せ
#f

**デフォルトの名無しさん** · 2009/04/18(土) 10:07:33

Common LispはSchemeとしてあまりにも不完全すぎる
C言語はSchemeとしてあまりにも不完全すぎる
JavaはSchemeとしてあまりにも不完全すぎる
PerlはSchemeとしてあまりにも不完全すぎる
cobolはShcemeとしてあまりにも不完全すぎる
HaskelllはShcemeとしてあまりにも不完全すぎる

**デフォルトの名無しさん** · 2009/04/18(土) 10:21:15

難易度からいえば
C＜Java＝Ruby＜Common Lisp＜Python＜Scheme
だろ。

読み方の話だけど。

**デフォルトの名無しさん** · 2009/04/18(土) 10:30:59

>>17
Gaucheは、Schemeの下だな
人と話すときにスッと出てこないのには、自信がある

**デフォルトの名無しさん** · 2009/04/18(土) 10:48:16

まつもとゆきひろ＜＜DennisRitchie＜＜＜＜＜＜＜＜＜＜＜＜（日本語の限界）＜＜＜＜＜Bjarne Stroustrup

**デフォルトの名無しさん** · 2009/04/18(土) 10:55:08

Guileのメリットって何？FSFのお墨付き？GNU標準だから？

**デフォルトの名無しさん** · 2009/04/18(土) 12:17:28

>>20
GNUの標準拡張言語としてHURDと同じくらい未来が保証されている。
この未来が明るいのか暗いのかは人によって違う。

**デフォルトの名無しさん** · 2009/04/18(土) 15:20:07

待ちguile

**デフォルトの名無しさん** · 2009/04/18(土) 16:33:33

>>1
いわゆる「出落ち」

**デフォルトの名無しさん** · 2009/04/18(土) 16:36:06

>>19
dmr は日本語喋れるのか
知らんかった

**デフォルトの名無しさん** · 2009/04/18(土) 18:35:53

読みやすさの問題だろ。

**デフォルトの名無しさん** · 2009/04/18(土) 19:02:55

>>24
白本（緑本）を読んでないな。ちゃんと

　"o tegami wo doumo arigatou gozaimasu."

って喋ってる。

**デフォルトの名無しさん** · 2009/04/18(土) 20:53:06

>>26
それリッチーじゃなくてカーニハン

**デフォルトの名無しさん** · 2009/04/19(日) 17:51:35

無頼庵蟹半とか美流上位とか

**デフォルトの名無しさん** · 2009/04/19(日) 18:12:22

美流上位は本人がそう書いたんだっけ。
さてクイズ。高徳納って誰でしょう？

**デフォルトの名無しさん** · 2009/04/19(日) 21:09:47

1.ドナルド・ダック
2.ドナルド・クヌース
3.ドナルド・マクドナルド

**デフォルトの名無しさん** · 2009/04/24(金) 01:46:22

>>1
935 名前：デフォルトの名無しさん[sage] 投稿日：2009/04/18(土) 05:12:39
>>933
guileを中心に勉強している身としては、うれしいがｗ
本当に大胆だな

Guileスレを立てた1は、週1で簡単なスクリプトでいいから、投稿してくれ

**デフォルトの名無しさん** · 2009/04/24(金) 16:44:44

まずソニックブームのスクリプトを書いてもらおうか

**デフォルトの名無しさん** · 2009/04/24(金) 20:05:25

# It's cool!!!
(define (sonic-boom)
(define (bar y)
(define (foo x)
(if (= x 0)
(format #t ")\n")
(begin (format #t " ")(foo (- x 1)))))

(if (= y 20)
(foo y)
(begin (foo y) (bar (+ y 1)))))
(begin (format #t "Sonic Boom!!!\n") (bar 0)))

(sonic-boom)

**デフォルトの名無しさん** · 2009/05/05(火) 13:09:46

209 名前：デフォルトの名無しさん[sage] 投稿日：2009/05/05(火) 05:23:24
>>208
いいんじゃない？
それでは、パイロット版という感じで気楽にやりましょうか。

【イベント名】　13時だョ!全員集合

【開始時間・終了予定時間】　今日の13時～14時
【モットー】競うというより楽しく
【参加条件】一般的な社会常識がある人で関数型言語が使える人、または勉強している人。
【部門】今回は2部門。初心者部門と一般部門。初心者は3題出題。
一般部門は初心者部門の問題3題に加えて、7題を加えた計10題。
【イベントに使うスレ】　ttp://pc12.2ch.net/test/read.cgi/tech/1239985829/
【あとサイト】　　和訳　http://odz.sakura.ne.jp/projecteuler/
【解答用紙】　http://codepad.org/
【備考】初心者の参加、大歓迎です。あとおもしろい企画があったら、どしどしレスしてください。

Lisp Scheme Part26
http://pc12.2ch.net/test/read.cgi/tech/1240567959/

**デフォルトの名無しさん** · 2009/05/05(火) 13:11:21

やるよ
問題は11, 12, 13にしてみる
数学的によくわからなくて、解けないというオチにならなければいいが

**デフォルトの名無しさん** · 2009/05/05(火) 13:12:39

Project Euler(http://odz.sakura.ne.jp/projecteuler/)のProblem 1を解いてみた。
末尾再帰にはしたけど高速化はしていない。

(define p001
(lambda (n)
(letrec ((p001-aux (lambda (n sum)
(cond
((= n 0)
sum)
((or (= (modulo n 3) 0)
(= (modulo n 5) 0))
(p001-aux (- n 1)
(+ sum n)))
(else
(p001-aux (- n 1)
sum))))))
(p001-aux n 0))))

**デフォルトの名無しさん** · 2009/05/05(火) 13:23:38

1番をみて、一般部門を10問にしたけど、11, 12, 13は難しいぞ
自分のプログラム技術で解けるかな

**36(1/2)** · 2009/05/05(火) 13:43:53

すまん、13:00から勝手に始めてた。Problem 11ね。
(define prod
(lambda (table)
(let ((xmax (vector-length (vector-ref table 0)))
(ymax (vector-length table)))
(let ((lookup (lambda (x y)
(if (and (<= 0 x)
(< x xmax)
(<= 0 y)
(< y ymax))
(vector-ref (vector-ref table y) x)
0))))
(lambda (+x +y)
(lambda (x y)
(* (lookup (+ y (* +y 0)) (+ x (* +x 0)))
(lookup (+ y (* +y 1)) (+ x (* +x 1)))
(lookup (+ y (* +y 2)) (+ x (* +x 2)))
(lookup (+ y (* +y 3)) (+ x (* +x 3))))))))))
(define p011
(lambda (flist xlist ylist)
(apply max
(map (lambda (f)
(apply max
(map (lambda (y)
(apply max
(map (lambda (x)
(f x y))
xlist)))
ylist)))
flist))))

**36(2/2)** · 2009/05/05(火) 13:49:15

Problem 11の呼び出しの方。やっぱり高速化はしていない。
(define data
#(#(08 02 22 97 38 15 00 40 00 75 04 05 07 78 52 12 50 77 91 08)
#(49 49 99 40 17 81 18 57 60 87 17 40 98 43 69 48 04 56 62 00)
#(81 49 31 73 55 79 14 29 93 71 40 67 53 88 30 03 49 13 36 65)
#(52 70 95 23 04 60 11 42 69 24 68 56 01 32 56 71 37 02 36 91)
#(22 31 16 71 51 67 63 89 41 92 36 54 22 40 40 28 66 33 13 80)
#(24 47 32 60 99 03 45 02 44 75 33 53 78 36 84 20 35 17 12 50)
#(32 98 81 28 64 23 67 10 26 38 40 67 59 54 70 66 18 38 64 70)
#(67 26 20 68 02 62 12 20 95 63 94 39 63 08 40 91 66 49 94 21)
#(24 55 58 05 66 73 99 26 97 17 78 78 96 83 14 88 34 89 63 72)
#(21 36 23 09 75 00 76 44 20 45 35 14 00 61 33 97 34 31 33 95)
#(78 17 53 28 22 75 31 67 15 94 03 80 04 62 16 14 09 53 56 92)
#(16 39 05 42 96 35 31 47 55 58 88 24 00 17 54 24 36 29 85 57)
#(86 56 00 48 35 71 89 07 05 44 44 37 44 60 21 58 51 54 17 58)
#(19 80 81 68 05 94 47 69 28 73 92 13 86 52 17 77 04 89 55 40)
#(04 52 08 83 97 35 99 16 07 97 57 32 16 26 26 79 33 27 98 66)
#(88 36 68 87 57 62 20 72 03 46 33 67 46 55 12 32 63 93 53 69)
#(04 42 16 73 38 25 39 11 24 94 72 18 08 46 29 32 40 62 76 36)
#(20 69 36 41 72 30 23 88 34 62 99 69 82 67 59 85 74 04 36 16)
#(20 73 35 29 78 31 90 01 74 31 49 71 48 86 81 16 23 57 05 54)
#(01 70 54 71 83 51 54 69 16 92 33 48 61 43 52 01 89 19 67 48)))
(display (p011 (list (let ((prod-table (prod data)))
(prod-table 1 0)
(prod-table 0 1)
(prod-table 1 1)
(prod-table 1 -1)))
'(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)
'(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)))

**デフォルトの名無しさん** · 2009/05/05(火) 14:10:19

具現化できない
infoを読んでいる時間が長いんだが

というか、あと5分ぐらいで俺は制限時間の1時間だ
思ったより数学・数学していなくて、おもしろいね
11を解いたか、すごいなあ

13をやっているんだけど
答えに近づく解法をしているとは、思いながらやっている

36 · 2009/05/05(火) 14:35:32

実はProblem 12も解いたんだけど速度がダメすぎた。
N=500だと1時間以上かかりそう。

**デフォルトの名無しさん** · 2009/05/05(火) 14:53:14

おれは無解答で・・・
こういう問題が来るとは思わなかったな

ひさしぶりにSchemeを触ったけど、楽しいね
宿題って感じで毎日1問ぐらいがいいなあ

ググったら、あと解答らしきアドレスをみつけたんですけど、どうしましょうか?
答えの数字のみのやつ

あとコードパットに解答を貼って、リンクしたほうがいいんじゃないかと思う
みんなが平気ならかまわないけど
>>38
tableって39さんと同じ形式?

**デフォルトの名無しさん** · 2009/05/06(水) 01:17:51

気付いたらもう終わっているという…
せっかくなので以前書いたProblem 12を高速化してみようかと書き直し始めたら軽く1時間越えた。
途中経過 ttp://paste.lisp.org/display/79705
SBCLでN=1000が6秒くらい。本体の方の工夫が全く書けてないのでもう少し速くなると思う。

**デフォルトの名無しさん** · 2009/05/06(水) 09:21:51

>>43
三角数の値を求めるだけの問題だから、問題ないけど
項の値が+1されているね

うちの環境だと15秒だったw

**デフォルトの名無しさん** · 2009/05/06(水) 13:17:26

メモ化した意味がなかったので微修正。(26行目あたり)
ttp://paste.lisp.org/display/79738
5倍速くらいになった。あと>>44も修正。
本体の方は変えてもあまり意味ないような気がしてきたからもういいや。

**デフォルトの名無しさん** · 2009/05/06(水) 22:15:29

>>45
うちのマシンで一秒切るね

**デフォルトの名無しさん** · 2009/05/06(水) 22:16:50

>>45
本体の最後こうすると速くなったよ

(do ((i 2 (1+ i)))
((<= n (if (oddp i)
(* (factors-count i) (factors-count (/ (1+ i) 2)))
(* (factors-count (/ i 2)) (factors-count (1+ i)))))
(values (* i (1+ i) 1/2) i)))

45 · 2009/05/06(水) 23:01:46

あーそのループは考えてたんだけど単純にかけ算で良かったんだ。
N=1000で0.1秒切るなぁ。すばらしい。

**デフォルトの名無しさん** · 2009/05/07(木) 01:40:44

13番の50桁問題、難しくないじゃん
guileで50桁前後の扱えないのかと思っていたら、普通に扱えた

**デフォルトの名無しさん** · 2009/05/08(金) 13:11:15

がいらーとごーしゃーのけんかはあるの？

**デフォルトの名無しさん** · 2009/05/08(金) 21:34:43

http://tsushima.2ch.net/test/read.cgi/newsplus/1241732267/2
これ面白いなｗ
こんな文章を作るスクリプトなんかどうだろ

**デフォルトの名無しさん** · 2009/05/08(金) 21:44:51

>>51
ふつうによめちゃうなあ
文節をわけて、最初と最後を強調して、錯覚させているのもあるし、ひらがなもそうだよね

**デフォルトの名無しさん** · 2009/05/09(土) 00:59:05

>>51
もう誰か作ってたよ、はてなの誰かのブログでみた。

**デフォルトの名無しさん** · 2009/05/09(土) 01:27:35

commonlispで書いてみたよ。
clispとSBCLで確認済み。
ttp://codepad.org/Et9qPCmE
>>53
それどこ？IDだけでもplz

**デフォルトの名無しさん** · 2009/05/09(土) 09:36:16

プロジェクトオイラーの問題11をCで解いてしまいますた。

問題12はclispで20秒で解けた
答えは12375番目の76576500という三角数です。

プログラムは ↓

(defun dv-sub (n)
(do ((x 1 (1+ x)) (y n) (a nil))
((>= x y) a)
(if (= (mod n x) 0)
(progn
(setf a (cons x (cons (/ n x) a)))
(setf y (/ n x))))))
(time
(do* ((x 2 (1+ x)) (y 3 (+ y x)) (a (dv-sub y) (dv-sub y)))
((> (length a) 500) (format t "~A ~A~%" x y)))
)

**デフォルトの名無しさん** · 2009/06/17(水) 04:23:46

スクリプト言語らしい使い方はしないのか。

保守