解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
立方根の計算
(Nested
Flatten)
As a reply to the following comment: まさぽん: 整数部分は配列(リスト)のインデックスで...(#6002) [show]
まさぽん
#6002()
[
Arc
]
Rating0/0=0.00
三乗根がピッタリ整数の場合は、整数で答えを出すようにしたので、ちょっと長くなりました。
実行例:
arc> (search-cube-root 10.0)
2.1544346900318487
arc> (expt (search-cube-root 10.0) 3)
9.999999999999513
arc> (search-cube-root 100.0)
4.641588833612786
arc> (expt (search-cube-root 100.0) 3)
100.00000000000048
arc> (search-cube-root 125.0)
5
(= cube-list (map [expt _ 3] (range 1 10))) (= acc 0.000000000001) (def search-real (cr of rn) (let gosa (- rn (expt cr 3)) (if (< (abs gosa) acc) cr (if (< 0 gosa) (search-real (+ cr of) (/ of 2) rn) (search-real (- cr of) (/ of 2) rn))))) (def search-cube-root (rn) (if (is (type rn) 'int) (let i (trunc rn) (if (mem i cube-list) (+ (pos i cube-list) 1) (search-real (+ (pos i (sort < (cons i cube-list))) 0.5) 0.25 rn))) (search-real (+ (pos rn (sort < (cons rn cube-list))) 0.5) 0.25 rn)))Rating0/0=0.00-0+
1 reply [ reply ]