このディレクトリの索引


'10未満且つ、3または5の倍数は、3、5、6、9であり、左の総和は23である。
同様に、1000未満且つ、3または5の倍数の総和を求めよ。'(_1000未満且つ_3または5の倍数の総和) :-
        '10未満且つ、3または5の倍数は、3、5、6、9であり、左の総和は23である。',
        '同様に、1000未満且つ、3または5の倍数の総和を求めよ。'(_1000未満且つ_3または5の倍数の総和).

'10未満且つ、3または5の倍数は、3、5、6、9であり、左の総和は23である。' :-
        '10未満且つ、3または5の倍数は、3、5、6、9であり、',
        '左の総和は'([3,5,6,9],_左の総和は),
        _左の総和は = 23.

'10未満且つ、3または5の倍数は、3、5、6、9であり、' :-
        findall(_10未満且つ_3または5の倍数,(
                    '10未満且つ、3または5の倍数は、'(_10未満且つ_3または5の倍数)),
                _10未満且つ_3または5の倍数ならび),
        '3、5、6、9であり、'(_10未満且つ_3または5の倍数ならび,[3,5,6,9]).

'10未満且つ、3または5の倍数は、'(_10未満且つ_3または5の倍数) :-
        between(1,9,_10未満且つ_3または5の倍数),
        '3または5の倍数'(_10未満且つ_3または5の倍数).

'3、5、6、9であり、'([],[]).
'3、5、6、9であり、'([N|R1],L2) :-
        select(N,L2,R2),
        '3、5、6、9であり、'(R1,R2).

'左の総和は'(_左の,_総和は) :-
        sumlist(_左の,_総和は).

'同様に、1000未満且つ、3または5の倍数の総和を求めよ。'(_1000未満且つ_3または5の倍数の総和) :-
        findall(_1000未満且つ_3または5の倍数,(
                    '1000未満且つ、3または5の倍数は、'(_1000未満且つ_3または5の倍数)),
                _1000未満且つ_3または5の倍数ならび),
        '左の総和は'(_1000未満且つ_3または5の倍数ならび,_1000未満且つ_3または5の倍数の総和).

'1000未満且つ、3または5の倍数は、'(_1000未満且つ_3または5の倍数) :-
        between(1,999,_1000未満且つ_3または5の倍数),
        3または5の倍数'(_1000未満且つ_3または5の倍数).

'3または5の倍数'(_3の倍数) :-
        0 is _3の倍数 mod 3,!.
'3または5の倍数'(_5の倍数) :-
        0 is _5の倍数 mod 5.