解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
最大公約数（除算禁止）
(Nested
Flatten)
As a reply to the following comment: kozima: gcd は組み込みで存在しますが、こんな...(#4793) [show]
kozima
#4793()
[
Common Lisp
]
Rating4/4=1.00
gcd は組み込みで存在しますが、こんな式を基に書いてみました。呼び出し回数 1937 回。
(defun *gcd (x y &optional (acc 1) (count 0)) (incf count) (cond ((= x y) (values count (* acc x))) ((and (oddp x) (oddp y)) ; odd, odd (*gcd (min x y) (ash (abs (- x y)) -1) acc count)) ((oddp x) ; odd, even (*gcd x (ash y -1) acc count)) ((oddp y) ; even, odd (*gcd (ash x -1) y acc count)) (t ; even, even (*gcd (ash x -1) (ash y -1) (ash acc 1) count)))) (defun fib (x) (loop with l = '(1 1) for i from 2 to x do (push (+ (car l) (cadr l)) l) finally (return (car l)))) (format t "~{Called ~D times, result is ~D~}" (multiple-value-list (*gcd (fib 2000) (fib 1999))))Rating4/4=1.00-0+
1 reply [ reply ]