| Author |
Message |
|
vanchagreen
Member
Joined: 20 Feb 2008
Posts: 136
|
 Posted: 04 Feb 2009 09:12:43 pm Post subject: |
|
|
Right, so this challenge is to take a string(Hello World!) and remove any non-alphabetic characters from it (HelloWorld). This includes spaces. Also if you have a string whose first or last characters are non-alphabetic, they are to be removed too:
(!Hello World!) yields (HelloWorld).
My attempt was 232 (Edit 204) bytes. I doubt that anyone could make a larger version... :biggrin: Happy coding!
PS. If anyone can come with a better title, feel free.
Last edited by Guest on 05 Feb 2009 05:53:46 pm; edited 1 time in total |
|
| Back to top |
|
|
Weregoose
Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004
Posts: 3976
|
| Posted: 05 Feb 2009 05:20:04 am Post subject: |
|
|
| 135 bytes. |
|
| Back to top |
|
|
ticalcnoah
Member
Joined: 28 Oct 2007
Posts: 153
|
| Posted: 05 Feb 2009 06:50:43 pm Post subject: |
|
|
| I've got 97 without name. |
|
| Back to top |
|
|
Weregoose
Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004
Posts: 3976
|
| Posted: 05 Feb 2009 07:03:01 pm Post subject: |
|
|
ticalcnoah wrote: I've got 97 without name. Aren't you going to include lowercase letters at all?
Last edited by Guest on 05 Feb 2009 07:18:33 pm; edited 1 time in total |
|
| Back to top |
|
|
vanchagreen
Member
Joined: 20 Feb 2008
Posts: 136
|
| Posted: 05 Feb 2009 07:41:40 pm Post subject: |
|
|
| Lets just say uppercase letters only, as you can't access all the lowercase letters on the calculator. |
|
| Back to top |
|
|
Zaphod Beeblebrox
Member
Joined: 02 Jul 2007
Posts: 119
|
| Posted: 05 Feb 2009 08:37:57 pm Post subject: |
|
|
| If we assume that the string is already in Str1, only uppercase letters, without name, I got 92 bytes. Assuming that the string is in answer, 97 bytes |
|
| Back to top |
|
|
Weregoose
Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004
Posts: 3976
|
| Posted: 05 Feb 2009 10:35:43 pm Post subject: |
|
|
Very well. Without lowercase, and with the string in Ans, I have it in 83 bytes.
But yes, all lowercase letters can become permanently accessible after running an ASM program. (More info at the top of that page.)
Last edited by Guest on 11 Jul 2010 06:27:50 pm; edited 1 time in total |
|
| Back to top |
|
|
vanchagreen
Member
Joined: 20 Feb 2008
Posts: 136
|
| Posted: 06 Feb 2009 05:27:39 pm Post subject: |
|
|
| Ah sorry Weregoose. :blush: I didn't know about the ASM program. |
|
| Back to top |
|
|
DarkerLine
ceci n'est pas une |
Super Elite (Last Title)
Joined: 04 Nov 2003
Posts: 8328
|
| Posted: 06 Feb 2009 09:15:37 pm Post subject: |
|
|
I've got 79 bytes with uppercase letters only, which I guess means I'd have 131 byte with lowercase letters included too. Two more bytes if you want the program to display the answer, as well as output it in Ans.
Last edited by Guest on 08 Feb 2009 03:29:24 pm; edited 1 time in total |
|
| Back to top |
|
|
nitacku
Advanced Member
Joined: 23 Aug 2005
Posts: 408
|
| Posted: 07 Feb 2009 10:45:56 am Post subject: |
|
|
So far I've only been able to arrive at a solution of 84 bytes.
There must be something I'm overlooking...
83 bytes now...
Weregoose, we must have the same solution 
Last edited by Guest on 07 Feb 2009 10:50:12 am; edited 1 time in total |
|
| Back to top |
|
|
nitacku
Advanced Member
Joined: 23 Aug 2005
Posts: 408
|
| Posted: 16 Feb 2009 02:11:11 am Post subject: |
|
|
Darkerline & Weregoose, I'm curious to see your solutions to this teaser.
Here's my solution:
[whiteout]For(X,1,length(Ans
If inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ",sub(Ans,X,1
Ans+sub(Ans,X,1
End
sub(Ans,X,1-X+length(Ans
[/whiteout]
Last edited by Guest on 12 Jul 2010 01:17:07 am; edited 1 time in total |
|
| Back to top |
|
|
Weregoose
Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004
Posts: 3976
|
| Posted: 16 Feb 2009 02:13:59 am Post subject: |
|
|
Down to the variable choice, that's what my program looks like.
Now, I'm very curious about DarkerLine's 79 (+52) bytes...
Last edited by Guest on 16 Feb 2009 03:04:32 am; edited 1 time in total |
|
| Back to top |
|
|
DarkerLine
ceci n'est pas une |
Super Elite (Last Title)
Joined: 04 Nov 2003
Posts: 8328
|
| Posted: 16 Feb 2009 10:38:53 pm Post subject: |
|
|
I've typed this from memory but I'm hoping it's correct.
[whiteout]
For(I,1,length(Ans
sub(Ans+sub(Ans,1,1),2,length(Ans)-not(inString("A...Z",sub(Ans,1,1
End
[/whiteout]
Last edited by Guest on 12 Jul 2010 01:16:50 am; edited 1 time in total |
|
| Back to top |
|
|
|
TI-Basic Brain Teasers => TI-BASIC
