#182682 - 2007-11-15 03:41 AM
Re: KiXgolf - Printer Queue - Public Round
[Re: Lonkero]
|
Gargoyle
MM club member
![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif)
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
![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif)
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
![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif)
Registered: 2003-04-19
Posts: 4548
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
![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif)
Registered: 2003-04-19
Posts: 4548
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
![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif)
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
![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif)
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
![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif)
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
![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif) ![*](/forums/images/general/default/star.gif)
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 138 anonymous users online.
|
|
|