解答・コメントを送る方法
コメントを送るには2つの方法があります。
- 匿名でコメントを書くログインせずにコメントを書くことができます。 名前は「匿名」となります。
- アカウントを作成してコメントを書くアカウントを作成すると、記名での投稿ができます。 また、プロフィールページが作成され、 簡単なプロフィールや 統計情報が表示されるようになります。
投稿ボタンを押す前に以下の文章を確認してください
- 当サイトへの投稿は クリエイティブ・コモンズ・ライセンス BY(表示)および、その解釈に同意するものとみなされます。各ページには下のようにライセンス表示が行われます。
- あなたの投稿したコード・コメント・トピックが再利用・添削されることを望まない場合は、投稿をお控えください。
- 自分が書いていない、ウェブサイトや書籍などからの無断コピーは著作権の侵害です。著作権者の了解を得るか、自分で0から書いてください。
- 著作権の侵害、名誉毀損、など投稿内容に問題がある場合、削除することがあります。
- これらのことにあなたはあらかじめ同意したものとみなされます。
Post comment
Post a comment to the following challenge:
魔方分割数
(Nested
Flatten)
As a reply to the following comment: lethevert: いくつか高速化を試して、一番効果の高かっ...(#5217) [show]
lethevert
#5217()
[
Clean
]
Rating3/3=1.00
いくつか高速化を試して、一番効果の高かったcomb_sumでの置き換えだけを適用したもの。
n=5で、2分20秒
効果があまりなかったものは、コメントに記述してあります。
see: AltEnvライブラリを使っています
module Main import Bool, Int, List, Array, ValueCast, StringCast, System, Misc Start = length $ divide n s ls where n = toInt getCommandLine.[1] ls = [1..n*n] s = sum ls / n divide n s ls = search ls where search [] = [[]] search ls = comb_sum s n ls |> map (\f = let (f0,fr) = (head f, tail f) rr = filter (\e = not (e <= f0 || fr contains e)) ls in [[f:t] \\ t <- search rr]) |> foldr (++) [] comb_sum :: Int Int [Int] -> [[Int]] comb_sum 0 0 _ = [[]] comb_sum _ 0 _ = [] comb_sum s _ [] = [] comb_sum s n [e:rr] | e > s = comb_sum s n rr = map ((:>) e) (comb_sum (s-e) (n-1) rr) ++ comb_sum s n rr /* //1. filterの部分をrest_of関数で置き換え search [] = [[]] search ls = comb_sum s n ls |> map (\f = let rr = rest_of f ls in [[f:t] \\ t <- search rr]) |> foldr (++) [] rest_of _ [] = [] rest_of es=:[e:ee] ls=:[l:ll] | l <= e = rest_of es ll = rm ee ls where rm _ [] = [] rm [] ls = ls rm es=:[e:ee] ls=:[l:ll] | l < e = [l: rm es ll] | e == l = rm es ll = rm ee ls //2. searchで直接グループわけの個数を計算 search [] = 1 search ls = comb_sum s n ls |> map (\f = let rr = rest_of f ls in search rr) |> sum */Rating3/3=1.00-0+
[ reply ]