Output 9876543210 without using numbers | InterSystems Developer Community

Caché, Contest, Caché ObjectScript (COS)

Hi, Community!

Last weekend we held the Final of InterSystems Contest on InterSystems Caché and DeepSee as a part of IT Planet Student Championship in Sochi. BTW, this year we had about 2 000 participants in InterSystems Contest.

One of the tasks for the finals was to solve the following with Caché ObjectScript and use the minimum code.

Problem description

Write a method that would return the string 9876543210, however cls code should not contain numbers 0-9.

The goal is to write the shortest method.

Here's a method signature (it can't be modified):

ClassMethod main() As %String

And call sample:

USER>write ##class(ITPlanet.Task2).main()
9876543210

Also, here's the code to check your result's length:

ClassMethod length(class = {$classname()}, method = "main") As %Integer
{
    #dim methodObj As %Dictionary.MethodDefinition
    set methodObj = ##class(%Dictionary.MethodDefinition).IDKEYOpen(class, method)
    quit methodObj.Implementation.Size
}

The best result was 25.

What's yours? ;)

Comments: 14 Views: 386

Post by Eduard Lebedyuk

6 June 2017

9 answers

Answer

As large as 20 chars in expression mode.

/// ("鑔" = chǎ - small cymbals) * ("斚" = jiǎ - a small ancient stone cup for libations)
ClassMethod main() As %String [ CodeMode = expression ]
{
$a("鑔")_$q*$a("斚")
}

Answer by Alexey Maslov

8 June 2017

Answer

It is not possible to past my result here, it will not work after that. But my result is 22.

Attached source with this method

contest.xml.zip

in expression mode it become 19

Answer by Dmitry Maslennikov

6 June 2017

Answer

21 in non-expression mode

My solution is following:
https://gist.github.com/adaptun/f04f15fc1474d57373d3f63928183284

Answer by Alexander Koblov

6 June 2017

Answer

My result is 21.

It is similar to the variant of Alexander, but only _+"".

Answer by Vitaliy Serdtsev

6 June 2017

So the question boils down to "How to represent 0 using two symbols"

Comment by Alexander Koblov

6 June 2017

Rhetorical question - for what?
If for fun, then this is possible.
But I will tell the solution here later.

Comment by Vitaliy Serdtsev

6 June 2017

Of course for fun!

Comment by Alexander Koblov

6 June 2017

Ok, exclusively for fun.

I made some improvements and now my score is 9, but if you try very hard, even - 0!
Who less ? ;)

Here is the code:

Class ITPlanet.Task2 [ Abstract ]
{

Parameter p = {$zwbunpack("㤸㜶㔴㌲㄰")};

ClassMethod main() As %String
{
 q ..#p
}

}

Class ITPlanet.Test [ Abstract ]
{

ClassMethod length(
  class = {$classname()},
  method = "main") As %Integer [ CodeMode = expression ]
{
##class(%Dictionary.MethodDefinition).IDKEYOpen(class, method).Implementation.Size
}

ClassMethod test(makeDeploy = {$$$NO})
{
  ;do ##class(ITPlanet.Test).test()

  set classname="ITPlanet.Task2"
  set check=9876543210
  do:makeDeploy $system.OBJ.MakeClassDeployed(classname)
  set result=$classmethod(classname,"main")
  write !,result,!,check,
        !,"correct: ",$select(result=check:"yes",1:"no"),
        !,"length: ",..length(classname)
}

}

USER>do ##class(ITPlanet.Test).test()
 
9876543210
9876543210
correct: yes
length: 9
USER>do ##class(ITPlanet.Test).test(1)
 
9876543210
9876543210
correct: yes
length: 0

Comment by Vitaliy Serdtsev

7 June 2017

Nice! Next step is "-1" or less :-)

Comment by Alexander Koblov

7 June 2017

Comment by Sean Connelly

6 June 2017

Not always, If $T was set to 1 before, then it is not reseted on entering the method Main()

Comment by Alexander Koblov

6 June 2017

Answer

main ≠ Main

Only I noticed it?

Answer by Vitaliy Serdtsev

6 June 2017

Fixed that

Comment by Eduard Lebedyuk

6 June 2017

Answer

Class ITPlanet.Task2 [ Abstract ]

{

ClassMethod Main() As %String

{

q $tr($h,",")

}

*You may need to set your date and time settings to 2111-05-30 12:00:10 ;)

Answer by Adam Skurek

6 June 2017

Answer

https://gist.github.com/SeanConnelly/a5c603399109bcaca9d196a0d19be205

Answer by Sean Connelly

6 June 2017

Awesome!

Check method reports 19.

Comment by Eduard Lebedyuk

6 June 2017

Answer

19 in non-expression mode:

Set ^oddDEF("ITPlanet.Task2","m","main",30,1)=" q $lg("""_$c(7,4)_"ê"_$c(22)_"°L"_$c(2)_""")"
Do $System.OBJ.Compile("ITPlanet.Task2")

The actual class code contains a few control characters, but not ASCII 0-9.

Answer by Timothy Leavitt

6 June 2017

Oops, looks like Sean beat me by a few minutes!

Comment by Timothy Leavitt

6 June 2017

Only just! :)

Comment by Sean Connelly

6 June 2017

I think you need to call:

Do UpdClsDef^%occLibrary("ITPlanet.Task2")

before compile.

Comment by Eduard Lebedyuk

6 June 2017

Good catch.

Comment by Timothy Leavitt

6 June 2017

Answer

I and @Eduard Lebedyuk came up with another solution. 28 symbols, though:

f p='""_+""-'"":-'"":"" w p

Answer by Alexander Koblov

8 June 2017

Do not forget about the method signature:

ClassMethod main() As %String

Need not print the number, but return it.

Comment by Vitaliy Serdtsev

8 June 2017