test/Tools/isac/Minisubpbl/150a-add-given-Maximum.sml
changeset 60748 d9bae125ba2a
parent 60746 3ba85d40b3c7
child 60750 d4f6bfc1eb70
     1.1 --- a/test/Tools/isac/Minisubpbl/150a-add-given-Maximum.sml	Mon Sep 18 08:38:33 2023 +0200
     1.2 +++ b/test/Tools/isac/Minisubpbl/150a-add-given-Maximum.sml	Mon Sep 18 10:26:35 2023 +0200
     1.3 @@ -174,8 +174,8 @@
     1.4          |> flat
     1.5          |> distinct op =
     1.6      val variants_separated = map (filter_variants' i_model) all_variants
     1.7 -    val sums_corr = map (cnt_corrects) variants_separated
     1.8 -    val sum_variant_s = arrange_args sums_corr (1, all_variants)
     1.9 +    val sums_corr = map (Model_Def.cnt_corrects) variants_separated
    1.10 +    val sum_variant_s = Model_Def.arrange_args sums_corr (1, all_variants)
    1.11  (*+*)val [(0, 1), (0, 2), (0, 3)] = sum_variant_s
    1.12      val (_, max_variant) = hd (*..crude decision, up to improvement *)
    1.13        (sort (fn ((i, _), (j, _)) => int_ord (i, j)) sum_variant_s)
    1.14 @@ -564,8 +564,8 @@
    1.15          |> flat
    1.16          |> distinct op =
    1.17      val variants_separated = map (filter_variants' i_model) all_variants
    1.18 -    val sums_corr = map (cnt_corrects) variants_separated
    1.19 -    val sum_variant_s = arrange_args sums_corr (1, all_variants)
    1.20 +    val sums_corr = map (Model_Def.cnt_corrects) variants_separated
    1.21 +    val sum_variant_s = Model_Def.arrange_args sums_corr (1, all_variants)
    1.22      val (_, max_variant) = hd (*..crude decision, up to improvement *)
    1.23        (sort (fn ((i, _), (j, _)) => int_ord (i, j)) sum_variant_s)
    1.24      val i_model_max =