One-Liner

Forum Attachments

Summary:

Make a program using only ONE-LINE of basic code

One-Liner

SuperchuFrostbite 06 Oct 2012 17:43

rules:
1)only One line of code is allowed.
2)Only ti 83/84 basic allowed! NO assembly!
3)NO subprograms.
4)program must be a standalone. no assigning variables outside of the program!
5)the program may do ANYTHING as long as it's safe for the calculator and follows the above rules.
6)the winner will be determined by a vote. the voters will be all the contestants. you may NOT vote for yourself. all contestants MUST vote.
contest to be closed when there are 17 entrants.
may the best one-liner win!

programmer1337 (guest) 06 Oct 2012 18:32

Can we 'cheat' by chaining commands with a colon?

yes

SuperchuFrostbite 06 Oct 2012 20:57

here's not cheating:
:while 1:1+1->A:A-1->A:end
here's cheating:
:While 1:
:1+1-A
because its 2 different lines of code

Re: One-Liner

Silver Phantom 06 Oct 2012 21:12

You might wanna also add to the rules, no previously made programs.

---

The Silver Phantom welcomes you

Re: One-Liner

SuperchuFrostbite 06 Oct 2012 23:15

meh… why?

Re: One-Liner

Mr Dino 06 Oct 2012 23:20

Here's one:

randInt(2,15)→B:Pause sub("XXXXXXXXXXXXXXXX",1,Ans)+"π"+sub("XXXXXXXXXXXXXXXX",1,randInt(2,15)):Input "WHERE'S THE 'π'?",A:If A=(B+1):Then:Disp "YAY! YOU WIN!":Else:Disp "NO! YOU LOSE!":End

Re: One-Liner

SuperchuFrostbite 07 Oct 2012 01:42

hmmmm…
is this a legit entry or just kidding?

Boba_Foxx (guest) 07 Oct 2012 04:35

Clrhome:Repeat 0:Ouput(1,1,"Loading"):End

also anyone of dj omnimaga's games

nice

SuperchuFrostbite 10 Oct 2012 00:21

i like this.

Re: One-Liner

Mr Dino 07 Oct 2012 15:57

Meh… 1 line is waaay too hard…

Re: One-Liner

Silver Phantom 07 Oct 2012 16:43

No it isn't, I'm making a derpy screensaver.

---

The Silver Phantom welcomes you

Re: One-Liner

Mr Dino 07 Oct 2012 17:25

Good luck. Hope you do better than my entry!

Re: One-Liner

Silver Phantom 07 Oct 2012 19:54

i found a way to reset a calculator… it wiped out my programs though…

---

The Silver Phantom welcomes you

Re: One-Liner

Mr Dino 07 Oct 2012 21:26

How'd you do that in BASIC? The only way I've managed to do something like that was:

:SetUpEditor:99→dim(L₁):While 1:SortA(L₁):End

the bunny virus. It stuck a calc in an infinite loop. But I'm pretty sure TI fixed the SortA() bug…

Re: One-Liner

Silver Phantom 08 Oct 2012 14:11

Wait, you're talking to me right? I think I had some impossible points and a rand-point generator in a loop

---

The Silver Phantom welcomes you

Re: One-Liner

SuperchuFrostbite 10 Oct 2012 00:22

THAT'S THE POINT!

Re: One-Liner

Silver Phantom 10 Oct 2012 02:03

Wait, is resetting the calc a valid entry?

---

The Silver Phantom welcomes you

Re: One-Liner

SuperchuFrostbite 15 Oct 2012 23:13

no

Re: One-Liner

Roguebantha 08 Oct 2012 22:38

Actual real world example: A friend of mine created a program that randomly stored the values 1 or 0 into a list, with the mean of the list being about .4. (He was creating a random maze using 1's and 0's to declare if a block was on or off) It was a pretty long program and incorpated multiple loops and if statements. I turned the entire program into a single command, "randBin(1,.4,128)→L₁".

Not anything really complicated, but kind of amusing to see me cut down his program execution by a good 5 seconds. :)

---

Re: One-Liner

