このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/885
#  ・キーボードから入力された2つの整数a,bに対して,aからbまでの総和を求めるプログラム 
#   
#  ・二つの入力した整数値x,yのxのy乗を計算するプログラム 
#   
#  ・画面に(m,n)(n=1....5,m=1....5)とその掛け算の結果を表示するプログラム 
#   
#  ・画面の一行目には*を1個、二行目には2個、三行目には3個のように表示するプログラム 
#   
#  単位かかってるんだ。さっぱりわからんから頼む 
#   
# 
# 

キーボードから入力された2つの整数a,bに対して,aからbまでの総和を求める(_総和) :-
        'キーボードから入力された2つの整数a,b'(_a,_b),
        findsum(N,(
                    for(_a,N,_b)),
                _総和).

'キーボードから入力された2つの整数a,b'(_a,_b) :-
        キーボードから整数を入力(_a),
        キーボードから整数を入力(_b).

キーボードから整数を入力(_整数) :-
        get_line(Line),
        キーボードからの整数入力診断(Line,_整数).
キーボードから整数を入力(_整数) :- キーボードから整数を入力(_整数).

キーボードからの整数入力診断(Line,_整数) :-
        atom_to_term(Line,_整数,_),
        integer(_整数),!.
キーボードからの整数入力診断(Line,_整数) :-
        write_formatted('入力された %t からは整数は得られませんでした。再入力をお願いします。\n',[Line]),
        fail.

'二つの入力した整数値x,yのxのy乗を計算する'(_x,_y,_xのy乗) :-
        キーボードから整数を入力(_x),
        キーボードから整数を入力(_y),
        length(Lx,_x),
        length(Ly,_y),
        '二つの入力した整数値x,yのxのy乗をならび計算する'(Lx,Ly,L),
        length(L,_xのy乗).

'二つの入力した整数値x,yのxのy乗をならび計算する'(L1,[],[_]) :- !.
'二つの入力した整数値x,yのxのy乗をならび計算する'(L1,[_],L1) :- !.
'二つの入力した整数値x,yのxのy乗をならび計算する'(L1,[_|R2],L) :-
        '二つの入力した整数値x,yのxのy乗をならび計算する'(L1,R2,L3),
        append(L1,L3,L).

'画面に(m,n)(n=1....5,m=1....5)とその掛け算の結果を表示する' :-
        for(1,_n,5),
        write_formatted('%t ',[_n]),
        for(1,_m,5),
        X is _m * _n,
        write_formatted('%t ',[X]),
        _m = 5,
        write('\n'),
        _n = 5.

'画面の一行目には*を1個、二行目には2個、三行目には3個のように表示する' :-
        '一行目には*を1個表示する',
        '二行目には*を2個表示する',
        '三行目には*を3個表示する'.

'一行目には*を1個表示する' :-
        write('*\n').

'二行目には*を2個表示する' :-
        write('**\n'),

'三行目には*を3個表示する' :-
        write('***\n'),