Prolog 中的条件编写

I have Prolog包含飞机时刻表的数据库。它看起来是这样的：

fly(id, from, to, days(1, 0, 1, 0, 1, 0, 1)).

正如你所看到的，有 7 个值days谓词 - 从星期一到星期日。我想做的是每天打印，价值所在1，但将其打印为文本。我试图使用if - else声明，但在这种情况下它不起作用：

(   
        A = 1 -> write(monday), nl;
        (
            B = 1 -> write(tuesday), nl;
            (
                C = 1 -> write(wednesday), nl;
                (
                    D = 1 -> write(thursday), nl;
                    (
                        E = 1 -> write(friday), nl;
                        (
                            F = 1 -> write(saturday), nl;
                            (
                                G = 1 -> write(sunday), nl
                            )
                        )
                    )
                )
            )
        )
    )

在示例中，它应该打印 4 天：

monday
wednesday
friday
sunday

我怎样才能做到这一点？

我找到了一种方法来做到这一点，基本上，您需要创建 2 个列表。第一个是您的日子，第二个是日子的名称。然后，您需要迭代它们，但是，因为事实上没有loop在 Prolog 中进行构造时，您必须使用递归函数来完成此操作。

以下是我的实现方式：

iterate_weeks([], _).
iterate_weeks([H|T], [X|Y]) :- H = 1, write(X), nl, iterate_weeks(T, Y).
iterate_weeks([H|T], [_|Y]) :- H = 0, iterate_weeks(T, Y).

print_fly_days(From, To):- 
    fly(_, From, To, _, _, days(A,B,C,D,E,F,G)),
    L = [A,B,C,D,E,F,G],
    T = [monday, tuesday, wednesday, thursday, friday, saturday, sunday],
    iterate_weeks(L, T).