source: applications/trunk/UGPSummerSchool2008/src/Palindrome.rf @ 3828

$module Palindrome;

$use StdIO;
$use Reverse;

$func? IsPalindrome e.expr = ;
IsPalindrome \{
        /*empty*/ = ;
        t1 e2 t1 = <IsPalindrome e2>;
};

$func? IsPalindrome2 e.expr = ;
IsPalindrome2 e.expr =
        <Reverse e.expr> : e.expr;

$func Main = e;

Main = {
        <IsPalindrome2 <ReadLine>> = <PrintLn "п÷п╟п╩п╦п╫п╢я─п╬п╪ :)">;
        <PrintLn "п²п╣ п©п╟п╩п╦п╫п╢я─п╬п╪ :(">;
};