このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/937
#  この問題ができません。誰かお願いします。 
#   
#  入力したDNA塩基配列中にある塩基 t, c, a, gそれぞれの個数をカウントするプログラムを作成せよ. 
#  【実行例】 
#   
#      % ./a.out 
#      tataatccg ← 入力し,リターンを押して ^D 
#      Thymine  (t) : 3 
#      Cytosine (c) : 2 
#      Adenine  (a) : 3 
#      Guanine  (g) : 1 
#      % 
#   

'入力したDNA塩基配列中にある塩基 t, c, a, gそれぞれの個数をカウントする' :-
        get_chars(Chars),
        count(member(t,Chars),_t),
        count(member(c,Chars),_c),
        count(member(a,Chars),_a),
        count(member(g,Chars),_g),
        write_formatted('Thymine  (t) : %t \nCytosine (c) : %t \nAdenine  (a) : %t \nGuanine  (g) : %t \n',[_t,_c,_a,_g]).