#182682 - 2007-11-15 03:41 AM
Re: KiXgolf - Printer Queue - Public Round
[Re: Lonkero]
|
Gargoyle
MM club member
Registered: 2004-03-09
Posts: 1597
Loc: Valley of the Sun (Arizona, US...
|
Not that it makes much difference since I never got a working version, but here are the two that I was working with.
Code Sample 1
; begin Printer Queue
;
;!
Function a($b,$c)
Dim $array,$,$3,$2,$t[Len($b)],$l,$r
$a = $c
$array = Split($b)
$l = Ubound($array)
For $ = 9 to 1 step -1
For $3 = 0 to $l
While $array[$3] < $
For $2 = $3 to $l
If $2 = $l
$t[$2] = $array[$2]
Else
$t[$2] = $array[$2+1]
EndIf
Next
$array = $t
$b = Join($array)
? $b ?
Loop
Next
Next
EndFunction
;!
;!
; end Printer Queue
Code Sample 2
; begin Printer Queue
;
;!
Function a($b,$c)
Dim $, $2, $3
$b = Split($b)
For $ = 9 to 1 Step -1
for $2 = 0 to Ubound($b)
If $b[$2] = $
If $2 = $C
$A = $3 + 1
EndIf
$3 = $3 + 1
Endif
Next
Next
EndFunction
;!
;!
; end Printer Queue
Feel free to tell me where I made the wrong assumptions.
_________________________
Today is the tomorrow you worried about yesterday.
|
Top
|
|
|
|
#182683 - 2007-11-15 05:04 AM
Re: KiXgolf - Printer Queue - Public Round
[Re: Gargoyle]
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
Dang Nice Code guys, here is my 148
Function a($,$b)
Dim $c,$d
For $c = -9 to 0
While InStr($,-$c)
$b=$b-1
$d=Right($,-2)
If -$c > $
$=$d+_+Val($)
If $b<0
$b=($^)/2
EndIf
Else
$=$d
$a=$a+1
If $b<0
$c=0
; EndIf
; EndIf
; Loop
; Next
EndFunction
|
Top
|
|
|
|
#182684 - 2007-11-15 06:39 AM
Re: KiXgolf - Printer Queue - Public Round
[Re: Benny69]
|
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4549
Loc: USA
|
Benny 145
Function a($,$b)
Dim $c,$d
For $c = -9 to 0
While InStr($,-$c)
$b=$b-1
$d=Right($,-2)
If -$c > $
$=$d+_+1*$
If $b<0
$b=($^)/2
EndIf
Else
$=$d
$a=$a+1
If $b<0
$c=0
; EndIf
; EndIf
; Loop
; Next
EndFunction
|
Top
|
|
|
|
#182685 - 2007-11-15 06:53 AM
Re: KiXgolf - Printer Queue - Public Round
[Re: Allen]
|
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4549
Loc: USA
|
Mine down to 151
function a($,$p)
dim $i,$t
for $i=9 to 1 step -1
while instr($,$i) & $t=0
$t=$p=0 & $i=$
$p=iif($p=0,($^)/2,$p-1)
$a=$a+1*$/$i
$=right($,-2) + iif($i>$,_ + 1*$,"")
;loop
;next
endfunction
|
Top
|
|
|
|
#182686 - 2007-11-15 07:19 AM
Re: KiXgolf - Printer Queue - Public Round
[Re: Allen]
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
Top
|
|
|
|
#182737 - 2007-11-16 02:10 PM
Re: KiXgolf - Printer Queue - Public Round
[Re: Jochen]
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
|
Top
|
|
|
|
#182756 - 2007-11-17 12:49 AM
Re: KiXgolf - Printer Queue - Public Round
[Re: Lonkero]
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
Jooel you Dawg! Your like one of the Savants,...
|
Top
|
|
|
|
#182760 - 2007-11-17 08:33 PM
Re: KiXgolf - Printer Queue - Public Round
[Re: Benny69]
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
2023-09-28 [Arend_]
Wow even the shouts are old ;-)
2023-11-17 [Dr_Rick]
I love Kixforms!
2023-11-21 [Dave_Melczer]
Getting DB errors again opening posts...anyone else?
2023-11-24 [Flavien]
DB errors confirmed. This forum is showing its age... UBB 7.2.2 is from 2007
2023-11-27 [Sealeopard]
And there goes the forum :-(
2023-11-30 [NTDOC]
Yes, so old no good easy update path
2023-12-01 [mole]
Posts back. No DB errors. Thanks!
2023-12-29 [BradV]
Happy new year!
2024-02-09 [RSLHA]
No access possible!
2024-02-09 [RSLHA]
Database Error!
2024-02-18 [Dr_Rick]
What happened to Bruno
2024-03-08 [mole]
Thanks for getting the posts back again.
2024-04-18 [MarineV]
will the db errors get fixed????
2024-04-26 [Tonny]
database error, please!
2024-05-09 [NTDOC]
I'm not seeing any errors
2024-05-31 [chojin]
DB is down again
2024-06-04 [selsner]
Still no access, please help!
2024-06-07 [mole]
Looks like DB is back again. Thanks.
2024-06-17 [It_took_my_meds]
We encountered a problem. The reason reported was Database error only visible to forum administrators Please click back to return to the previous page.
2024-07-04 [Armin73]
There is still a database error 🤷♂️
2024-07-09 [0neZero]
There is still a database error 🤷♂️
2024-07-10 [Allen]
DB working a few times in between the messages above. Working again as of 7/10. Thanks Doc
2024-08-31 [NetGnostic]
Bummer, the Database error is back.
2024-09-04 [NTDOC]
Fourms are back up without error for the moment
2024-10-02 [Arend_]
Wll still have database errors ;-)
2024-10-03 [Allen]
Thanks to Doc... it's back.
2024-12-09 [chojin]
could we move kixtart to a new place in order to keep it living ? maybe create a github page and a subreddit?
2024-12-10 [Allen]
do know about moving it, but I know Doc is aware of the DB issue. Should be back online soon.
2024-12-10 [Allen]
don't know...
|
|
0 registered
and 463 anonymous users online.
|
|
|