濁音には、対応していません。つまりバグです。
全角カタカナから半角カタカナへ変換します。
（ア→ｱ オ→ｵ ン→ﾝ）
五十音範囲としました。（拗音、濁音などは除く）
♪ プログラムコード
code
sub_atom/5 をネットで検索してください。
% cat string.pl k_hk(K) :- _ア= 'アイウエオ\ カキクケコ\ サシスセソ\ タチツテト\ ナニヌネノ\ ハヒフヘホ\ マミムメモ\ ヤーユーヨ\ ラリルレロ\ ワーーーヲ\ ン', _ｱ= 'ｱｲｳｴｵ\ ｶｷｸｹｺ\ ｻｼｽｾｿ\ ﾀﾁﾂﾃﾄ\ ﾅﾆﾇﾈﾉ\ ﾊﾋﾌﾍﾎ\ ﾏﾐﾑﾒﾓ\ ﾔｰﾕｰﾖ\ ﾗﾘﾙﾚﾛ\ ﾜｰｰｰｦ\ ﾝ', sub_atom( _ア,F,L,E,K ), sub_atom( _ｱ,F,L,E,Ans ), write(Ans),!,fail.
実行例
% swipl -q ?- [string]. /* string.pl を読み込む */ % string compiled 0.00 sec, 3 clauses true. ?- k_hk( 'ア' ). ｱ false. ?- k_hk( 'ス' ). ｽ false. ?- k_hk( 'ン' ). ﾝ false. ?- halt. %