reverse

博士の愛した数式に回文の話があったので作ってみた。

#!/usr/bin/perl -w
# reverse.pl
# 各行を逆にして出力
#

use strict;
use encoding 'shiftjis';
while(<>) {
	chomp;
	print reverse(split(//, $_)), "\n";
}
# reverse.pl ends here.

とりあえず二日前の日記をサンプルにするとこんな感じだ。

。かいなはでい良でgnizitidommoc。うろだのるけつを」化「ぜな、にのなじ同とgnizitidommoc、はてしと味意、は」化+ytidommoc「。どれけく聞んぶいず近最。だ葉言な変

「」とかは別処理にしたほうが、よりそれっぽいかもしれない。