This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's
TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.
TI-Basic Brain Teasers =>
TI-BASIC
Author |
Message |
|
Weregoose Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004 Posts: 3976
|
Posted: 27 Mar 2007 04:44:37 am Post subject: |
|
|
I was kept occupied all day on this one... Is it the same as yours?
Spoiler wrote: [font="courier new"] PROGRAM:A
:Disp "PROGRAM:A
":"Output(2,1,':
Disp 'PROGRAM:A'
:''+Ans+'':'+Ans
":Output(2,1,"
isp 'PROGRAM:A':
'"+Ans+"':"+Ans
A true TI-Basic quine. That's magnificent. :)
[EDIT]
Oh, no! Yours is smaller. :P
[EDIT×2]
Oh wait, the number of times the title appears should work as a multiplier, right?
This is 88 − 4 = 84 bytes! I win!
Last edited by Guest on 27 Mar 2007 05:14:29 am; edited 1 time in total |
|
Back to top |
|
|
Harrierfalcon The Raptor of Calcs
Super Elite (Last Title)
Joined: 25 Oct 2006 Posts: 2535
|
Posted: 27 Mar 2007 08:20:57 am Post subject: |
|
|
I don't suppose you can use CELTIC2? |
|
Back to top |
|
|
DarkerLine ceci n'est pas une |
Super Elite (Last Title)
Joined: 04 Nov 2003 Posts: 8328
|
Posted: 27 Mar 2007 05:49:04 pm Post subject: |
|
|
Okay... my solution, at 84 bytes, is
Spoiler wrote: [font="courier new"]PROGRAM:GDB1GDB1
:"ClrHome:Output
(1,1,'PROGRAM:GD
B1GDB1:''+Ans+''
:'+Ans":ClrHome:
Output(1,1,"PROG
RAM:GDB1GDB1:'"+
Ans+"':"+Ans I was surprised at how different our two programs were, while I was coding it, there seemed to me to be little room for variation. However, you can see some similar patterns in the two programs...
Last edited by Guest on 27 Mar 2007 05:53:47 pm; edited 1 time in total |
|
Back to top |
|
|
Weregoose Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004 Posts: 3976
|
Posted: 27 Mar 2007 06:20:54 pm Post subject: |
|
|
Both programs have the string [font="courier new;font-size:9pt;line-height:100%;color:darkblue"]:''+Ans+'':'+Ans": somewhere in the middle and [font="courier new;font-size:9pt;line-height:100%;color:darkblue"]:'"+Ans+"':"+Ans at the very end. But, you even got two [font="courier new;font-size:9pt;line-height:100%;color:darkblue"]ClrHome's in there. No fair. For a while, I believed that it was possible to use [font="courier new;font-size:9pt;line-height:100%;color:darkblue"]:"PROGRAM:A as the last line in order to output the title to the top, but that sadly never worked out. I even found a much simpler version that would print the source while ignoring the header, but that should be easy now given what we have learned. :)
This beats out the HQ9+ interpreter I wrote a while back.
Last edited by Guest on 27 Mar 2007 06:26:18 pm; edited 1 time in total |
|
Back to top |
|
|
Neekstar
Advanced Newbie
Joined: 14 Dec 2006 Posts: 75
|
Posted: 27 Mar 2007 07:05:19 pm Post subject: |
|
|
Quote: Here's a TI-basic edition:
PRGM:A
:prgmB
Outside the box, but still, we would just look in program B
That is what I had. I knew you could use the Ans variable to get it into only one program, but I haven't had time lately to experiment with that.
Last edited by Guest on 27 Mar 2007 07:06:01 pm; edited 1 time in total |
|
Back to top |
|
|
Harrierfalcon The Raptor of Calcs
Super Elite (Last Title)
Joined: 25 Oct 2006 Posts: 2535
|
Posted: 31 Mar 2007 02:30:23 pm Post subject: |
|
|
Well, if I'm cheating, then...
[color=#000000background#000000]
PROGRAM:QUINE
:"AQUINE->Str0:0->/theta/:1:Asm(prgmCELTIC2:Output(1,1,"PROGRAM:QUINE :"+Str9
[/color]
Last edited by Guest on 31 Mar 2007 02:30:42 pm; edited 1 time in total |
|
Back to top |
|
|
Weregoose Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004 Posts: 3976
|
Posted: 31 Mar 2007 07:10:58 pm Post subject: |
|
|
Lets keep this going. Who wants to give it a shot at making another teaser?
Last edited by Guest on 31 Mar 2007 07:11:21 pm; edited 1 time in total |
|
Back to top |
|
|
|
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.
»
Go to Registration page