このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1357748713/610
#  [1] 授業単元:プログラミング基礎I 
#  [2] 問題文(含コード&リンク): 
#  入力したDNA塩基配列中にある塩基 t, c, a, g それぞれの個数をカウントするプログラムを作成せよ. 
#   
#  【実行例】 
#  % ./a.out 
#  tataatccg ← 入力し,リターンを押して ^D 
#  Thymine (t) : 3 
#  Cytosine (c) : 2 
#  Adenine (a) : 3 
#  Guanine (g) : 1 
#  % 
#   

program :-
        '入力したDNA塩基配列中にある塩基 t, c, a, g それぞれの個数をカウントする'.

'入力したDNA塩基配列中にある塩基 t, c, a, g それぞれの個数をカウントする' :-
        入力したDNA塩基配列(_DNA配列),
        forall((
                    塩基(_塩基名,_塩基記号),
                    count(sub_atom(_DNA配列,_,1,_,_塩基記号),_個数)),
                writef('%t (%t) : %t\n',[_塩基名,_塩基記号,_個数])).


入力したDNA塩基配列(_DNA配列) :-
        write('DNA塩基配列を入力してください : '),
        get_line(_DNA配列).

塩基('Thymine',t).
塩基('Cytosine',c).
塩基('Adenine',a).
塩基('Guanine',g).