解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
水の移し替えパズル
(Nested
Flatten)
As a reply to the following comment: まさぽん: その必要はないと知りつつも、律儀に水を移...(#5988) [show]
まさぽん
#5988()
[
Arc
]
Rating0/0=0.00
(def mizu (waters) (let index (indexing waters) (if (is index nil) nil (with (lcr '((2 -1 -1) (-1 2 -1) (-1 -1 2)) n1 (index 0) n2 (index 1) aw (index 2)) ((rfn lp (w step) ; (prn w) (if (is (w n1) (w n2) 0) step (is (w n1) 0) (lp (map + (lcr n1) w) (+ step 1)) (< (w aw) (/ (- (w n2) (w n1)) 3)) (lp (map + (lcr aw) w) (+ step 1)) (isnt (w n2) (w n1)) (lp (map + (lcr n1) w) (+ step 1)) (lp (map + (lcr aw) w) (+ step 1)))) waters 0))))) (def indexing (ls) (withs (mm (map [pos _ ls] (sort < ls)) min (ls (mm 0)) mid (ls (mm 1)) max (ls (mm 2))) (if (is 0 (mod (- mid min) 3)) (list (mm 0) (mm 1) (mm 2)) (is 0 (mod (- max min) 3)) (list (mm 0) (mm 2) (mm 1)) (is 0 (mod (- max mid) 3)) (list (mm 1) (mm 2) (mm 0)) nil)))Rating0/0=0.00-0+
[ reply ]