Page 1 of 1
More Code Golf
Posted: Fri Feb 17, 2017 10:46 pm
by Shaun_B
Okay, it's not exactly code, here's another submission I made to
Stack Exchange:
Code: Select all
1 LET A$=""
2 LET A=38
3 LET A$=A$+CHR$ A
4 LET A=A+1
5 GOTO 3+((A=64)*3)
6 PRINT A$
7 LET A$=A$(2 TO)+A$(1)
8 LET A=(A$(1)="V")
9 IF A=1 THEN SCROLL
10 GOTO 6
Re: More Code Golf
Posted: Fri Feb 17, 2017 11:44 pm
by XavSnap
Code: Select all
1 LET A$=""
2 LET A=38
3 LET A$=A$+CHR$ A
4 LET A=A+1
5 GOTO 3+((A=64)*3)
6 PRINT A$
7 LET A$=A$(2 TO)+A$(1)
8 IF (A$(1)>"V")=1 THEN SCROLL
10 GOTO 6
Faster...
... Sorry!
Less lines, more faster!
Re: More Code Golf
Posted: Sat Feb 18, 2017 12:21 am
by XavSnap
Code: Select all
2 LET A=38
3 LET A$=A$+CHR$ A
4 LET A=A+1
5 GOTO 3+((A=64)*3)
> 27 seconds
3 line repeated (2-4-5)
Code: Select all
3 FOR A=38 TO 64
4 LET A$=A$+CHR$ A
5 NEXT A
> 23 seconds
Only 2 redundant lines (4&5)
Is better...
Less memory used too.
Re: More Code Golf
Posted: Sat Feb 18, 2017 8:51 am
by Shaun_B
Thanks, I've amended my entry to include your codes.
Code Golf is good fun especially on technologies with limited languages like the ZX81.
Regards,
Shaun.