DouKaku?

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

サンプル入出力

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

目をつむって実装。

実行結果
C:\>erl -noshell -run sjis reverse "Hello" -s init stop
olleH
C:\>erl -noshell -run sjis check "こんにちわ" -s init stop
わちにんこ
C:\>erl -noshell -run sjis reverse "濁点(だくてん)" -s init stop
)んてくだ(点濁

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

-module(sjis).
-export([reverse/1]).

reverse([Str])->
    reverse(Str,[]).

reverse([],RStr)->
    io:format("~s",[RStr]);
reverse([C1,C2|R],RStr) when C1 > 16#80 ->
    reverse(R,[[C1,C2]]++RStr);
reverse([C|R],RStr) ->
    reverse(R,[C]++RStr);
reverse(C,RStr) ->
    [C,RStr].