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

Last change on this file since 3830 was 3830, checked in by orlov, 13 years ago
File size: 371 bytes
Line 
1$module Palindrome;
2
3$use StdIO;
4$use Reverse;
5
6$func? IsPalindrome e.expr = ;
7IsPalindrome \{
8        /*empty*/ = ;
9        t = ;
10        t1 e2 t1 = <IsPalindrome e2>;
11};
12
13$func? IsPalindrome2 e.expr = ;
14IsPalindrome2 e.expr =
15        <Reverse e.expr> : e.expr;
16
17$func Main = e;
18
19Main = {
20        <IsPalindrome2 <ReadLine>> = <PrintLn "п÷п╟п╩п╦п╫п╢я─п╬п╪ :)">;
21        <PrintLn "п²п╣ п©п╟п╩п╦п╫п╢я─п╬п╪ :(">;
22};
Note: See TracBrowser for help on using the repository browser.