From 912ee8f67c242a90bf85264b1799a7c822bb1a1d Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Sun, 20 Dec 2020 17:17:59 +0100
Subject: [PATCH] 36.pl shorter version
---
36.pl | 18 +++++++-----------
1 file changed, 7 insertions(+), 11 deletions(-)
diff --git a/36.pl b/36.pl
index a94e60b..4e25489 100755
--- a/36.pl
+++ b/36.pl
@@ -2,14 +2,10 @@
use strict;
-my $sum = 0;
-while (<>) {
- s/\s//g;
- $_ = "($_)";
- 1 while
- s/\((\d+)\)/$1/ ||
- s/(\([^\(\)]*?)(\d+)\+(\d+)([^\(\)]*\))/$1.($2+$3).$4/e ||
- s/(\([^\(\)]*?)(\d+)\*(\d+)([^\(\)]*\))/$1.($2*$3).$4/e;
- $sum += $_;
-}
-print "sum=$sum\n";
+$_ = '(('.join(')+(', <>).'))';
+s/\s//g;
+1 while
+ s/\((\d+)\)/$1/ ||
+ s/(\([^\(\)]*?)(\d+)\+(\d+)([^\(\)]*\))/$1.($2+$3).$4/e ||
+ s/(\([^\(\)]*?)(\d+)\*(\d+)([^\(\)]*\))/$1.($2*$3).$4/e;
+print "sum=$_\n";
--
2.43.5