shuffled_permがきちんとshuffleするように修正してみた。 shuffled_perm _ [] _ = [[]] shuffled_perm frnd ls s # (ls,rnd) = shuffle ls (frnd s) (slst,rnd) = map_shuffle [] ls rnd arr = asArray {a \\ a <- slst} (n,arr) = usize arr = loop n arr …

枝刈りを入れてみた。pruningの定義から、shuffled_permを追い出してしまいたいのだけれど、型付けの制限を回避しないといけないので、もう少し検討。 import StdEnv, OptEnv, MersenneTwister /* shuffled_perm :: * pruning_function random_list_generato…