ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

高校数学の質問スレ Part434

PC,ｽﾏﾎ,PHSは ULA べっかんこ 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>977 > ■haskellに移植 > > import Data.List > import Data.List.Split > m = 5 -- 縦マス(短軸） > n = 6 -- 横マス(長軸) > k = 5 -- 宝の数 > q = [0..m*n-1] > matQ = chunksOf n q > matP = transpose matQ --行列を転置して > p = concat matP -- 配列に変換 > > combinations :: Int -> [a] -> [[a]] > combinations 0 _ = [ [] ] > combinations n xs = [ y:ys | y:xs' <- tails xs, ys <- combinations (n-1) xs'] > treasure = combinations k q -- 宝の組み合わせ > ip y = minimum $ map(\x -> elemIndices x p!!0) y　--　宝の、配列ｐでのindex列を求めて最小値を返す > iq y = minimum $ map(\x -> elemIndices x q!!0) y > > idxp = map ip treasure -- 宝の組み合せで実行して > idxq = map iq treasure > > p_q = zipWith (-) idxp idxq -- 差をとって大小判別 > p1st = length $ filter (<0) p_q　-- 短軸方向探索ｐが先に宝をみつける > q1st = length $ filter (>0) p_q > draw = length $ filter (==0) p_q > > main = do > putStrLn $ "p1st = " ++ show p1st ++ ", q1st = " ++ show q1st ++ ", draw = " ++ show draw > > >matrix.exe > p1st = 55469, q1st = 54036, draw = 33001
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.276s*