このディレクトリの索引

# 出典 :: Python の宿題ここで答えます Part 1 #954 # 1000よりも小さいすべての「3または5の倍数」の合計を計算し,結果を表示するプログラムを作成せよ. # # '1000よりも小さいすべての「3または5の倍数」の合計を計算し,結果を表示する' :- '1000よりも小さいすべての「3または5の倍数」の合計を計算し,'(_合計), 結果を表示する(_合計). '1000よりも小さいすべての「3または5の倍数」の合計を計算し,'(_合計) :- findsum(_1000よりも小さい3または5の倍数,'1000よりも小さい3または5の倍数'(_1000よりも小さい3または5の倍数),_合計). findsum(_射影項,_目標,_合計) :- findall(_射影項,_目標,_解ならび), sum_list(_解ならび,_合計). '1000よりも小さい3または5の倍数'(_1000よりも小さい3または5の倍数) :- '1000よりも小さい'(_1000よりも小さい3または5の倍数), '3または5の倍数'(_1000よりも小さい3または5の倍数). '1000よりも小さい'(_1000よりも小さい3または5の倍数) :- between(1,1000,_1000よりも小さい3または5の倍数), _1000よりも小さい3または5の倍数 < 1000. '3または5の倍数'(N) :- '3の倍数'(N),!. '3または5の倍数'(N) :- '5の倍数'(N). '3の倍数'(N) :- 0 is N mod 3. '5の倍数'(N) :- 0 is N mod 5. 結果を表示する(_合計) :- write(_合計).