1

Prolog言語を使用して、ある数のサブシーケンスの出現数を調べる必要があります。

大きなテキストファイル内の単語の出現回数を数えようとしましたが、うまくいきませんでした。私はそれからのコードを持っていますが。

word_freq(W, Freq) :-
    word_count(W, 0, Total, 0, Match),
    Total > 0 -> Freq is Match / Total.

word_count(W, TotSoFar, Tot, MatchSoFar, Match) :-
    (  read_word(SoFar,W),
    N \= end_of_file
    -> T1 is TotSoFar + 1,
    (  N == W
    -> M1 is MatchSoFar+1
    ;  M1 is MatchSoFar
    ),
    word_count(W, T1, Tot, M1, Match)
    ; TotSoFar = Tot,
    MatchSoFar = Match
    ).

read_word(SoFar, W) :-
    get_code(C),
    (   C == -1
    ->  ( SoFar == [] -> W = end_of_file ; reverse(SoFar, W) )
    ;   code_type(C, alnum)
    ->  read_word([C|SoFar], W)
    ;   reverse(SoFar, W)
    ).

発生/頻度のカウントは、両方で同じか、または同様に機能するはずです。どこから始めればいいのかわからないので、助けていただければ幸いです。

4

1 に答える 1

1

このソリューションについてどう思うか教えてください。数の中で出現するものを探しているので、サブシーケンスも数でなければならないと仮定しました。

アイデアは次のとおりです：

数値と別の数値（サブシーケンス）を指定して、数値からサブシーケンスを減算し、最下位桁がゼロかどうかを確認します（最下位桁の数はサブシーケンスのサイズによって決まります）。それらがゼロの場合、サブシーケンスがあります。それ以外の場合はありません。NumberNew = Number div 10で取得した残りの数値を使用して、数値がサブシーケンスよりも小さい状況になるまでこれを続けます。コードの理解に問題がある場合は、投稿を編集してコメントで更新します。

subsequence_size(Subsequence,1) :- Subsequence < 10,!.
subsequence_size(Subsequence,Size) :- SubNew is Subsequence div 10,subsequence_size(SubNew,N),Size is N+1. 


is_subsequence(_,0).
is_subsequence(Number,SubSize) :-  Rem is Number mod 10,
                                   Rem=0,
                                   NumberNew is Number div 10,
                                   SubSizeNew is SubSize - 1,
                                   is_subsequence(NumberNew,SubSizeNew).

occurence_of_subsequence_in_number(Subsequence,Number,Occurences) :- subsequence_size(Subsequence,SubSize),
                                                                     count(Subsequence,SubSize,Number,0,Occurences).

count(0,_,0,Occurences,1) :- Occurences=0,!.
count(0,_,0,Occurences,Occurences) :- not(Occurences=0),!.
count(Subsequence,_,Number,Occurences,Occurences) :- Subsequence > Number,!.
count(Subsequence,SubSize,Number,Occurences,FinalOccurences) :- NumberToTest is Number-Subsequence,
                                                                (is_subsequence(NumberToTest,SubSize)),
                                                                OccurencesNew is Occurences+1,
                                                                NumberNew is Number div 10,
                                                                count(Subsequence,SubSize,NumberNew,OccurencesNew,FinalOccurences),!.

count(Subsequence,SubSize,Number,Occurences,FinalOccurences) :- NumberToTest is Number-Subsequence,
                                                                not(is_subsequence(NumberToTest,SubSize)),
                                                                NumberNew is Number div 10,
                                                                count(Subsequence,SubSize,NumberNew,Occurences,FinalOccurences),!.
于 2012-11-29T13:44:46.690 に答える