T = readtable('1567_14913.csv','ReadVariableNames',false);
idx = strcmp(T.Var5,'名詞');
T(~idx,:) = [];
T = T(:,{'Var4','Var12'});
T.Properties.VariableNames = {'Tango','Yomi'};
[~,ia] = unique(T.Tango);
T = T(ia,:);
T.Start = cellfun(@(x) {x(1)}, T.Yomi);
T.End = cellfun(@(x) {x(end)}, T.Yomi);
T.tfUsed = false(height(T),1);
kana = char((12450:12527)');
idx = ismember(T.End,kana);
T(~idx,:) = [];
pt = randi(height(T));
fprintf('%s (%s)\n',T.Tango{pt},T.Yomi{pt});
T.tfUsed(pt) = true;
for kk = 1:10
pt = find(strcmp(T.End{pt},T.Start) & ~T.tfUsed);
if isempty(pt)
disp('====おわり====');
break;
end
pt = pt(randi(numel(pt)));
fprintf('%s (%s)\n',T.Tango{pt},T.Yomi{pt});
T.tfUsed(pt) = true;
end