Advanced Search

Tuenti contest test #2 TLang

/ Published in: Perl
Save to your folder(s)
Dunno why, but it does not validates. And the result seems right.

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. while(<>)
  2. {
  3. 	chomp;
  4. 	s/\^/\(/g;   #subs ^ x (
  5. 	s/\$/\)/g;   #subs $ x )
  6. 	my $changed=0;
  7.  
  8. 	while($changed==0)
  9. 	{
  10. 		if(s/\([=] (-?\d+) (-?\d+)\)/$1 + $2/eg) # (=  1  1)
  11. 		{
  12. 		}elsif (s/\([#] (-?\d+) (-?\d+)\)/$1 * $2/eg)
  13. 		{
  14. 		}elsif (s/\([@] (-?\d+) (-?\d+)\)/$1 - $2/eg)
  15. 		{
  16. 		}elsif (s/\([@] (-?\d+)\)/-$1/eg)
  17. 		{
  18. 		}else {	$changed=1;}
  19. 	}
  20. 	print $_ . "    \n";
  21. }

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.