このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1286978599/971
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文(含コード&リンク) 
#    
#  *記号を使ってでsin曲線を描け。 
#  

'*記号を使ってsin曲線を描け。' :-
        '*記号を使ってでsin曲線を描け。'(1,LL),
        転置(LL,LL2),
        append(_,[L|R],LL2),
        concat_atom(L,A),
        write_formatted('%t\n',[A]),
        R = [].

'*記号を使ってsin曲線'(X,[]) :- X > 629,!.
'*記号を使ってsin曲線'(X,[L|R]) :-
        length(L0,101),
        Y is truncate((100 * sin((X-1) * pi / 100))+101),
        list_nth(Y,L0,'*'),
        reverse(L0,L1),
        全ての変数を空白に(L0),
        X2 is X + 1,
        '*記号を使ってsin曲線'(X2,R).

全ての変数を空白に([]) :- !.
全ての変数を空白に([V|R]) :-
        var(V),
        V = ' ',
        全ての変数を空白に(R),!.
全ての変数を空白に([_|R]) :-
        全ての変数を空白に(R),!.