Author |
Message |
|
IAmACalculator In a state of quasi-hiatus
Know-It-All
Joined: 21 Oct 2005 Posts: 1571
|
Posted: 07 Jul 2009 05:48:04 pm Post subject: |
|
|
By Darkerline and Weregoose, no less. But they do have a point. Line breaks use up as much memory as a single character, so they're not really a good measure of program size. That, and TI-BASIC can vary from insanely long and complicated functions in a single line, to the single-line then and end commands. Still, it's an interesting exercise (as long as you outlaw Darkerline's method...)
Last edited by Guest on 05 Jul 2010 07:47:10 am; edited 1 time in total |
|
Back to top |
|
|
woodswolf
Advanced Newbie
Joined: 26 Feb 2009 Posts: 53
|
Posted: 08 Jul 2009 12:05:15 pm Post subject: |
|
|
I know it's true... I can easily find ways of making programs small, but these responses looked like pure attacks, as if they think I'm not smart enough to know it does nothing (basing a program on lines)... Let it be known that I was merely going for the primary goal! |
|
Back to top |
|
|
Graphmastur
Advanced Member
Joined: 25 Mar 2009 Posts: 360
|
Posted: 08 Jul 2009 12:46:53 pm Post subject: |
|
|
woodswolf wrote: I know it's true... I can easily find ways of making programs small, but these responses looked like pure attacks, as if they think I'm not smart enough to know it does nothing (basing a program on lines)... Let it be known that I was merely going for the primary goal!
I know how sometimes I will talk to a person, and they think I am talking down to them, because they simply don't understand, whereas they will be talking about some kind of sport, and the three question marks will light up over my head. |
|
Back to top |
|
|
woodswolf
Advanced Newbie
Joined: 26 Feb 2009 Posts: 53
|
Posted: 08 Jul 2009 01:29:39 pm Post subject: |
|
|
:confused:
You lost me at "three question marks" :biggrin: :biggrin:
just kidding...
Still I don't really get what you are trying to say. Let me show you how I understood what you said...
Quote: I know how sometimes I will talk to a person, and they think I am talking down to them, because they simply don't understand
I'm the one that feels talked down too, but in your content, it also says I don't understand. But I do! Lines are nothing else but 1 token size objects that occur in a program.
Anyway, just try my code out and start complaining against the owner of the topic |
|
Back to top |
|
|
Graphmastur
Advanced Member
Joined: 25 Mar 2009 Posts: 360
|
Posted: 08 Jul 2009 02:02:54 pm Post subject: |
|
|
woodswolf wrote: :confused:
You lost me at "three question marks" :biggrin: :biggrin:
just kidding...
Still I don't really get what you are trying to say. Let me show you how I understood what you said...
Quote: I know how sometimes I will talk to a person, and they think I am talking down to them, because they simply don't understand
I'm the one that feels talked down too, but in your content, it also says I don't understand. But I do! Lines are nothing else but 1 token size objects that occur in a program.
Anyway, just try my code out and start complaining against the owner of the topic
I know you understand, it was the talking down to part. Sorry for the confusion. |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 12 Jul 2009 08:09:51 pm Post subject: |
|
|
woodswolf wrote: I know darkerline... But the challenge here is to use the least amount of lines possible!
Not really.
I'm sorry I was gone and couldn't explaine this, but I ment to discourage really long programs. It is cool to see woodswolf's awesome lines with Δ in them, but I'd rather have size and speed over amount of lines used. That being said, if you guys want it to be the least number of lines, then just say so. :)
Oh and about topic owner, I'd consider anyone at UTI the owner of this topic; I just set forth rules and made the first post.
EDIT: woodswolf: Awesome program. I like 1.
Last edited by Guest on 12 Jul 2009 08:19:07 pm; edited 1 time in total |
|
Back to top |
|
|
Flofloflo
Member
Joined: 07 Nov 2007 Posts: 120
|
Posted: 21 Jul 2009 07:47:44 am Post subject: |
|
|
The Matrix:
Quote: Clrhome
While 1
Randint(1,16
for(b,1,11
if b <9
Output(b,ans,randint(0,1
if b>3
output(b-3,ans,"
end
end
And with some adjustments you can get multiple strings =) That does slow it down alot though, and if you want them at random moments it takes a whole load of changes. But it ispretty easy to make the strings of random lenght of course.
Last edited by Guest on 21 Jul 2009 08:02:44 am; edited 1 time in total |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 21 Jul 2009 10:45:51 am Post subject: |
|
|
It's cool, but xvirus is still my favorite. |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 27 Oct 2009 04:56:54 pm Post subject: |
|
|
*Bump*
Alrighty, I have two new programs!
GridOff
AxesOff
ClrDraw
getKey
Repeat getKey
Pt-On(Xmin+3ΔXint(1+32rand),Ymin+3ΔYint(1+21rand),2+(rand>.9
End
This next one is two within one. If A=0 it will not erase any lines. If A≠0 it will erase every other line.
(Store a number into A)→A
GridOff
AxesOff
ClrDraw
getKey
{0,0,Xmin,Ymin,0
Repeat getKey
{Ans(3),Ans(4),Xmin+ΔXint(95rand),Ymin+ΔYint(63rand),Anot(Ans(5
Line(Ans(1),Ans(2),Ans(3),Ans(4),not(Ans(5
End
Last edited by Guest on 05 Jul 2010 07:46:53 am; edited 1 time in total |
|
Back to top |
|
|
ahudson
Newbie
Joined: 11 Nov 2008 Posts: 33
|
Posted: 29 Oct 2009 04:10:35 pm Post subject: |
|
|
Here's a small program I wrote which takes text, displays it backwards, and stores both the original text and the backward text as strings.
[font="Courier New"]
:" "→backtxt
:InpSt "Text?", txt
:For(G,lngth txt,1,-1)
:sub(txt,G,1)→sC
:backtxt+sC→backtxt
:End
:ClLCD
:Outpt(1,1,sub(backtxt,2,lngth backtxt)-1)
The original text is stored in txt and the backward text is stored as backtxt. |
|
Back to top |
|
|
calcdude84se
Member
Joined: 09 Aug 2009 Posts: 207
|
Posted: 29 Oct 2009 04:31:22 pm Post subject: |
|
|
This is for the 85/86, I take it. They should make an 85/86 BASIC sub-forum... |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 29 Oct 2009 05:25:18 pm Post subject: |
|
|
That would be neat.
Although, I don't mind code for non z80 calcs here. It's as good a place as any.
As for that program, I'm sure that if I had an 85/86 I'd be saying "Looks Cool!" right now. |
|
Back to top |
|
|
ahudson
Newbie
Joined: 11 Nov 2008 Posts: 33
|
Posted: 03 Nov 2009 05:23:30 pm Post subject: |
|
|
The TI-86 is a Z80. As a matter of fact, it is the most powerful Z80-based calculator TI ever released. |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 03 Nov 2009 05:39:24 pm Post subject: |
|
|
:blush: Ooops. Sorry about that.
Are the z80 calcs the 73,81,82,83,84,85, and 86 then?
Please correct me when I'm wrong. |
|
Back to top |
|
|
calcdude84se
Member
Joined: 09 Aug 2009 Posts: 207
|
Posted: 03 Nov 2009 08:00:33 pm Post subject: |
|
|
Unless TI has spontaneously added one in less than five minutes before this post (yeah right :biggrin:), then yes. (I'm ignoring that you didn't differentiate between some members of the 83+ series) |
|
Back to top |
|
|
ahudson
Newbie
Joined: 11 Nov 2008 Posts: 33
|
Posted: 04 Nov 2009 05:35:29 pm Post subject: |
|
|
Here is a list of all Zilog Z80-based calculator models by Texas Instruments:
TI-73
TI-80
TI-81
TI-82
TI-83
TI-83 Plus
TI-83 Plus SE
TI-84 Plus
TI-84 Plus SE
TI-85
TI-86
And here's a list of all of TI's Motorola 68000-based calculators:
TI-89
TI-89 Titanium
TI-92
TI-92 II
TI-92 Plus
Voyage 200
Last edited by Guest on 04 Nov 2009 05:36:16 pm; edited 1 time in total |
|
Back to top |
|
|
GloryMXE7 Puzzleman 3000
Active Member
Joined: 02 Nov 2008 Posts: 604
|
Posted: 09 Nov 2009 03:06:48 pm Post subject: |
|
|
Here I got one
Code: GridOff
AxesOff
ClrDraw
0→Xmin : 0→Ymin
94→Xmax : 62→Ymax
for (A,0,100,2
{A,.94A,94-A,94-.94A,62-A,62-.94A
Line(Ans(4),Ans(1),Ans(1),Ans(2
Line(Ans(2),Ans(5),Ans(1),Ans(2
Line(Ans(2),Ans(5),Ans(3),Ans(6
Line(Ans(4),Ans(1),Ans(3),Ans(6
Line(Ans(2),Ans(5),Ans(4),Ans(1
Line(Ans(1),Ans(2),Ans(3),Ans(6
End
|
|
Back to top |
|
|
kinkoa
Member
Joined: 28 Jul 2009 Posts: 103
|
Posted: 23 Nov 2009 10:51:31 am Post subject: |
|
|
ive got one
ClrHome
0->C
While (C<31
For(A,1,18
C+(A=17->C
Output(4,7,C
End
End |
|
Back to top |
|
|
|