snipt

Ctrl+h for KB shortcuts

Perl

TLang Tuenti programming contest

while(<>)
{
	chomp;
	s/\^/\(/g;   #subs ^ x (
	s/\$/\)/g;   #subs $ x )
	my $changed=0;
	
	while($changed==0)
	{
		if(s/\([=] (-?\d+) (-?\d+)\)/$1 + $2/eg) # (=  1  1)
		{
		}elsif (s/\([#] (-?\d+) (-?\d+)\)/$1 * $2/eg)
		{
		}elsif (s/\([@] (-?\d+) (-?\d+)\)/$1 - $2/eg)
		{
		}elsif (s/\([@] (-?\d+)\)/-$1/eg)
		{
		}else {	$changed=1;}
	}
	print $_ . "    \n";
}
https://snipt.net/embed/3ffa716ad0f4e39f4070a1f12c9b8860/
/raw/3ffa716ad0f4e39f4070a1f12c9b8860/
3ffa716ad0f4e39f4070a1f12c9b8860
perl
Perl
21
2019-06-16T00:30:11
True
False
False
/api/public/snipt/27682/
tlang-tuenti-programming-contest
<table class="highlighttable"><tr><td class="linenos"><div class="linenodiv"><pre><a href="#L-1"> 1</a> <a href="#L-2"> 2</a> <a href="#L-3"> 3</a> <a href="#L-4"> 4</a> <a href="#L-5"> 5</a> <a href="#L-6"> 6</a> <a href="#L-7"> 7</a> <a href="#L-8"> 8</a> <a href="#L-9"> 9</a> <a href="#L-10">10</a> <a href="#L-11">11</a> <a href="#L-12">12</a> <a href="#L-13">13</a> <a href="#L-14">14</a> <a href="#L-15">15</a> <a href="#L-16">16</a> <a href="#L-17">17</a> <a href="#L-18">18</a> <a href="#L-19">19</a> <a href="#L-20">20</a> <a href="#L-21">21</a></pre></div></td><td class="code"><div class="highlight"><pre><span></span><span id="L-1"><a name="L-1"></a><span class="k">while</span><span class="p">(</span><span class="o">&lt;&gt;</span><span class="p">)</span> </span><span id="L-2"><a name="L-2"></a><span class="p">{</span> </span><span id="L-3"><a name="L-3"></a> <span class="nb">chomp</span><span class="p">;</span> </span><span id="L-4"><a name="L-4"></a> <span class="sr">s/\^/\(/g</span><span class="p">;</span> <span class="c1">#subs ^ x (</span> </span><span id="L-5"><a name="L-5"></a> <span class="sr">s/\$/\)/g</span><span class="p">;</span> <span class="c1">#subs $ x )</span> </span><span id="L-6"><a name="L-6"></a> <span class="k">my</span> <span class="nv">$changed</span><span class="o">=</span><span class="mi">0</span><span class="p">;</span> </span><span id="L-7"><a name="L-7"></a> </span><span id="L-8"><a name="L-8"></a> <span class="k">while</span><span class="p">(</span><span class="nv">$changed</span><span class="o">==</span><span class="mi">0</span><span class="p">)</span> </span><span id="L-9"><a name="L-9"></a> <span class="p">{</span> </span><span id="L-10"><a name="L-10"></a> <span class="k">if</span><span class="p">(</span><span class="sr">s/\([=] (-?\d+) (-?\d+)\)/$1 + $2/eg</span><span class="p">)</span> <span class="c1"># (= 1 1)</span> </span><span id="L-11"><a name="L-11"></a> <span class="p">{</span> </span><span id="L-12"><a name="L-12"></a> <span class="p">}</span><span class="k">elsif</span> <span class="p">(</span><span class="sr">s/\([#] (-?\d+) (-?\d+)\)/$1 * $2/eg</span><span class="p">)</span> </span><span id="L-13"><a name="L-13"></a> <span class="p">{</span> </span><span id="L-14"><a name="L-14"></a> <span class="p">}</span><span class="k">elsif</span> <span class="p">(</span><span class="sr">s/\([@] (-?\d+) (-?\d+)\)/$1 - $2/eg</span><span class="p">)</span> </span><span id="L-15"><a name="L-15"></a> <span class="p">{</span> </span><span id="L-16"><a name="L-16"></a> <span class="p">}</span><span class="k">elsif</span> <span class="p">(</span><span class="sr">s/\([@] (-?\d+)\)/-$1/eg</span><span class="p">)</span> </span><span id="L-17"><a name="L-17"></a> <span class="p">{</span> </span><span id="L-18"><a name="L-18"></a> <span class="p">}</span><span class="k">else</span> <span class="p">{</span> <span class="nv">$changed</span><span class="o">=</span><span class="mi">1</span><span class="p">;}</span> </span><span id="L-19"><a name="L-19"></a> <span class="p">}</span> </span><span id="L-20"><a name="L-20"></a> <span class="k">print</span> <span class="nv">$_</span> <span class="o">.</span> <span class="s">&quot; \n&quot;</span><span class="p">;</span> </span><span id="L-21"><a name="L-21"></a><span class="p">}</span> </span></pre></div> </td></tr></table>
contest, perl, tlang, tuenti