解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
マルバツゲーム
(Nested
Flatten)
As a reply to the following comment: まさぽん: srfi-1 の lset<= も...(#6230) [show]
まさぽん
#6230()
[
Arc
]
Rating0/0=0.00
実行結果:
arc> (nplay-ox 10000)
o win: 5835
x win: 2889
draw: 1276
nil
(def lset<= (s1 s2) (if (is s1 nil) t (mem (car s1) s2) (lset<= (cdr s1) s2) nil)) (def check (lis) (when (< (len lis) 3) nil) (or (lset<= '(1 2 3) lis) (lset<= '(1 4 7) lis) (lset<= '(1 5 9) lis) (lset<= '(2 5 8) lis) (lset<= '(3 5 7) lis) (lset<= '(3 6 9) lis) (lset<= '(4 5 6) lis) (lset<= '(7 8 9) lis))) (def o-player (omark xmark pool) (withs (picked (random-elt pool) om (cons picked omark)) (if (check om) 'o (is (cdr pool) nil) 'd (x-player om xmark (rem picked pool))))) (def x-player (omark xmark pool) (withs (picked (random-elt pool) xm (cons picked xmark)) (if (check xm) 'x (o-player omark xm (rem picked pool))))) (def nplay-ox (n) (let wl (map (fn (_) (o-player nil nil (range 1 9))) (range 1 n)) (prn "o win: " (count 'o wl)) (prn "x win: " (count 'x wl)) (prn "draw: " (count 'd wl)) nil))Rating0/0=0.00-0+
[ reply ]