| Author |
Message |
|
TheStorm
Calc Guru
Joined: 17 Apr 2007
Posts: 1233
|
 Posted: 31 Aug 2007 10:11:44 am Post subject: |
|
|
Harrierfalcon wrote: If it took Goose some real thinking to figure it out, then you can be sure than only a select others will be able to think of it within 24 hours.
/me is still twiddling...
EDIT: Storm? Quote: 102→K:10fPart(.1K)+17)-
3int(.1K-3
-2 Try again.
EDIT#2: Hehe, I can shave off a single byte after 30 minutes of thinking. XD
[post="111924"]<{POST_SNAPBACK}>[/post]
How many times do I have to say it gooses challenge says 1-9 It doesn't need to work for 0 |
|
| Back to top |
|
|
DarkerLine
ceci n'est pas une |
Super Elite (Last Title)
Joined: 04 Nov 2003
Posts: 8328
|
| Posted: 31 Aug 2007 10:47:06 am Post subject: |
|
|
| It wouldn't even make sense for it to work for 0 - then you wouldn't be able to distinguish the lack of a key press from pressing the [0] key. |
|
| Back to top |
|
|
TheStorm
Calc Guru
Joined: 17 Apr 2007
Posts: 1233
|
| Posted: 31 Aug 2007 10:55:38 am Post subject: |
|
|
| Very true I didn't think of that weel Unless you are using a repeat getkey then you know that a key was pressed. |
|
| Back to top |
|
|
Weregoose
Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004
Posts: 3976
|
| Posted: 31 Aug 2007 11:18:10 am Post subject: |
|
|
TheStorm wrote: How many times do I have to say it gooses challenge says 1-9 It doesn't need to work for 0 But it does need to show [font="courier new;font-size:9pt;line-height:100%;color:darkblue"]102 when you press [0], not [font="courier new;font-size:9pt;line-height:100%;color:darkblue"]‾2. |
|
| Back to top |
|
|
TheStorm
Calc Guru
Joined: 17 Apr 2007
Posts: 1233
|
| Posted: 31 Aug 2007 11:22:38 am Post subject: |
|
|
| I know the conditonals I add that push over 34 bytes solve that issue. |
|
| Back to top |
|
|
calc84maniac
Elite
Joined: 22 Jan 2007
Posts: 770
|
| Posted: 31 Aug 2007 11:48:39 am Post subject: |
|
|
Beat ya Weregoose, 29 bytes! :biggrin:
Quote: :K-13int(.1K-2)(12>abs(K-83) and .2<fpart(.2K
Last edited by Guest on 31 Aug 2007 12:01:50 pm; edited 1 time in total |
|
| Back to top |
|
|
TheStorm
Calc Guru
Joined: 17 Apr 2007
Posts: 1233
|
| Posted: 31 Aug 2007 12:14:45 pm Post subject: |
|
|
Nice job calc84 
Edit: check your math it is 38 bytes minus the name.[attachment=1862:attachment]
Last edited by Guest on 31 Aug 2007 12:28:32 pm; edited 1 time in total |
|
| Back to top |
|
|
calc84maniac
Elite
Joined: 22 Jan 2007
Posts: 770
|
| Posted: 31 Aug 2007 12:58:54 pm Post subject: |
|
|
Here's 36 bytes minus the name:
Quote: :K-13int(K/13(12>abs(K-83) and .2<fPart(.2K |
|
| Back to top |
|
|
magicdanw
pcGuru()
Calc Guru
Joined: 14 Feb 2007
Posts: 1110
|
| Posted: 31 Aug 2007 01:38:28 pm Post subject: |
|
|
Here's my first try, 48 bytes (I was so excited when CalcSys said 30 bytes, but then I remembered it's hex  ). I'm pretty sure there's something I can do to compress the conditionals, but I forget how to do it, because I never paid much attention to GetKey input optimization...
Quote: 0
If K>91 and K<95
91
If K>81 and K<85
78
If K>71 and K<75
65
Disp K-Ans
Update: 38 bytes (still not there yet):
Quote: K-91(2>abs(K-93))-78(2>abs(K-83))-65(2>abs(K-73
Last edited by Guest on 31 Aug 2007 01:59:08 pm; 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: 31 Aug 2007 03:40:04 pm Post subject: |
|
|
magicdanw: you're counting the size of the code slightly differently from Goose. While you are counting the size of just the code itself (or equivalently, the size of the program minus the size of an empty program) Goose is counting the size of the program minus the length of the title. There's a 9-byte difference.
calc84maniac wrote: Here's 36 bytes minus the name:
Quote: :K-13int(K/13(12>abs(K-83) and .2<fPart(.2K
[post="111969"]<{POST_SNAPBACK}>[/post]
Some optimization got me to 32 bytes, not counting the title length.
Quote: K-13int(K/13(2>abs(5-abs(5-abs(K-83
I even have the feeling there's more optimization to be done there, but there's places I have to go at the moment so I leave that to you guys until I come back.
Last edited by Guest on 31 Aug 2007 04:02:24 pm; edited 1 time in total |
|
| Back to top |
|
|
calc84maniac
Elite
Joined: 22 Jan 2007
Posts: 770
|
| Posted: 31 Aug 2007 04:48:39 pm Post subject: |
|
|
I got mine down to 35 bytes:
Quote: K-13int(K/13(abs(K-83)<12 and int(3fPart(.2K |
|
| Back to top |
|
|
TheStorm
Calc Guru
Joined: 17 Apr 2007
Posts: 1233
|
| Posted: 31 Aug 2007 05:02:32 pm Post subject: |
|
|
I was wrong so I removed this post.
Last edited by Guest on 31 Aug 2007 05:50:34 pm; edited 1 time in total |
|
| Back to top |
|
|
calc84maniac
Elite
Joined: 22 Jan 2007
Posts: 770
|
| Posted: 31 Aug 2007 05:26:01 pm Post subject: |
|
|
Hate to burst your bubble, but...
1) That doesn't work. (Try with K=81)
2) It's 36 bytes. |
|
| Back to top |
|
|
Weregoose
Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004
Posts: 3976
|
| Posted: 31 Aug 2007 09:00:54 pm Post subject: |
|
|
I started off with what magicdanw had:
[font="courier new;font-size:9pt;line-height:100%;color:darkblue"]K-65(K>71 and K<75)-78(K>81 and K<85)-91(K>91 and K<95
And then I optimized:
[font="courier new;font-size:9pt;line-height:100%;color:darkblue"]K-65(2>abs(K-73))-78(2>abs(K-83))-91(2>abs(K-93min(K-{65,78,91}(2>abs(K-{93,83,73min(K-13{5,6,7}(2>abs(K-{93,83,73{5,6,7
min(K-Ans13(2>abs(K-10Ans-23
DarkerLine's one-liner is even better in that we don't need to store to [font="courier new;font-size:9pt;line-height:100%;color:darkblue"]K prior to the line.
So now we have:
[font="courier new;font-size:9pt;line-height:100%;color:darkblue"]Repeat Ans
getKey
End
Ans-13int(Ans/13(2>abs(5-abs(5-abs(Ans-83
I'll try to go further with this.
Last edited by Guest on 31 Aug 2007 09:12:20 pm; edited 1 time in total |
|
| Back to top |
|
|
luby
I want to go back to Philmont!!
Calc Guru
Joined: 23 Apr 2006
Posts: 1477
|
| Posted: 01 Sep 2007 04:55:58 pm Post subject: |
|
|
Mine is 35 bytes (not counting the two newlines)
Quote: K-78+20(K<80)-20(K>90
Ans+7(Ans<4)-7(Ans>6
I was so excited that I had beat the challenge, then I saw that it was 34 bytes.
Last edited by Guest on 01 Sep 2007 04:56:30 pm; edited 1 time in total |
|
| Back to top |
|
|
magicdanw
pcGuru()
Calc Guru
Joined: 14 Feb 2007
Posts: 1110
|
| Posted: 01 Sep 2007 07:09:37 pm Post subject: |
|
|
Well, you don't need a second newline, but by the standard being used here (taking the number you get in memory menu and subtracting the length of the file name) yours is 45 bytes.
Also, it doesn't seem to work with numbers that don't correspond to 1-9. |
|
| Back to top |
|
|
TheStorm
Calc Guru
Joined: 17 Apr 2007
Posts: 1233
|
| Posted: 04 Sep 2007 08:17:39 am Post subject: |
|
|
I have got it. This works for all numbers and was found at 10:30 pm Saturday night but I wasn't near a comp until today.
Quote: K-13int(.08K(2=int(.03K) and int(3fPart(.2K
It is 34 bytes when you subtract the name so ha I win yayz
Edit: Darn looking back through the thread someone already beat me darn. Too bad I wasn't near a comp Saturday night.
Last edited by Guest on 04 Sep 2007 08:23:24 am; edited 1 time in total |
|
| Back to top |
|
|
blast
Advanced Newbie
Joined: 24 Oct 2007
Posts: 55
|
| Posted: 03 Nov 2007 01:05:50 am Post subject: |
|
|
Quote: :Repeat A
:getKey→A
:End
:72686779787789→X
:888797→Y
:For(V,3,9
:X*.01→X
:100*fPart X→B
:int X→X
:If A-5=B
:V→A
:End
:For(V,0,2
:Y*.01→Y
:100*fPart Y→B
:int Y→Y
:If A-5=B
:V→A
:End
:A
Dunno know the "correct" or "standard" way to measure the size
When I try to delete this it says "133"
This includes everythign including a loop, I saw many posted soutions that all of you found, but I did not see any code to loop and actually obtain the getKey which will most def. increase your size, you solely posted the calculation...
Well I didn't measure just that.. but you can subtract 30 or something...
This is a solution for ti 82 :)
*edit, I like A better than K (blast)
Last edited by Guest on 04 Nov 2007 08:39:45 pm; edited 1 time in total |
|
| Back to top |
|
|
simplethinker
snjwffl
Active Member
Joined: 25 Jul 2006
Posts: 700
|
| Posted: 04 Nov 2007 07:21:27 pm Post subject: |
|
|
| Why isn't this thread at the top of this page? It has the most recent post in this sub-forum but it's still a few down. Is this sub-forum set up to be ordered by the date each thread was started? |
|
| Back to top |
|
|
Weregoose
Authentic INTJ
Super Elite (Last Title)
Joined: 25 Nov 2004
Posts: 3976
|
| Posted: 04 Nov 2007 07:37:33 pm Post subject: |
|
|
It depends on your settings:
You can find this when viewing the subforum.
[EDIT] – Uh oh, the options don't stick. 
Last edited by Guest on 04 Nov 2007 07:51:02 pm; edited 1 time in total |
|
| Back to top |
|
|
|
TI-Basic Brain Teasers => TI-BASIC
