0
493

Written by

Eduard Lebedyuk
Senior Cloud Architect at InterSystems
STAFF
Follow
Discussion Eduard Lebedyuk · Oct 8, 2021

Code Golf: Just add water...

#InterSystems IRIS #Code Golf #Code Snippet

Have you ever seen those vaccum compressed towels, that look like a pill and after you add water became a towel?

That's our challenge for today. As usual shortest solution wins.

Task

You will receive an integer number and you will return a new number where each digit is repeated a number of times equals to its value.

Input:

42

Output:

444422

Note:

Discussion (11)0
Log in or sign up to continue

Comments

Timothy Leavitt · Oct 8, 2021

Edit: down from 73 to 67 to 58 (but still looking for better...)

Missing an important test case:
Do $$$AssertEquals(##class(CodeGolf.MagicTowel).AddWater("00020"), "22")

0
Timothy Leavitt  Oct 8, 2021 to Timothy Leavitt

Gaming the system and using the code provided to check the result length, 3:

ClassMethod AddWater(p As %String, t = {$e(p)}, r = {$case(p,"":"",:..AddWater($e(p,2,*)))}, f = {$Select(t:$tr($j(t,t)," ",t)_r,1:r)}) As %String [ CodeMode = expression ]
{
f
}
0
Eduard Lebedyuk  Oct 8, 2021 to Timothy Leavitt

Yeah, zeroes make $tr($j()) trick less applicable to the current challenge.

0
Roger Merchberger · Oct 8, 2021

43, if you have to read in the variable. -4 if it's assumed to already be there. +4 if you need to see a carriage return between the input and the output:

R Z F I=1:1:$L(Z) S J=$E(Z,I) F K=1:1:J W J

Here's the '-4' code if you assume the Z variable has the initial integers:

F I=1:1:$L(Z) S J=$E(Z,I) F K=1:1:J W J

And, here's the +4 code to add the carriage return between input & output:

R Z W ! F I=1:1:$L(Z) S J=$E(Z,I) F K=1:1:J W J

Enjoy!

[edited to add other cases.]

0
Julius Kavay · Oct 8, 2021

Check this one...

ClassMethod AddWater(s)
{
   f i=$l(s):-1:1 s t=$e(s,i),$e(s,i)="1E"_t-1/9*t
   q $tr(s,0)
}
0
Julius Kavay  Oct 8, 2021 to Julius Kavay

Oh, I see right now, we can save one byte...

ClassMethod AddWater(s)
{
   f i=$l(s):-1:1 s t=$e(s,i),$e(s,i)=10**t-1/9*t
   q $tr(s,0)
}
0
Julius Kavay  Oct 11, 2021 to Michel Bruyère

According to the task, "...You will receive an integer number and you will return a new number..."

set s=9999999999999999999
write s --> 10000000000000000000
write AddWater(s) --> 1  // which is the expected result

The above method works also for cases, where s contains a string of digits

set a="9999999999999999999"
write a  --> 9999999999999999999
set res=AddWater(s)
write res ---> 999...<165 more nines>...999
write $length(s) --> 19
write $length(res) --> 171  // 19 * 9 = 171

So why do you show those devils?

0
Vitaliy Serdtsev · Oct 11, 2021

codemode = code:

<FONT COLOR="#000080">ClassMethod </FONT><FONT COLOR="#000000">AddWater(
  </FONT><FONT COLOR="#ff00ff">s</FONT><FONT COLOR="#000000">,
  </FONT><FONT COLOR="#ff00ff">t </FONT><FONT COLOR="#000000">= {</FONT><FONT COLOR="#0000ff">$lb</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#008000">""</FONT><FONT COLOR="#000000">,1,22,333,4444,55555,666666,7777777,88888888,999999999)},
  </FONT><FONT COLOR="#ff00ff">r </FONT><FONT COLOR="#000000">= </FONT><FONT COLOR="#800080">""</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#000080">As %String
</FONT><FONT COLOR="#000000">{
 </FONT><FONT COLOR="#0000ff">f </FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">=1:1:</FONT><FONT COLOR="#0000ff">$l</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">r</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800000">r</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#0000ff">$li</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#0000ff">$e</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">)+1)
 </FONT><FONT COLOR="#0000ff">q </FONT><FONT COLOR="#800000">r
</FONT><FONT COLOR="#000000">}</FONT>
codemode = expression:
<FONT COLOR="#000080">ClassMethod </FONT><FONT COLOR="#000000">AddWater(
  </FONT><FONT COLOR="#ff00ff">s</FONT><FONT COLOR="#000000">,
  </FONT><FONT COLOR="#ff00ff">r </FONT><FONT COLOR="#000000">= {</FONT><FONT COLOR="#008000">""</FONT> <FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">r</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#008000">"" </FONT><FONT COLOR="#0000ff">f </FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">=1:1:</FONT><FONT COLOR="#0000ff">$l</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#0000ff">$e</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#0000ff">s</FONT><FONT COLOR="#000000">:</FONT><FONT COLOR="#800000">t r</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#800000">r</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#0000ff">$tr</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#0000ff">$j</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">),</FONT><FONT COLOR="#008000">" "</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">)</FONT><FONT COLOR="#000000">}) </FONT><FONT COLOR="#000080">As %String </FONT><FONT COLOR="#000000">[ </FONT><FONT COLOR="#000080">CodeMode </FONT><FONT COLOR="#000000">= expression ]
{
</FONT><FONT COLOR="#800000">r
</FONT><FONT COLOR="#000000">}</FONT>
Required mapping ISCDC.inc from CACHESYS:
<FONT COLOR="#000080">Include </FONT><FONT COLOR="#ff0000">ISCDC

</FONT><FONT COLOR="#000080">Class dc.test </FONT><FONT COLOR="#000000">[ </FONT><FONT COLOR="#000080">Abstract </FONT><FONT COLOR="#000000">]
{
</FONT><FONT COLOR="#000080">ClassMethod </FONT><FONT COLOR="#000000">AddWater(</FONT><FONT COLOR="#ff00ff">s</FONT><FONT COLOR="#000000">) </FONT><FONT COLOR="#000080">As %String
</FONT><FONT COLOR="#000000">{
  </FONT><FONT COLOR="#0000ff">f </FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#0000ff">$l</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">):-1:1 </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">=</FONT><FONT COLOR="#0000ff">$e</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">),</FONT><FONT COLOR="#0000ff">$e</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">s</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">i</FONT><FONT COLOR="#000000">)=</FONT><FONT COLOR="#0000ff">$$</FONT><FONT COLOR="#ff0000">DC</FONT><FONT COLOR="#000000">(</FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">,</FONT><FONT COLOR="#800000">t</FONT><FONT COLOR="#000000">)
  </FONT><FONT COLOR="#0000ff">q </FONT><FONT COLOR="#800000">s
</FONT><FONT COLOR="#000000">}
}</FONT>
0
Timothy Leavitt  Oct 11, 2021 to Vitaliy Serdtsev

Neat trick for the expression for r! (Which I hope to never see again outside of the context of contests like this. :))

0