このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1267796762/465
#  【 課題 】 
#  􀂄 2.2 IfLadder.javaを書換え,2桁の数値をカナで読む 
#  IfLadder2.javaを書け. 
#  􀂉 実行例) > \IfLadder>java IfLadder4 2 
#  2 はニー 
#  \IfLadder>java IfLadder4 73 
#  73 はナナサン 

program :-
        user_parameters(_パラメータ),
        _パラメータ = [Atom],
        atom_to_term(Atom,_2桁の数値,_),
        _2桁の数値 >= 10,
        _2桁の数値 =< 99,
        '2桁の数値をカナで読む'(_2桁の数値).

'2桁の数値をカナで読む'(_2桁の数値) :-
        number_chars(_2桁の数値,L),
        append(_,[A|R],L),
        数字カナ読み(A,_カナ読み),
        write_formatted('%t',[_カナ読み]),
        R = [].

数字カナ読み('0',ゼロ).
数字カナ読み('1',イチ).
数字カナ読み('2',ニー).
数字カナ読み('3',サン).
数字カナ読み('4',シー).
数字カナ読み('5',ゴー).
数字カナ読み('6',ロク).
数字カナ読み('7',シチ).
数字カナ読み('8',ハチ).
数字カナ読み('9',クー).