このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1361082416/48
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク): 
#  FizzBuzz問題の要領で、1から100までの整数を、かいぎょう区切りで出力せよ、ただし、 
#  3の倍数なら「Fizz」を、7の倍数なら「Buzz」を、13の倍数なら「hoge」を、 
#  数値の代わりに出力することとする 
#  

'1から100までの整数をかいぎょう区切りで出力せよ、ただし、3の倍数なら「Fizz」を、7の倍数なら「Buzz」を、13の倍数なら「hoge」を、数値の代わりに出力することとする' :-
        '1から100までの整数を'(_整数),
        'かいぎょう区切りで出力せよ、ただし、3の倍数なら「Fizz」を、7の倍数なら「Buzz」を、13の倍数なら「hoge」を、数値の代わりに出力することとする'(_整数),
        _整数 = 100.

'1から100までの整数を'(_整数) :-
        between(1,100,_整数).

'かいぎょう区切りで出力せよ、ただし、3の倍数なら「Fizz」を、7の倍数なら「Buzz」を、13の倍数なら「hoge」を、数値の代わりに出力することとする'(N) :-
        0 is N mod 3,
        writef('%t',['Fizz']),
        fail.
'かいぎょう区切りで出力せよ、ただし、3の倍数なら「Fizz」を、7の倍数なら「Buzz」を、13の倍数なら「hoge」を、数値の代わりに出力することとする'(N) :-
        0 is N mod 7,
        writef('%t',['Buzz']),
        fail.
'かいぎょう区切りで出力せよ、ただし、3の倍数なら「Fizz」を、7の倍数なら「Buzz」を、13の倍数なら「hoge」を、数値の代わりに出力することとする'(N) :-
        0 is N mod 13,
        writef('%t',[hoge]),
        fail.
'かいぎょう区切りで出力せよ、ただし、3の倍数なら「Fizz」を、7の倍数なら「Buzz」を、13の倍数なら「hoge」を、数値の代わりに出力することとする'(N) :-
        \+(0 is N mod 3),
        \+(0 is N mod 7),
        \+(0 is N mod 13),
        writef('%t',[N]),
        fail.
'かいぎょう区切りで出力せよ、ただし、3の倍数なら「Fizz」を、7の倍数なら「Buzz」を、13の倍数なら「hoge」を、数値の代わりに出力することとする'(_) :-
        write('\n').