DouKaku?

与えられた文字列sを前後逆転したものを返す関数reverse_stringを作成してください。 ただし、sはShift-JISでエンコードされている文字列だと仮定して構いません。

サンプル入出力

>>> print reverse_string("Hello")
olleH
>>> print reverse_string("こんにちは")
はちにんこ
>>> print reverse_string("濁点(だくてん)")
)んてくだ(点濁

プラットフォーム依存かもしれませんが、
Windows版Rはデフォルトの文字コードがSJISになっています。

> reverse_string("Hello")
[1] "olleH"
> reverse_string("こんにちは")
[1] "はちにんこ"
> reverse_string("濁点(だくてん)")
[1] ")んてくだ(点濁"

1

reverse_string <- function(s) paste(rev(unlist(strsplit(s, ''))), collapse='')