vikt0r 24 Jan 2013 14:20

This contest is still on right?

---

Vikt0r

I make music too: http://soundcloud.com/vikt0r

Re: One-Liner

vikt0r 24 Jan 2013 19:47

hmm seems like it isn't, thats a shame.
I thought of something cool so i'm posting it anyway :D

:ClrHome:15→X:7→Y:2→A:2→B:1→Z:Pause "READY?":ClrHome:Disp "GO!":While Z:getKey→K:X+1(min({K=26,X≠16})-1(min({K=24,X≠1→X:Y+1(min({K=34,Y≠8})-1(min({K=25,Y≠1}→Y:ClrHome:Output(Y,X,"°":Output(A,B,"":If not(fPart(C/3:Then:A+1(min({Y>A,A≠8→A:A-1(min({Y<A,A≠1→A:B+1(min({X>B,B≠1→B:B-1(min({X<B,B≠16→B:End:If min({B=X,A=Y:0→Z::C+1→C:End:ClrHome:Output(Y,X,"":Pause "GAME OVER...":ClrHome:Stop

Fully working game in one line

---

Vikt0r

I make music too: http://soundcloud.com/vikt0r

Re: One-Liner

(account deleted) 24 Jan 2013 23:03

You guys are so cheesy with those ':' in your code! Use an actual one-liner: make a good program that uses only one line and no ':' symbols.

---

Coffee + Radiohead = ^^

Boba Foxx (guest) 25 Jan 2013 01:58

We get one command, total. That's basically impossible to do anything. The only reason we wouldn't just do the same command on the homescreen is if we couldn't, but those commands are all multi-line commands like If:then, while, etc. That's pointless.

(account deleted) 25 Jan 2013 12:08

No, not one command; just try to make a program which uses only one line. You can use all of the commands that you want. ;-)

---

Coffee + Radiohead = ^^

Re: One-Liner

Josiah W 09 Apr 2013 14:01

PROGRAM:FLOOD
:99!

PROGRAM:ENEMIES
:randInt(0

PROGRAM:POSTITS
:Goto P

I got a million of them!

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: One-Liner

L1k3awh15p3r 10 Mar 2013 02:49

Pretty fun game, kinda like a bullfighting game. Found a bug though; whenever the square's coordinates equal 8,16 on the home screen it freezes there. Maybe you should incorporate that and make it the goal or something

Impressive how its one line

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: One-Liner

jonbush 19 Apr 2014 02:22

Here's a one-line prime program that checks if Ans is prime. Returns 1 if prime, 0 if composite

:0≠min(remainder(Ans,seq(A,A,2,1+√(Ans

Re: One-Liner

Tom king 24 Jun 2014 19:02

Prompt A:disp "I shall win"

All on one line

Does this qualify?

Trenly 25 Jun 2014 14:48

??Goto J??JIndpntAskprod(fMax(Boxplot xor log(Plot2(Vsinh^-1(2-Var Stats mean(?RecallPic )•DMS?•DMS6StorrGDB Plot2( -mean(cos^-1(Vertical )StoreGDB StoreGDB •DMS^2?Plot2(GPlot2(real(sinh^-1({StopDS<(•FracMenu(ScatterFor(•Fractamh^-1(.?Plot2(M

Although it requires ASM( i dont know if it's exactly assembly
Also, everywhere a "•" appears, substitute a filled in triangle pointing right

Last edited on 01 Jan 2015 17:57 by Trenly Show more

Re: Does this qualify?

Trenly 01 Jan 2015 17:56

Do you think this would qualify?

Re: One-Liner

TI-GBR 01 Jan 2015 13:35

Prgm P
:prgmP // Super mem leak :)

Last edited on 01 Jan 2015 13:37 by TI-GBR Show more

Re: One-Liner

jonbush 01 Jan 2015 18:22

You can also use this to make recursive programs, if you control it correctly.

Re: One-Liner

Trenly 01 Jan 2015 21:34

I make recursives a lot, it helps when I have large programs with tons of submenus and damn…. I never realized how effective this is.