You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Lounge » KiXgolf Freebie: Quicksum
Register User       Forum List       Calendar       FAQ
Page 7 of 9 « First<56789>
Topic Options
#178305 - 2007-07-24 11:00 AM Re: KiXgolf Freebie: Quicksum [Re: acmp]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
 Originally Posted By: acmp
 Code:
for $i = 1 to 255

glad I could help ;\)


Hmmm, I posted that yesterday evening ;\)
_________________________



Top
#178310 - 2007-07-24 12:38 PM Re: KiXgolf Freebie: Quicksum [Re: Jochen]
acmp Offline
Getting the hang of it

Registered: 2004-07-02
Posts: 69
Loc: Bingham, Nottinghamshire, Engl...
my bad, I'll get more coffee, should help me stay on track.

I didn't notice your earlier post, I followed from your 9:16 to 9:39 (both today)

please accept my apologies.
_________________________
Every day is a school day

Top
#178311 - 2007-07-24 12:44 PM Re: KiXgolf Freebie: Quicksum [Re: acmp]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
you're welcome
_________________________



Top
#178312 - 2007-07-24 01:11 PM Re: KiXgolf Freebie: Quicksum [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Another 77 based on Dales' code with mods from Richard

 Code:
function a($)
  if $
    $a=asc(right($,1))-64
    $a=a(left($,~))+($a>)*$a*(0^$)
endfunction


Running Test 1...Done
Running Test 2...Done
Running Test 3...Done
Running Test 4...Done
Running Test 5...Done
Running Test 6...Done
Your solution passed all tests

KiXtart
KiXtart Version = 4.53
KiXGolf Script = KIXGOL~1.KIX

Computer
OS = Windows 2000 Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed = 2793 MHz
Memory = 504 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Quicksum
Processing Start = 2007/07/24 13:11:07.406
Processing End = 2007/07/24 13:11:07.421
Duration = 0000/00/00 00:00:00.014
KiXGolf Score = 77

Thank you for participating in KiXtart Golf!
_________________________



Top
#178314 - 2007-07-24 01:44 PM Re: KiXgolf Freebie: Quicksum [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
btw,

0^$ is a pretty clever way to say len($), Dale.
Have to keep this in mind.
_________________________



Top
#178315 - 2007-07-24 02:00 PM Re: KiXgolf Freebie: Quicksum [Re: Jochen]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Thanks Richard, You Da Man!
thanks, but that was Allen's, mine was ($^): 76

 Code:
;!
Function a($)
	if $
		$a=asc(right($,1))-64
		$a=a(left($,~))+($^)*$a*($a>)
EndFunction
;!
;!
; end Quicksum



Edited by Benny69 (2007-07-24 02:50 PM)
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#178316 - 2007-07-24 02:06 PM Re: KiXgolf Freebie: Quicksum [Re: Benny69]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Ay Caramba !!!
_________________________



Top
#178317 - 2007-07-24 02:58 PM Re: KiXgolf Freebie: Quicksum [Re: Jochen]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Jochen,
if you wanted to cover all lengths, yours could be: 79

 Code:
;!
Function a($)
    dim $i
    for $i=1 to ($^)
	$a=$a+$i*(asc($)-64)*($>!)
        $=right($,~)
EndFunction
;!
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#178318 - 2007-07-24 03:11 PM Re: KiXgolf Freebie: Quicksum [Re: Benny69]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4549
Loc: USA
Man... go to sleep and miss all the fun.
Top
#178320 - 2007-07-24 03:14 PM Re: KiXgolf Freebie: Quicksum [Re: Benny69]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Well,

I have already covered all lengths with for $i = 1 to 255 (78), or could cover them with for $i = 1 to 0^$ (78 too), but i prefer to insist on my 'cheat' with for $i = 1 to 99 which scores 77
_________________________



Top
#178321 - 2007-07-24 03:19 PM Re: KiXgolf Freebie: Quicksum [Re: Jochen]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4549
Loc: USA
Or 78

 Code:
Function a($)
    dim $i
    for $i=1 to 0^$
	$a=$a+$i*(asc($)-64)*($>!)
        $=right($,~)
EndFunction

Top
#178322 - 2007-07-24 03:23 PM Re: KiXgolf Freebie: Quicksum [Re: Allen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Hello?
_________________________



Top
#178323 - 2007-07-24 03:27 PM Re: KiXgolf Freebie: Quicksum [Re: Jochen]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4549
Loc: USA
You posted while I was working... man, tough crowd.
Top
#178324 - 2007-07-24 03:28 PM Re: KiXgolf Freebie: Quicksum [Re: Allen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
_________________________



Top
#178336 - 2007-07-24 07:03 PM Re: KiXgolf Freebie: Quicksum [Re: Jochen]
Mart Moderator Offline
KiX Supporter
*****

Registered: 2002-03-27
Posts: 4673
Loc: The Netherlands
Just lurking around but so far I'm impressed.
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.

Top
#178339 - 2007-07-24 07:26 PM Re: KiXgolf Freebie: Quicksum [Re: Mart]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Mart, Witto, Gargoyle, apronk, Shawn, Doc, Drill come on guys want to see what you got, you guys going to play? I think you could bring some fresh ideas.
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#178344 - 2007-07-24 10:01 PM Re: KiXgolf Freebie: Quicksum [Re: Benny69]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
they are not gonna play.
they don't have a change, so they will just keep on lurkin ;\)
_________________________
!

download KiXnet

Top
#178346 - 2007-07-25 12:01 AM Re: KiXgolf Freebie: Quicksum [Re: Lonkero]
Mart Moderator Offline
KiX Supporter
*****

Registered: 2002-03-27
Posts: 4673
Loc: The Netherlands
If there was time to play I'd give it a go but I'm just to damn busy setting up an inventory script at work so I'll be online but can't play and do the inventory stuff at the same time. Lurking a bit is possible because I can hide that as looking for ways to implement some part of the inventory script.

My CEO would like to see the inventory stuff done and does not care about KixGolf at all

Depending on the challenge maybe the next one will be my first KixGolf game.
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.

Top
#178348 - 2007-07-25 12:14 AM Re: KiXgolf Freebie: Quicksum [Re: Mart]
Mart Moderator Offline
KiX Supporter
*****

Registered: 2002-03-27
Posts: 4673
Loc: The Netherlands
Oh yeah, I'm also doing some painting around the house.

Sanding, filling holes and gapes, wait for filler to dry, sanding again, put on some primer, wait for primer to dry, sand once more, paint first layer of right colour paint, wait for paint to dry, do some more sanding and paint the final layer of the right colour paint.

I'm not looking for an excuse not to play but it all takes huge amounts of time you know \:\)
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.

Top
#178349 - 2007-07-25 02:21 AM Re: KiXgolf Freebie: Quicksum [Re: Benny69]
Witto Offline
MM club member
*****

Registered: 2004-09-29
Posts: 1828
Loc: Belgium
Your code is beautifull, Benny. I am still looking what it exactly does. Could you elaborate on this line? I.E. what does the XOR do?
$a=a(Left($,~))+($^)*$a*($a>)
Top
Page 7 of 9 « First<56789>


Moderator:  Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 700 anonymous users online.
details
Newest Members
Timothy, Jojo67, MaikSimon, kvn317, kixtarts2025
17874 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.078 seconds in which 0.028 seconds were spent on a total of 13 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org