Код ведь тривиальный...

Maxx 16.12.2008 11:01 / 16.12.2008 11:01

@main[]
$s[О сколько нам открытий чудных,]
^reverse[$s]

^rem{--> ,хындуч йитыркто ман окьлокс О}




@reverse[s][iLen;i]
^if(def $s && $s is string){
	$iLen(^s.length[])
	^for[i](0;$iLen){
		$result[${result}^s.mid($iLen-$i;1)]
	}
}