文字列の八方向検索 in Prolog DouKaku?

文字列の八方向検索

与えられた矩形状の文字列中に存在する文字列"ウオリ"の位置を全て出力するプログラムを
書いてください。
文字列の検索方向は八方全てで、また連続している（左右や上下の境界をまたがない）ものを
対象とします。出力は起点"ウ"の座標と方向のリストにしてください。

サンプル入力：

リオウウリウ
ウオリウオリ
オリリオリウ
リリオオウオ

サンプル出力：

(2, 0), 左
(0, 1), 右
(0, 1), 下
(3, 1), 右
(4, 3), 左上

--
より一般には、任意の検索文字列への対応も考えてみてください。

post comment

Posted feedbacks - Prolog

UTF-8 で保存して実行．splitぐらい標準であればいいのに．．．

splitLine(S, L) :- append(S1, [10|S2], S),
    splitLine(S1, L1), splitLine(S2, L2), append(L1, L2, L), !.
splitLine(S, [S]).

find(_, [], _, _, _, _).
find(Text, [C|S], DX, DY, X, Y) :- nth0(Y, Text, Line), nth0(X, Line, C),
    X1 is X + DX, Y1 is Y + DY, find(Text, S, DX, DY, X1, Y1).

find8(Text, Word) :-
    splitLine(Text, Lines),
    forall((member([DX, DY, S],
    [[0, -1, '上'], [ 1, -1, '右上'], [ 1, 0, '右'], [ 1,  1, '右下'],
     [0,  1, '下'], [-1,  1, '左下'], [-1, 0, '左'], [-1, -1, '左上']]),
    find(Lines, Word,  DX, DY, X, Y)), format('(~d, ~d), ~p~n', [X, Y, S])).

:- find8("リオウウリウ
ウオリウオリ
オリリオリウ
リリオオウオ", "ウオリ").

DouKaku?

文字列の八方向検索

Posted feedbacks - Prolog

Index

Feed

Other

Link

Pathtraq