09/05/06 22:15:29
>>45
うちのマシンで一秒切るね
47:デフォルトの名無しさん
09/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)))
48:45
09/05/06 23:01:46
あーそのループは考えてたんだけど単純にかけ算で良かったんだ。
N=1000で0.1秒切るなぁ。すばらしい。
49:デフォルトの名無しさん
09/05/07 01:40:44
13番の50桁問題、難しくないじゃん
guileで50桁前後の扱えないのかと思っていたら、普通に扱えた
50:デフォルトの名無しさん
09/05/08 13:11:15
がいらーとごーしゃー のけんか は あるの？
51:デフォルトの名無しさん
09/05/08 21:34:43
ｽﾚﾘﾝｸ(newsplus板:2番)
これ面白いなｗ
こんな文章を作るスクリプトなんかどうだろ
52:デフォルトの名無しさん
09/05/08 21:44:51
>>51
ふつうによめちゃうなあ
文節をわけて、最初と最後を強調して、錯覚させているのもあるし、ひらがなもそうだよね
53:デフォルトの名無しさん
09/05/09 00:59:05
>>51
もう誰か作ってたよ、はてなの誰かのブログでみた。
54:デフォルトの名無しさん
09/05/09 01:27:35
commonlispで書いてみたよ。
clispとSBCLで確認済み。
URLﾘﾝｸ(codepad.org)
>>53
それどこ？IDだけでもplz
55:デフォルトの名無しさん
09/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)))
)
56:デフォルトの名無しさん
09/06/17 04:23:46
スクリプト言語らしい使い方はしないのか。
保守
57:デフォルトの名無しさん
09/06/17 05:27:54
>>56
どういう意味？
58:デフォルトの名無しさん
09/06/20 00:30:14
文字どおりじゃ
59:デフォルトの名無しさん
09/06/23 21:33:39
1.9.0リリースsage
時間ができたらいじってみよう
60:デフォルトの名無しさん
09/07/17 21:36:54
1.9.1リリースsage
61:デフォルトの名無しさん
09/07/21 11:47:36
guileってまだメンテされてたのかｗ
gaucheスレかと思った
62:デフォルトの名無しさん
09/08/18 22:29:10
1.9.2リリースsage
63:デフォルトの名無しさん
09/09/16 23:27:08
1.9.3リリースsage
64:デフォルトの名無しさん
09/10/16 21:07:11
1.9.4リリースsage
65:デフォルトの名無しさん
09/10/16 22:55:36
1.9.5リリースsage
66:デフォルトの名無しさん
09/10/17 00:19:13
まだGNU Guile 1.9.5はありません。
現時点の最新版は1.8.7と1.9.4 (alpha)です。
git@sv / guile.git / summary
URLﾘﾝｸ(git.savannah.gnu.org)
Index of /pub/gnu/guile
URLﾘﾝｸ(ftp.gnu.org)