1:- module(ap_compare, [compare_responses/2]).    2
    3:- use_module(ap_model).    4:- use_module(ap_validation).

    8compare_responses(Input, Results) :-
    9    ap_validation:normalized_scenario(Input, S),
   10    variants(S, Variants),
   11    findall(_{variant:Name, report:R},
   12            ( member(Name-V, Variants), ap_model:score(V, R) ), Results).
   13
   14variants(S, [
   15    'baseline'-S,
   16    'dialog_dan_respons_cepat'-D,
   17    'klarifikasi_tinggi'-K,
   18    'review_atau_penundaan_kebijakan'-P,
   19    'respons_minimal'-M,
   20    'stress_test_intervensi_tinggi_bukan_rekomendasi'-H
   21]) :-
   22    put_dict(_{govt_responsiveness:82, govt_communication:78, intervention_pressure:15}, S, D),
   23    put_dict(_{govt_communication:88, govt_responsiveness:60}, S, K),
   24    put_dict(_{govt_responsiveness:90, trigger:35, grievance:45}, S, P),
   25    put_dict(_{govt_communication:20, govt_responsiveness:20}, S, M),
   26    put_dict(_{intervention_pressure:90, govt_responsiveness:20}, S, H)