|
与えられた文字列 st = "s0 s1 ・・・ sL" (s0, s1, ・・・, sL それぞれは 1 文字)に上述の操作を施す関数は次のようになる.
function 文字列の操作
begin
st = st + " " ; /* st の末尾に空白文字をつける.+ は文字列の連結を表す */
result = "" ; /* result は操作を施した文字列(最初は空の文字列) */
ch = s0 ; /* ch は現在注目している文字 */
count = 1 ;
for i = 1 to L + 1
begin
if si = ch then
count = count + 1 ;
else
begin
result = result + toString (count) + toString (ch) ;
/* toString は整数や文字を文字列に変換する関数 */
ch = si+1 ;
count = 1 ;
end
end
return result ;
end