New post
Discussion
Eduard Lebedyuk · Aug 16, 2021

DC Challenge: Write a quine in ObjectScript!

#Code Snippet #InterSystems IRIS

A quine is a computer program which takes no input and produces a copy of its own source code as its only output.

Wikipedia.

How about a fun challenge?

The task is to write a quine in InterSystems ObjectScript. It can be a class, or a method, or a routine, or just a line to be executed in a terminal. You decide!

Here's some resources you might consider useful:

Hard mode: do not use source code access functions.

Here's my (extremely uninspired, I know) attempt:

Class User.Quine
{

/// do ##class(User.Quine).Test()
ClassMethod Test()
{
    set sc = ##class(%Compiler.UDL.TextServices).GetTextAsString($namespace, $classname(), .str)
    write str
}

}

It produces this output:

How many different ways of producing a quine are there in ObjectScript?

9
0 439
Discussion (15)4
Log in or sign up to continue
Robert Cemper · Aug 16, 2021

Store as quine.int
Run it by DO ^quine

quine ;; just a simple example
           ;; have any content
clone X "ZL quine ZS quine1 P"  
           ;; may have more content

2 0
Yaron Munz · Aug 24, 2021

to avoid hardcode the actual routine name, you may do:
X "ZL "_$T(+0)_" ZP"

0 0
Julius Kavay · Aug 30, 2021

Just print... no store, no nothing

myQuine ;A quine test

0 0
Julius Kavay · Aug 30, 2021

Just print it, no store, no nothing...

myQuine ; A test for a quine
   x "zl @$zn p"

That's all. And you can name the routine  as you like...

0 0
John Murray · Aug 19, 2021 
USER>d ^quine
quine    ;
         p
 
 
USER>
3 0
Eduard Lebedyuk · Aug 19, 2021

Ok, but how does it work?

The P command suppresses terminal screen display. It suppresses all terminal display, including displaying the terminal prompt.
Specifying P with no operand toggles display suppression.

Docs.

0 0
ivo Ver Eecke · Aug 19, 2021

an overcomplicated solution:

Go() [] PUBLIC
{
    s cont = 0,pos = 1,lines = 0
    do {
        set line = $Text(Go+pos)
        set cont = cont + (($LENGTH(line,"{")-1)-($LENGTH(line,"}")-1))
        set lines = lines + 1
        set pos = pos + 1
    } while (cont > 0)
    s x=1
    if (x=1) { s a=x }
    f i=0:1:lines w $Text(Go+i),!
    s x=1
    if (x=1) { s a=x }
    if (a=x) {
        s b=a
    }
}

1 0
Alexander Koblov · Aug 19, 2021 
USER>d ^quine
 set q = $C(34) kill a //stolen from Wikipedia Java example
 set a($I(a)) = " set q = $C(34) kill a //stolen from Wikipedia Java example"
 set a($I(a)) = " set a($I(a)) = "
 set a($I(a)) = " write a(1),! "
 set a($I(a)) = " for i=1:1:a { "
 set a($I(a)) = "    write a(2),q,a(i),q,! "
 set a($I(a)) = " }"
 set a($I(a)) = " for i=3:1:a {"
 set a($I(a)) = "    write a(i),!"
 set a($I(a)) = " }"
 write a(1),! 
 for i=1:1:a { 
    write a(2),q,a(i),q,! 
 }
 for i=3:1:a {
    write a(i),!
 }
4 0
Yaron Munz · Aug 24, 2021

quine ; quine routine is a routine that prints itself content
X "ZL "_$T(+0)_" ZP"
Q

1 0
Manel Trèmols · Aug 30, 2021

Another solution:

quine
  for x=1:1:^ROUTINE($zn,0,0) write !,$g(^ROUTINE($zn,0,x))

USER>d ^quine
 
quine
        for x=1:1:^ROUTINE($zn,0,0) write !,$g(^ROUTINE($zn,0,x))
USER>
1 0
Steve Lubars · Sep 1, 2021

I wrote these several years ago - please do not code like this!

Quine 1:

s s=" s s=  w $E(s,1,5),$C(34),s,$C(34),$E(s,6,*)"  w $E(s,1,5),$C(34),s,$C(34),$E(s,6,*)

Quine 2:

s p="w $c(115,32,112,61,34)_p_$c(34,32,120,32,112)" x p
2 0
Nigel Salm · Sep 4, 2021

I am busy with mine. It is fiendish. Can a quine, having produced a copy of its own source code, delete itself and recreate itself using the output it generated?

0 0